APPLICATIONS   Access

INFORMATIQUE
Exemples divers

Accueil site > Accueil applications informatique > Accueil Access
Accueil Exemples divers

N'hésitez pas à m'écrire pour compléter ou modifier ou me dire bonjour...

 

Modifier la valeur par défaut d'un champ d'une table à partir d'une autre base.
 Par exemple pour créer un patch....

Exemple :

Function mise_a_jour_valeur_par_defaut()

    Dim dbObj As Database
    Dim tdfObj As TableDef
    Dim fd As Field
   
    Set dbObj = OpenDatabase("C:\stDb") 'le chemin de la base externe
    Set tdfObj = dbObj.TableDefs("stTab") 'le nom de la table
    set fd = tdfObj.Fields("lechamp") 'le nom du champ
    fd.defaultvalue = la_valeur 'la valeur par défaut

End Function

Private Sub BtnPatch_Click()

mise_a_jour_valeur_par_defaut 'Appel de la fonction

'Ne pas oublier de faire une requête mise à jour peut-être pour les données erronées de précédemment enregistrées

End Sub