Discussion :

[ninikosim]

bonjour;

je souhaite tester l'existence de deux champ saisie en zone texte dans une table. j'ai fait un petit code pour cela. mais quelque soit la valeur rentrer il me dit que le couple n'existe pas

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub siretexpert_BeforeUpdate(Cancel As Integer)
Dim mDb As Database
Dim mRs As Recordset
Set mDb = CurrentDb
Set mRs = mDb.OpenRecordset("SELECT * From tbl_Mandats WHERE SIRET_CLIENT = 'siretclient' AND SIRET_EXPERT_COMPTABLE = 'siretexpert'")
If mRs.BOF = True And mRs.EOF = True Then
   MsgBox "non existe"
Else
   MsgBox "Mandat existe, veuillez saisir la date de signature"
End If

siretclient et siretexpert sont les noms de mes zone texte dans le formulaire

merci d'avance

[Jean-Philippe André]

salut,
en termes de nombre de lignes de code, je prefererai ici utiliser DCount()

et d'autre part si tu fais appel a tes controls dans ton code, il ne faut pas oublier de les sortir de la chaine de caracteres

Code :

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

1
2
3
4
5
If Dcount("SIRET_CLIENT","tbl_Mandats","SIRET_CLIENT = '" & siretclient & "' AND SIRET_EXPERT_COMPTABLE = '" & siretexpert & "'")>0 Then
Debug.Print "pioupi \o/"
Else
Debug.Print "pipiou /o\"
End if

[ninikosim]

merci j'utilisais Dcount juste pour un seul champs

j'ai teste et ça marche comme je veux

merci beaucoup