1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44
| Private Sub btnValidation_Click()
Dim chkCount As Integer
Dim strWhere As String
Dim ctrl As Control
Dim chkBool As Boolean
For Each ctrl In Me.Controls
Select Case ctrl.ControlType
Case acTextBox
chkBool = Len(ctrl.Value & vbNullString) = 0
Case acComboBox
chkBool = (ctrl.ListIndex = -1)
Case acListBox
chkBool = (ctrl.ListCount = 0)
Case Else
chkBool = False
End Select
If chkBool Then
MsgBox "Vous devez saisir un nom dans " & ctrl.Name, vbOKOnly + vbExclamation, "Saisie obligatoire"
ctrl.SetFocus
Exit For
End If
Next ctrl
strWhere = "([Pays_Nom] = """ & Me.Pays_Nom & """) AND " & _
"([Pays_ISO] = """ & Me.Pays_ISO & """)"
chkCount = DCount("*", "T_Pays", strWhere)
If chkCount <> 0 Then
MsgBox "Le nom du pays et son code ISO exsistent déjà !", vbOKOnly + vbExclamation, "Risque de doublon"
Me.Pays_Nom = Null
Me.Pays_ISO = Null
Me.Pays_Nom.SetFocus
Else
CurrentDb.Execute "INSERT INTO T_Pays (Pays_Nom, Pays_ISO, Pays_EEE)" _
& " VALUES (""" & UCase(Me.Pays_Nom) & """, """ & UCase(Me.Pays_ISO) & """, " & Me.Pays_EEE & ")", dbFailOnError
MsgBox "Le nom du pays et son code ISO ont été enregistrés", vbOKOnly + vbInformation, "Pour information"
Me.Pays_Nom = Null
Me.Pays_ISO = Null
Me.Pays_EEE = False
Me.Pays_Nom.SetFocus
End If
End Sub |
Partager