Discussion :

[yvidal]

Bonjour,

Je suis face à un problème qui me laisse bouche bée, et j'espère que vous pourrez éclairer ma lanterne.

Voila j'ai un code tout simple ci dessous :

Code :

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

1
2
3
4
5
6
Sub form_current()
 
    If IsNull(Me.dat) = True Then
        Me.dat = date
 
et ainsi de suite

sauf que quand j’exécute, le code Access me renvoi le message d'erreur :

"Erreur d’exécution '2465':
Microsoft Access ne trouve pas le champ "date" auquel il est fait référence dans votre expression."

Ce que je voudrais c'est que la date du jour s'affiche dans la case "dat" ci celle-ci est vide.
Le code fonctionne sur un autre formulaire mais pas sur celui-ci.

Avez-vous des idées ??

Merci par avance de votre aide.

Cordialement,

y_vidal

[tee_grandbois]

bonsoir,
le fait que date soit écrit en minuscule prouve que la variable n'est pas reconnue.
As-tu coché la référence Microsoft Access xx.x Object Library ou Microsoft Visual Basic for Applications (VBA) (pour les versions Access plus anciennes) ?
essaie pour voir :

Code :

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

1
2
If IsNull(Me.dat) Then
   Me.dat = VBA.Date

et compile ton code (Menu / Débogage / Compiler nom du projet) il devrait y avoir une erreur si il manque la référence

[yvidal]

Bonjour,

Merci pour ton aide.
La case "Microsoft access 16.0 object library" est coché le problème ne vient pas de la. De plus la formule fonctionne dans d'autres formulaires.
J'ai deux autres formulaires pour lesquels j'ai une syntaxe similaire :

Code :

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

1
2
3
4
5
6
7
8
9
10
form1:
If Me.Date_de_creation_de_la_fiche = "" Then
        Me.Date_de_creation_de_la_fiche = date
        Me.Date_de_dernière_mise_à_jour_de_la_fiche = date
...
 
form2:
If IsNull(Me.dcf) Then
        Me.dcf = date
...

La fonction date est reconnu même en étant écrit en minuscule pour les deux autres formulaires mais c'est vrai que je m'attendais également à avoir au moins un "D" majuscule pour me signifier qu'il avait reconnu la fonction.

En tout cas le vba.date comme suit fonctionne :

Code :

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

1
2
If IsNull(Me.dcf) Then
        Me.dcf = VBA.date

Merci beaucoup de ton aide.

Cordialement,

y_vidal