bonjour,

j'ai fait un code pour vérifier lors de la création d'un nouvel organisme qu'il n'existe pas déjà

toutefois, je voudrais que cette vérification porte sur le nom et l'adresse, car je peux avoir plusieurs organismes du même nom mais pas à la même adresse

sauriez vous comment je dois intégrer ce deuxieme critère au code suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub NOM_ORGANISME_AfterUpdate()
Dim bd As DAO.Database
Dim rs As DAO.Recordset
 
Set bd = CurrentDb
Set rs = bd.OpenRecordset("T_Organisme", dbOpenDynaset)
 
rs.FindFirst "nom_organisme='" & NOM_ORGANISME & "'"
 
If Not rs.NoMatch Then
       MsgBox "Cet organisme existe déjà", vbInformation, "Vérification création organisme"
       Me.Undo
 
       NOM_ORGANISME.SetFocus
 
       End If
       Exit Sub
 
End Sub
merci à vous
isabelle