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 :
merci à vous
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
isabelle
Partager