erreur dans le code vba

Version imprimable

salut tout le monde,
voici mon probleme je travail sur un projet de base de données (un carnet d'adresse) sur une des tables de cette base (la table contacts) je voulais faire un formulaire avec un bouton "ajouter" et dans le code de ce bouton j'ai proceder comme ça :

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
Private Sub ajouter_Click()
On Error GoTo err
    'déclaration des variables
    Dim maBase As DAO.Database
    Dim ContactTest As DAO.Recordset
    Dim Contact As DAO.Recordset
 
    Set maBase = CurrentDb
    Set Contact = maBase.OpenRecordset("Select * from contacts", dbOpenDynaset)
 
        Set ContactTest = maBase.OpenRecordset("select * from [contacts] where [Nom] = '" & Nom & "' and [Prenom] = '" & Prenom & "'", dbOpenDynaset)
        If ((ContactTest.RecordCount = 0)) Then
            With Contact
                .AddNew
                !Nom = Me.Nom
                !Prenom = Me.Prenom
                !Adresse = Me.Adresse
                !Cp = Me.Cp
                !Ville = Me.Ville
                !Pays = Me.Pays
                !Jour = Me.Jour
                !Mois = Me.Mois
                !Annee = Me.Annee
                !Tel = Me.Tel
                !Mail = Me.Mail
                !Commentaires = Me.Commentaires
                .Update
            End With
        Else
           MsgBox ("le contact portant ce nom et ce prenom existe déjà")
        End If
    ContactTest.Close
    Contact.Close
    DoCmd.Close
    [Form_Formulaire1].Refresh
err:
End Sub

mais le probleme c'est que ce bouton ne marche pas il me met erreur, et je sais vraiment pas ou est cette (ou ces) erreurs si quelqu'un peut m'aider et merci d'avance.

03/01/2008, 07h56
pc75

Bonjour,

Déjà, tu enlèves le "On Error GoTo err" et tu sauras sur quelle ligne ça plante.

Ou après ton étiquette Err: tu fais un msgbox Err.Description
03/01/2008, 13h31
jihad33

merci pour votre reponse "pc75" mnt j'ai enlevé le "On Error GoTo err" et le "err:" a la fin du programme , mais ça marche toujours pas, comment je peux savoir sur quelles lignes ça plante (je suis vraiment nul en VB et je suis obliger de passer par cette fonctionn pour ma base).merci pour votre aide.
03/01/2008, 13h53
FreeAccess

Bonjour,

Quel message d'erreur as-tu....:question:

Sinon sur quelle ligne de ton code, le debuggeur s'arrète-il (ligne en jaune...).:question:

C'est pour cela que pc75 te demandais de mettre juste apres Err:

Code:

MsgBox Err.Description
03/01/2008, 13h54
Jean-Philippe André

mets ton curseur au début de la fonction et appuie sur F8, tu parcours le code ligne par ligne.
Dis nou à quelle ligne le pb apparait stp ?
03/01/2008, 14h00
DMboup

Citation:

Set ContactTest = maBase.OpenRecordset("select * from [contacts] where [Nom] = '" & Nom & "' and [Prenom] = '" & Prenom & "'", dbOpenDynaset)

Et si tu commencais par identifier tes variables Nom et Prenom?