[aide] debeugage VBA

**Anorgasmophobie** · 05/05/2007, 07h45

Bonjour a tous,

Voila mon code VBA ne veut pas s'exécuter et me met un messag d'erreur donc si quelqu'un pourrait m'aide merci d'avance

ps : le code ci dessous est en faite un sous programme qui est appelé dans le programme principale

http://www.hebergement-images.com/05/1178343612_fsq.JPG

ps2 : le point jaune sur le code c'est la ligne jaune pour indiquer l'erreur sous visual basic editor

**SfJ5Rpw8** · 05/05/2007, 07h52

c'est quoi le problème... ? la traduction anglais => français..?

ben cela signifie que la procédure : OuvertureBase ... n'est pas accessible depuis l'endroit ou tu l'utilise....

maintenant reste à voir où elle est définie cette procédure...! (une ligne Sub....)

**Anorgasmophobie** · 05/05/2007, 08h04

heu ... elle est définie nul part cette procédure ...

**SfJ5Rpw8** · 05/05/2007, 08h07

Envoyé par Anorgasmophobie

heu ... elle est définie nul part cette procédure ...

ben VBA il est comme toi ... il ne la connaît... pas..

**Anorgasmophobie** · 05/05/2007, 08h12

Ah ... On est bien avancé VBA et moi alors

Comment faire alors ?

**SfJ5Rpw8** · 05/05/2007, 08h15

Envoyé par Anorgasmophobie

Ah ... On est bien avancé VBA et moi alors

Comment faire alors ?

Ben il te faut voir avec le créateur de ton code .. qu'il te donne les autres morceaux.....

sinon tu te met à lire http://vb.developpez.com/cours/ au niveau des base de données... (surement...) et tu re-écrit ton programme...

bon courage...

**Anorgasmophobie** · 05/05/2007, 08h19

ok, merci pour ton aide

**Anorgasmophobie** · 05/05/2007, 08h49

c'est bon j'ai créer le programme ouverture base ()

mais maintenant j'ai une nouvelle erreur et je ne sais pas a quoi elle est du :

http://www.hebergement-images.com/05...7597_dgbfg.JPG

merci

**SfJ5Rpw8** · 05/05/2007, 09h03

et il fait quoi ton programme ouverture_base ..! lol ...

PS : tu vas pas nous faire une copie d'écran à chaque erreur ... on as pas fini...

**Anorgasmophobie** · 05/05/2007, 09h07

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub ouvertureBase()
 
    If Len(Dir("chemin de ma base")) > 0 Then
        Set cnxBase = New ADODB.Connection
 
        cnxBase.Provider = piloteBase
 
        cnxBase.ConnectionString = "chemin de ma base"
 
        cnxBase.Open
    End If
End Sub

mais je pense que pour la derniere erreur sa vient d'ailleur, parce que mon ouvertureBase() marche puisqu'il ouvre la BDD

**SfJ5Rpw8** · 05/05/2007, 09h40

on est parti pour débugger ligne à ligne ..?

la variable : cnxBase est déclarée ou ..?

**Anorgasmophobie** · 05/05/2007, 10h27

c'est bon en faite je me suis juste trompé en déclarant ma variable cnxBase

j'avais mis Public cnnxbase As ADODB.Connection

au lieu de cnxBase ^^

Mais la j'ai un nouveau probleme avec un de mes requetes SQL mais vais d'abord essayer de voir tout seul

merci encore pour ton aide

**Anorgasmophobie** · 06/05/2007, 12h58

re bonjour

voila j'ai encore un autre probleme cette fois ci avec une requete SQL je pense

je m'explique je dois importer d'un tableur excel un NumIntervenant et un NumTache dans une une table d'une BDD, donc dans une table PARTICIPER dans deux "case" (dsl la je vois pas comment le dire ) qui s'appelle NumEmploye et Numtache

Et donc je galere pour les requetes donc voila ma requete (il y a du VBA avec)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function requeteAjoutIntervenant(NumIntervenantI As Long, NumTacheI As Integer) As String
 
'déclaration des variable de la requete
Dim strSQL As String
 
strSQL = "INSERT INTO PARTICIPER (NumEmploye, NumTache )" & _
" VALUES(""" & NumIntervenantI & """, """ & NumTacheI & """)"
 
'renvoie la requete SQL ainsi construite
requeteAjoutIntervenant = strSQL
 
End Function

et j'ai donc un message d'erreur ressemblant a sa et je ne vois pas ou est mon erreur et ce qu'il veut dire :

Run times error '-2147467259 (80004005)'
Vous ne pouvez pas ajouter ou modifier une enregistrement car l'enregistrement associé est requis dans la table 'TACHE'

merci d'avance pour votre aide

**Anorgasmophobie** · 06/05/2007, 15h08

C'est vraiment bizarre, apparement ce n'est pas la requete SQL par elle meme qui est fausse pusique sous visual basic editor quand je fais le déroulement du code pas pas avec F8, tout ce passe bien sur la requete mais il me met ce message d'erreur arrivé a une ligne particuliere :

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
Sub EnregistrerIntervenant(NumeroIntervenant As Long, NumeroTache As Integer)
 
Dim requeteSQL As String
 
'construction de la requete d'insertion
    requeteSQL = requeteAjoutIntervenant(NumeroIntervenant, NumeroTache)
 
'ouverture et appel de la base de données
    Call ouvertureBase
 
 'exécution de la requete d'insertion (SQL)
    connexion.Execute (requeteSQL)
 
'fermeture de la base de donnée
    Call fermetureBase
End Sub

la ligne ou il bloque et me met le message d'erreur est :

Code :

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

 connexion.Execute (requeteSQL)

**SfJ5Rpw8** · 06/05/2007, 17h20

et il y as quoi à ce moment la dans ta variable string "RequeteSql" ?

**Anorgasmophobie** · 06/05/2007, 18h41

la requete SQL en question

**Anorgasmophobie** · 06/05/2007, 18h52

J'ai peut etre trouver d'ou vient le probleme, en faite je dois transferer Numtache dans la table PARTICIPER mais le probleme c'est que NumTache est clé primaire d'une autre table, la table TACHE en l'occurence, est ce que sa pourrait etre sa ?