Discussion :

[Tazzou]

Salut à tous.

Je souhaiterai savoir s'il est possible de modifier la valeur par défaut d'un champ dans une table en passant par un code VBA.

Si oui pourriez-vous m'orienter sur la facon de faire???

Merci beaucoup.

[loufab]

Bonjour,

Si c'est la propriété de la table c'est un truc dans ce genre.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
dim db as dao.database
dim tbl as dao.tabledef
dim fld as dao.field
 
set db = currentdb
set tbl = db.tabledefs("matable")
set fld = tbl.fields("monchamp")
 
fld.DefaultValue = "nouvellevaleur"
...

Cordialement,

[Bob78280]

Pour la propriété de la table :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Dim bds As Database, dft As TableDef
 
    ' Base de données en cours.
    Set bds = CurrentDb
 
    ' Retourne un objet Tabledef pointant sur une table.
    Set dft = bds.TableDefs(MaTable)
    dft.Fields(MonChamp).DefaultValue = 12

Ah zut, coiffé au poteau.
Merci Loufab

[Tazzou]

Ca fonctionne parfaitement !!!

Merci beaucoup.

[phil1262]

Bonjour,

Je souhaite changer les valeurs par défaut de certain champs de ma base de données.
J'ai récupéré cette séquence sur cette discussion

Private Sub BtnUpdateAll_Click()
Dim bds As Database, dft As TableDef

' Base de données en cours.
Set bds = CurrentDb

' Retourne un objet Tabledef pointant sur une table.
Set dft = bds.TableDefs("Devis")
dft.Fields("DevTxEt").DefaultValue = EntreeTxEt.Value

'EntreeTxEt est le champ d'un formulaire destiné à recevoir les nouvelles valeurs par défaut.

End Sub

Le problème de cette séquence est qu'elle n'est pas compatible avec des tables attachées.

Comment résoudre le problème.

Merci d'avance pour l'aide que vous pourrez m'apporter.

[tee_grandbois]

Bonsoir,
On ne peut pas modifier une table attachée, il faut donc ouvrir la base distante en remplaçant CurrentDb par le chemin et le nom de la base distante.