Private Sub cmdAjouter_Click()
'ERREUR si un champs vide
Dim meschamps As String
meschamps = ""
If A = "" Then
meschamps = "A"
TXT_A.ForeColor = &HFF&
Else
TXT_A.ForeColor = &H80000012
End If
If B = "" Then
meschamps = IIf(meschamps = "", "B", meschamps & "-B")
TXT_B.ForeColor = &HFF&
Else
TXT_B.ForeColor = &H80000012
End If
If C = "" Then
meschamps = IIf(meschamps = "", "C", meschamps & "-C")
TXT_C.ForeColor = &HFF&
Else
TXT_C.ForeColor = &H80000012
End If
If D = "" Then
meschamps = IIf(meschamps = "", "D", meschamps & "-D")
TXT_D.ForeColor = &HFF&
Else
TXT_D.ForeColor = &H80000012
End If
If meschamps <> "" Then
MsgBox "Erreur le(s) champ(s) " & meschamps & " est(sont) vide(s)"
Exit Sub
End If