Discussion :

[jihad33]

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 :

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
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.

[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

[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.

[FreeAccess]

Bonjour,

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

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox Err.Description

[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 ?

[DMboup]

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?