Modifier la valeur par défaut d'un champ d'une table à partir d'une autre base

Modifier la valeur par défaut d’un champ d’une table à partir d’une autre base

Article mis en ligne le 17 novembre 2006

dernière modification le 12 décembre 2006

par Patrice MOREL

Access 97

Access 97 | Compatible |

Access 2003

Access 2003 | Non testé |

Par exemple pour créer un patch...

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