Fonction verifier dans access
laura38
-
mprog67 -
mprog67 -
Bonjour,
Je suis débutante sur access. j'ai une question :
J'ai créé un formulaire " saisie d'un client"avec une macro " enregistrer". Lorsque j'appuie sur ce bouton ca doit fermer la fenetre mais avant tout vérifier si il n'existe pas déja un client portant ce nom. Comment faire ??? j'arrive a créer le bouton enregistrer mais pas a savoir si un client porte déja ce nom.
Aidez moi s'il vous plait !!! merciiii
Laura
Je suis débutante sur access. j'ai une question :
J'ai créé un formulaire " saisie d'un client"avec une macro " enregistrer". Lorsque j'appuie sur ce bouton ca doit fermer la fenetre mais avant tout vérifier si il n'existe pas déja un client portant ce nom. Comment faire ??? j'arrive a créer le bouton enregistrer mais pas a savoir si un client porte déja ce nom.
Aidez moi s'il vous plait !!! merciiii
Laura
A voir également:
- Fonction verifier dans access
- Fonction si et - Guide
- Verifier compatibilite windows 11 - Guide
- Vérifier version windows - Guide
- Vérifier température pc - Guide
- Vérifier si mot de passe piraté - Guide
1 réponse
Salut voila un code source que j'espère vous sera utile
Private Sub DateNaiss_AfterUpdate()
Dim dbs As Database
Dim rst As Recordset
Dim sql As String
Dim Trouvé As Boolean
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("RCV")
If rst.RecordCount = 0 Then
MsgBox "Le fichier 'Etat Civil' est vide." & _
CHR(13) & "Reportez-vous au menu:" & _
CHR(13) & "'Fichier'-'Edition'->'Registre communal de vaccination'," & _
CHR(13) & "pour remplire ce dernier.", vbInformation, "Gestion de la vaccination (PEV)."
Else
rst.MoveFirst
Trouvé = False
For i = 0 To rst.RecordCount - 1
If rst.Fields(4) = Me!DateNaiss Then
sql = "Select NumOrdre,NEC AS [NumE-C],Nom,Prénom," & _
"DateNaiss AS [DteNaiss]," & _
"PDP,Adresse FROM RCV WHERE DateNaiss =#" & ConvertDate(Me!DateNaiss) & "# ORDER BY Nom;"
Me.ListeFiltre.RowSource = sql
Me.ListeFiltre.SetFocus
Me.Valider.Enabled = True
Trouvé = True
Exit For
End If
rst.MoveNext
Next i
End If
If Trouvé = False Then
MsgBox "Cette date de naissance n'existe pas.", vbInformation, "Gestion de la vaccination (PEV)."
Me!ListeFiltre.SetFocus
Me!DateNaiss.SetFocus
End If
If Me.ListeFiltre.ListCount <> 0 Then
Me.ListeFiltre.ControlTipText = "Sélectionner l'enfant concerné par l'acte vaccinal." & _
CHR(13) & "Pour afficher son calendrier de vaccination,cliquez" & _
CHR(13) & "sur le boutton droit de la souris et dans le menu," & _
CHR(13) & "cliquer sur 'Afficher le calendrier de vaccination'."
Me.ListeFiltre.ShortcutMenuBar = "ShowCalendar"
Else
Me.ListeFiltre.ControlTipText = ""
Me.ListeFiltre.ShortcutMenuBar = ""
End If
End Sub
Private Sub DateNaiss_AfterUpdate()
Dim dbs As Database
Dim rst As Recordset
Dim sql As String
Dim Trouvé As Boolean
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("RCV")
If rst.RecordCount = 0 Then
MsgBox "Le fichier 'Etat Civil' est vide." & _
CHR(13) & "Reportez-vous au menu:" & _
CHR(13) & "'Fichier'-'Edition'->'Registre communal de vaccination'," & _
CHR(13) & "pour remplire ce dernier.", vbInformation, "Gestion de la vaccination (PEV)."
Else
rst.MoveFirst
Trouvé = False
For i = 0 To rst.RecordCount - 1
If rst.Fields(4) = Me!DateNaiss Then
sql = "Select NumOrdre,NEC AS [NumE-C],Nom,Prénom," & _
"DateNaiss AS [DteNaiss]," & _
"PDP,Adresse FROM RCV WHERE DateNaiss =#" & ConvertDate(Me!DateNaiss) & "# ORDER BY Nom;"
Me.ListeFiltre.RowSource = sql
Me.ListeFiltre.SetFocus
Me.Valider.Enabled = True
Trouvé = True
Exit For
End If
rst.MoveNext
Next i
End If
If Trouvé = False Then
MsgBox "Cette date de naissance n'existe pas.", vbInformation, "Gestion de la vaccination (PEV)."
Me!ListeFiltre.SetFocus
Me!DateNaiss.SetFocus
End If
If Me.ListeFiltre.ListCount <> 0 Then
Me.ListeFiltre.ControlTipText = "Sélectionner l'enfant concerné par l'acte vaccinal." & _
CHR(13) & "Pour afficher son calendrier de vaccination,cliquez" & _
CHR(13) & "sur le boutton droit de la souris et dans le menu," & _
CHR(13) & "cliquer sur 'Afficher le calendrier de vaccination'."
Me.ListeFiltre.ShortcutMenuBar = "ShowCalendar"
Else
Me.ListeFiltre.ControlTipText = ""
Me.ListeFiltre.ShortcutMenuBar = ""
End If
End Sub
