Discussion :

[Campomoro2A]

Bonjour
Je développe une application Access, qui permet d'enregistrer des Utilisateurs.
J'ai un formulaire de saisie et de modification d'un Utilisateur.
Je veux vérifier la règle fonctionnelle suivante : "Il ne peut pas y avoir 2 utilisateurs ayant les mêmes Nom, Prénom et date de naissance".
Pour cela, j'ai écris le 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
Var_Requete = "SELECT Count (*) FROM Table_Utilisateurs " & _
              "WHERE Nom_Utilisateur = '" & Me.Nom_Utilisateur & "' " & _
              "AND Prénom_Utilisateur = '" & Me.Prénom_Utilisateur & "' " & _
              "AND Date_Naissance_Utilisateur = " & Me.Date_Naissance_Utilisateur & " " & _
              "AND Identifiant_Utilisateur <> '" & Var_Utilisateur_Sélectionné & "';"
 
Set Var_Ligne = Var_Base.OpenRecordset(Var_Requete, dbOpenDynaset)
 
If Var_Ligne.Fields(0).Value <> 0 Then
    MsgBox "Il existe déjà un Utilisateur ayant même nom, prénom et date de naissance", vbInformation, "Contrôle doublons Utilisateur"
    Me.Prénom_Utilisateur.SetFocus
    Exit Sub
End If

Si je me limite à une vérification sur Nom et Prénom, cela marche, mais quand j'ajoute la date de naissance, le contrôle ne fonctionne pas, c'est à dire qu'il ne détecte pas les doublons (Var_Ligne.Fields(0).Value est toujours à 0).
Merci de votre éclairage.

[hyperion13]

Salut, pour les dates, il me semble que la syntaxe est la suivante :

Code :

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

"AND Date_Naissance_Utilisateur = #" & Me.Date_Naissance_Utilisateur & "#"

[Campomoro2A]

Super. Ca marche.

Merci beaucoup.