Bonjour,
Je cherche comment modifier une valeur par défaut - format date abrégée.
J'ai trouvé ce bout de code pour un champ format texte courtça fait bien le travail pour le format texte court.
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 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
Alors j'ai essayé pour une date et j'ai faitLa valeur du champ est : "2019-07-01"
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Sub An1Defaut() 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("An1") 'mon champ fld.DefaultValue = """2019-07-01""" 'nvl valeur format(LaDate. "YYYY-MM-DD") End Sub
Je me questionne? Quand on écrit la valeur par défaut pour les dates on écrit : #2019-07-01#.
La procédure transcrit dans le champ une valeur par défaut : "2019-07-01".
Est-ce que ce format aura toujours le format date dans une requête, un formulaire, un état? J'ai testé dans une requête et ça semble OK. Je veux être certaine avant de poursuivre le travail.
J'ai pensé à une autre solution pour la mise à jour des valeurs par défaut.
J'ai un formulaire (AnCourant form) qui contient les nouvelles dates de l'année scolaire. La table s'appelle AnCourant. mon champ : dateDébut
J'ai essayé directement dans la table, à la valeur par défaut du champ: =Formulaire![AnCourant form]![dateDébut] -à l'enregistrement de la table, j'ai un message : impossible de trouver le champ <Formulaire![AnCourant form]![dateDébut]>. J'en conclue que ce n'est pas possible...
Si vous avez des suggestions j'apprécierais beaucoup.
Merci à l'avance de votre aide
Partager