Discussion :

[lucienkany]

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

[Demco]

RefDeclaration est probablement de type texte, il faut donc que tu entoures ta variable d'apostrophes cf. FAQ.

En espérant t'aider.

[Invité]

Bonjour

De quel type est RefDeclaration ? Si c'est du texte, il faut l'entourer de quotes.

Cela deviendrait

Code :

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

DLookup("RefDeclaration", "[tbl Finale]", "RefDeclaration='" & Me.RefDeclaration & "'")) Then

Starec

[lucienkany]

Merci