Double enregistrement des données du formulaire
Salut chers Amis,
j'ai un véritable probleme avec Access.
jai créé un formulaire d'enregitrement de donées en VBA, lorsue je click sur le bouton enregistré les données du formulaire sont enregistrée en double. Aidez moi a resoudre mon probleme. le code est:
______________________________________
Code:
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 45 46 47 48 49 50 51 52 53 54 55
| Private Sub CmdEnreg_Panel_Click() 'bouton d'enregistrement
Dim dbs As Database
Set dbs = CurrentDb
Dim VerifenregPanel As Integer
'Set dbs = OpenDatabase("Northwind.mdb")
VerifenregPanel = DCount("[Nom_Panelist]", "Paneliste", "Nom_Panelist like '" & Me.Nom_Panelist.Value & "' And Prenom_Panelist = '" & Me.Prenom_Panelist.Value & "' And Situation_Panelist = '" & Me.Situation_Panelist.Value & "'")
If VerifenregPanel > 0 Then
MsgBox "Ce PANELISTE saisi existe dans la base de données"
Cancel = True
Exit Sub
ElseIf Me.Civilite = "" Then
MsgBox "Veuillez choisir la CIVILITE !"
Cancel = True
Exit Sub
ElseIf Me.Nom_Panelist = "" Then
MsgBox "Veuillez saisir le NOM !"
Cancel = True
Exit Sub
ElseIf Me.Prenom_Panelist = "" Then
MsgBox "Veuillez saisir le PRENOM !"
Cancel = True
Exit Sub
ElseIf Me.Situation_Panelist = "" Then
MsgBox "Veuillez choisir la SITUATION !"
Cancel = True
Exit Sub
Else
dbs.Execute " INSERT INTO Paneliste " _
& "(Civilite, Nom_Panelist, Prenom_Panelist, Situation_Panelist) VALUES " _
& "('" & Me.Civilite & "','" & Me.Nom_Panelist & "','" & Me.Prenom_Panelist & "','" & Me.Situation_Panelist & "');"
MsgBox "Le Paneliste a été enregistré !"
DoCmd.GoToRecord , , acNewRec
End If
End Sub |
________________________________________
Code:
1 2 3 4 5
| Private Sub CmdNvlEnregPanel_Click() ' bouton pour effacer le contenu du formulaire
DoCmd.GoToRecord , , acNewRec
End Sub |