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
Partager