Discussion :

[Tagada_Or]

Bonjour à tous,

Je fais appel à vos lumières pour m'aider à trouver l'erreur de syntaxe qui se trouve dans mon code ci-dessous :

Code :

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

1
2
3
4
Private Sub NUM_Click()
If NUM.Value = 1 Then
DATE_RECH.Value = DLookup("[DATE]", "POST", "[PAT]" = Me.PAT)
End Sub

Access me renvoit l'erreur "ne trouve pas le champ PAT auquel il est fait référence dans votre expression".

J'ai essayé avec "[PAT]"=Forms![POST]![PAT] et "[PAT]"=Forms("POST")("PAT"), rien n'y fait j'ai toujours la même erreur !

Merci à vous,

Tagada_or

[madefemere]

Bonjour,

Ce serait plutôt :

Code :

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

1
2
3
4
Private Sub NUM_Click()
If NUM.Value = 1 Then
DATE_RECH.Value = DLookup("[DATE]", "POST", "[PAT]=" & Me.PAT)
End Sub

Cordialement,

[Tagada_Or]

Merci beaucoup, ça fonctionne !

Tagada_or