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 :
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).
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
Merci de votre éclairage.
Partager