Private Sub Cmd_ImpressionFiche_Click()
If Me.Cbx_NMR.ListIndex = -1 Then 'si il n'y a pas de selection OU qu'il y a une saisie ne correspondant pas à la liste du combo
Me.Lbl_DateOuverture = ""
Me.Lbl_DateModification = ""
Me.Lbl_DateCloture = ""
Me.Lbl_Description = ""
Exit Sub
End If
'*******************************
'Controls de saisie
If Me.Lbl_DateOuverture = "" Or Not IsDate(Me.Lbl_DateOuverture) Then 'on vérifie que il y a une date et qu'elle est valide
'TxtDateCloture.BackColor = RGB(255, 0, 0)
MsgBox "Merci Il y pas de date Ouverture"
Lbl_DateOuverture.SetFocus
Exit Sub...