Discussion :

[ahoure]

Bonjour à tous

j'ai inséré un code dans les contrôles Nom et Prénoms,pour m'avertir lorsque je saisie dans mon formulaire [b]Renseignement[b], une identité dans la table Patients dont voici le code qui marche :

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
20
21
22
23
 
If IsNull(Me.Prénoms) Then Exit Sub
If DCount("*", "Patients", "Nom = """ & Me.Nom & """ and Prénoms = """ & Me.Prénoms & """") <> 0 Then
 Dim reponse As String
   reponse = MsgBox("Cet ajout ferait doublon !" & vbCrLf & "Vous voulez poursuivre l'enregistrement quand même ?" & vbCrLf & "Si oui renseigner la case qui vous sera proposée...Merci !", vbYesNo + vbQuestion, "question")
 
 
            If reponse = vbNo Then
       Cancel = True
   Me.Undo
 DoCmd.Close acForm, "Renseignement"
 
 Else
 Me.Autre.Visible = True
 Me.Autre.SetFocus
 
 
    End If
 
End If
 
 
End Sub

je veux maintenant associer "Nom", "Prénom" et "DateNaissance", malheureusement je n'y arrive pas...

Quelqu'un pourrait t'il m'aider ?

Merci de me répondre.

[bernardmichel]

Hello,

Voilà un petit bout de code qui devrait vous permettre d'arriver à vos fins:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Commande143_Click()
Dim nbre As Integer
Dim Ddn As Long
 
 
    Ddn = Me.DdNEmploye
    nbre = DCount("*", "tblEmployes", "NomEmploye ='" & Me.NomEmploye & "' AND PrenomEmploye = '" & Me.PrenomEmploye & "' AND DdNEmploye=" & Ddn)
    MsgBox nbre
End Sub