Discussion :

[LiseUEMPT]

Bonjour,

Je me pensais bien fine, mais me voilà encore dans le trouble. j'ai trouvé ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub AnScoDefaut()
 
Dim db As DAO.Database
Dim tbl As DAO.TableDef
Dim fld As DAO.field
 
 
Set db = CurrentDb
Set tbl = db.TableDefs("PMC-autobus")  'ma table
 
Set fld = tbl.Fields("AnScol")  'mon champ
fld.DefaultValue = """2019-2020"""  'nvl valeur
 
 
End Sub

qui fonctionne. Alors je ne suis dit qu'avec un INPUTBOX, comme ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub AnScoDefaut()
 
Dim db As DAO.Database
Dim tbl As DAO.TableDef
Dim fld As DAO.field
Dim NvlAnSco As String
NvlAnSco = InputBox("Inscrire la nouvelle année - format 2025-2026 : ", "NvlAnSco")
Set db = CurrentDb
Set tbl = db.TableDefs("PMC-autobus")  'ma table
 
Set fld = tbl.Fields("AnScol")  'mon champ
 
fld.DefaultValue = "NvlAnSco"  'nvl valeur
 
End Sub

que tout irait bien. C'était encore une erreur de ma part. J'ai comme résultat dans ma table, mon champ, valeur par défaut : NvlAnSco. J'ai essayé les triples quillemets et j'ai 'NvlAnSco'.

Donc, j'ai encore besoin d'aide. On fait comment pour que l'utilisateur donne la nouvelle information à inscrire.

Merci de votre aide si précieuse.

[LiseUEMPT]

Bonjour,

Je viens d'essayer de nouveau et la petite procédure fonctionne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub AnScoDefaut()
 
Dim db As DAO.Database
Dim tbl As DAO.TableDef
Dim fld As DAO.field
Dim NvlAnSco As String
NvlAnSco = InputBox("Inscrire la nouvelle année - format 2025-2026 : ", "NvlAnSco")
Set db = CurrentDb
Set tbl = db.TableDefs("PMC-autobus")  'ma table
 
Set fld = tbl.Fields("AnScol")  'mon champ
fld.DefaultValue = NvlAnSco  'nvl valeur
End Sub

en enlevant tous les quillements pour la commande

Code :

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

fld.DefaultValue = NvlAnSco  'nvl valeur