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

D 17 novembre 2006 H 10:50 A Patrice MOREL

Access 97 | Compatible |
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

Dans la même rubrique

18 février 2010 – Liste déroulante

26 janvier 2010 – Requête croisée

5 mars 2008 – Evènement sur Onglet

7 février 2008 – Astuces et pièges VBA

8 décembre 2007 – Envoi de mails

Rechercher

Traducteur

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

Dans la même rubrique

Rechercher

Traducteur

Les plus lus

5 articles au hasard

Les plus populaires