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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 Private Sub CmdNvlEnregPanel_Click() ' bouton pour effacer le contenu du formulaire DoCmd.GoToRecord , , acNewRec End Sub
Partager