[AC-2010] erreur code lors d'une verification de doublon [Résolu]

[sebing]

Bonjour,

J'ai un formulaire de saisie qui sert a renseigner une table.
J'essaye de faire un code qui verifie que tous les champs sont renseignés et que la saisie n'a pas été deja renseignée dans la table pour cette année.
Mon code renvoi une erreur:

Erreur d'execution'2471'
L'expression entrée comme paramètre de requete est à l'origine de l'erreur suivante: "EXTI".

EXTI est la valeur du type_vop du formulaire

Je vous donne le code, j'ai mis en rouge la ligne est en défaut:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Commande11_Click()


Dim intRep As String
'Controler la saisie des champs
If (Me.Type_vop <> "") And (Me.cie <> "") And (Me.date_vop) <> "" And (Me.note.Value <> 1) Then
'déclaration de la variable qui servira pour la verification de doublure, renvoi 0 s'il n'y a pas de doublure
Dim dblverif As Long, dvop As Date
dvop = Year(CDate(Me!date_vop))
dblverif = Nz(DLookup("[Type_vop]", "vop", "([Type_vop]<>" & Nz(Me!Type_vop.Value, 0) & ") and ([cie] <>" & Me!cie.Value & ") and year(date_vop)<>" & dvop), 0)'mettre le controle des doublons
If (dblverif = 0) Then
    
    DoCmd.Close acForm, "vop"
   Else
      MsgBox ("Ce type de contrôle a déja été enregistré cette année pour cette compagnie !")
   End If
   
Else
   MsgBox ("Erreur de saisie, veuillez renseigner tous les champs et la note !")
End If

End Sub

Merci de votre aide

Bonne journée

Seb

[loufab]

Bonjour,

Une piste pour apprendre à se corriger.

Que renvoi cette expression ?

Code :

debug.print "([Type_vop]<>" & Nz(Me!Type_vop.Value, 0) & ") and ([cie] <>" & Me!cie.Value & ") and year(date_vop)<>" & dvop

Cordialement,

[sebing]

Dans la fenetre d'execution j'ai:

Code :

1
2
3
4
5
6
([Type_vop]<>EPI) and ([cie] <>clic) and year(date_vop)<>2011
([Type_vop]<>EPI) and ([cie] <>clic) and year(date_vop)<>2011
([Type_vop]<>EPI) and ([cie] <>clic) and year(date_vop)<>2011
([Type_vop]<>EPI) and ([cie] <>clic) and year(date_vop)<>2011
([Type_vop]<>EPI) and ([cie] <>clic) and year(date_vop)<>2011
([Type_vop]<>EPI) and ([cie] <>clic) and year(date_vop)<>2011

Je comprend rien

Merci de l'aide apporté

Cordialement
Seb

[loufab]

Avec des valeurs de type Texte(string) il faut les séparateurs.

soit doubler le double cote soit utiliser les simples cotes.

Code :

([Type_vop]<>EPI) and ([cie] <>clic) and year(date_vop)<>2011

[Type_vop] et [cie] sont des valeurs texte. Voici l'expression que tu dois obtenir.

Code :

([Type_vop]<>'EPI') and ([cie] <>'clic') and year(date_vop)<>2011

Voici comment tu dois modifier la ligne

Code :

"([Type_vop]<>'" & Nz(Me!Type_vop.Value, 0) & "') and ([cie] <>'" & Me!cie.Value & "') and year(date_vop)<>"

Tu as un bon tuto sur ce sujet :
le fonction de domaine et le debogage des requetes en VBA. A lire obligatoirement.

Cordialement,

[sebing]

Merci, ça marche
J'ai lu les tutos en diagonale, ils sont sympas.
Le débogage est un peu dur à comprendre.
Je vais sortir les tutos en papier et les lire tranquillement à tête reposée.

Encore merci

Bonne journée

Seb