Bonjour
Je veux faire la recherche de date et matricule la recherche
mais par fois si je clique sur le Bouton devCommande par fois il
me donne la recherche demandée mais dés fois il me montre le numéro
mais la date n'est pas normale.
Private Sub cmdrech_Click()
If sdatepaiement = "" Or smatricule = "" Then
Exit Sub
End If
If Not IsDate(sdatepaiement) Then
MsgBox "Format de date incorrect"
Exit Sub
End If
dat = "datepaiement='" & sdatepaiement & "'"
crit = "matricule='" & smatricule & "'"
With recordsetemp
.MoveFirst
.Find dat
.Find crit, , adSearchForward
If .EOF Then
MsgBox "Enregistrement non situé", vbCritical
modif.Enabled = False
actu.Enabled = True
men.Enabled = False
bulletin.Enabled = False
pret.Enabled = False
suiv.Enabled = False
maj.Enabled = False
End If
End With
End Sub