Bonjour

Je souhaite mettre à jour une table avec une requête ajout et j'ai voulu vérifier la présence d'un numéros de référence pour annuler s'il existe dans la base de données.

Voici le code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
Private Sub btnSave_Click()
If Not IsNull(DLookup("RefDeclaration", "[tbl Finale]", "RefDeclaration=" & Me.RefDeclaration)) Then
MsgBox "Cette facture existe dans la base de données"
Else
DoCmd.OpenQuery "MiseAJourFinale"
End If
End Sub

et le problème est qu'il y a erreur à l'execution avec ce message

Erreur d"execution 3464
Type de données incompatible dans l"expression du critère
Pouvez-vous me dire ce que je dois corriger dans ce code?

Merci