Bonjour

Dans un sous formulaire en sous continu, je souhaite annuler l'ajout d'un enregistrement si aprés le choix dans une liste déroulante, ce choix existe déjà dans des enregistrements précédents

J'ai essayé beforeinsert et beforeupdate du sous formulaire mais soit il n'identifie pas que l'enregistrement existe déjà soit il n'annule pas l'enregistrement.

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
 
Private Sub Form_BeforeInsert(Cancel As Integer)
 
' Je ne veux pas de nouvel enregistrement contenant "pédiatrique"
If Me.Type_Chirurgie Like "*pédiatrique*" Then
 
'Je compte les enregistrements dans la table qui contiennent  déjà "pédiatrique"
       If DCount("[ID_Type_chirurgie]", "T_type_chirurgie_data", "[ID_intervention]=" & Me.ID_Intervention & " And [Type_chirurgie] Like '*pédiatrique*'") > 0 Then
            MsgBox "Modifiez plutôt l'intervention dans le formulaire  (double clic sur le champ)"
            Cancel = True
            Me.Undo
 
        Else
 
'sinon je laisse le code s'exécuter
Merci pour vos suggestions