Fonction verifier dans access

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