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
| DoCmd.SetWarnings False
' verrifie si l'adh?rent est d?j? inscrit
If DCount("*", "Base_G?n?rale", "ELE_NOM = '" & Me.ELE_NOM & "' AND ELE_PRENOM = '" & Me.ELE_PRENOM & "'") = 0 Then
Me.ELE_NUMERO.Value = Format(Nz(DMax("[ELE_NUMERO]", "[Base_G?n?rale]"), Forms![Initialisation]!NUM) + 1)
'inscrption dans la base G?n?rale
CurrentDb.Execute "INSERT INTO Base_G?n?rale (ELE_NUMERO, ELE_CIVILITE, ELE_NOM, ELE_PRENOM, ELE_ADRESSE, ELE_CPOSTAL, ELE_VILLE, ELE_COURRIEL, ELE_TELEPHONE, ELE_QUALITE, ELE_NP)" _
& " In 'D:\Boule_Gouvillaise\Boule_gouvillaise .accdb'" _
& " VALUES (" & Me.ELE_NUMERO & ", '" & Me.ELE_CIVILITE & "', '" & Me.ELE_NOM & "', '" & Me.ELE_PRENOM & "', '" & Me.ELE_ADRESSE & "', '" & Me.ELE_CPOSTAL & "', '" & Me.ELE_VILLE & "', '" & Me.ELE_COURRIEL & "', '" & Me.ELE_TELEPHONE & "', '" & Me.ELE_QUALITE & "', '" & Me.ELE_NP & "')", dbFailOnError
rep = MsgBox("L'ADHERENT EST ENREGISTRE", vbOKOnly, "CONFIRMATION")
DoCmd.SetWarnings True
Else
MsgBox "L'ADHERENT EST DEJA INSCRIT DANS LA BASE GENERALE !", vbOKOnly, "AFFIRMATION"
End If
DoCmd.Close
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "F_g?n?ral"
DoCmd.OpenForm "F_g?n?ral", acNormal, "", "", , acDialog
LL:
End Sub |
Partager