Discussion :

[isabelle b]

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

[diva-bibi]

Pourquoi ne pas ajouter un connecteur logique AND dans ta requête. Quelque chose comme

Code :

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

1
2
 
rs.FindFirst "nom_organisme='" & NOM_ORGANISME & "' AND addresse_org='" & ADR_ORG & "'"

[ClaudeLELOUP]

Bonjour isabelle b,
En peu de mots :
une requête "VérifDoublons"

Code :

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

1
2
3
4
SELECT Sum(1) AS nbre
FROM T_organisme
WHERE (((T_organisme.Nom_organisme)=[Formulaires]![Formulaire1]![organisme]) AND ((T_organisme.Adresse_organisme)=[Formulaires]![Formulaire1]![Adresse]))
GROUP BY [Nom_organisme] & [Adresse_organisme];

Et sur MàJ du champ "Organisme" (pour autant qu'alors, 'Adresse' est MàJ)

Code :

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

1
2
3
4
5
6
7
8
Private Sub organisme_AfterUpdate()
If Not IsNull(DLookup("nbre", "VérifDoublons")) Then
   MsgBox "Cet organisme existe déjà avec cette adresse", vbInformation, "Vérification création organisme"
' .......
Else
   Exit Sub
End If
End Sub

[isabelle b]

rebonjour Claude

ca c'est de la réponse !!

merci ca marche du tonnerre

Merci également à toi diva-bibi d'avoir répondu, mais ta solution n'a pas fonctionné

bonne journée

isa

[marimad]

Merci bcp mes amis