Discussion :

[jerzy59]

A quoi peut être due une erreur : "Variable objet ou variable bloc with non définie"

Cette erreur intervient sur la ligne

Code :

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

BDD.RecupDonnee ReqSQL, varTableau

Sachant que l'objet Bdd est déclaré, récupdonnee est une fonction définie, reqSQL et vartableau sont des variable globales définies.
D'ou peut provenir mon erreur ?

[linda15975]

Tu devrais peut-être nous mettre tes déclarations. Des fois il suffit d'une faute de frappe pour que ça plante.

[jerzy59]

Non j'ai bien vérifié mes déclarations (ainsi que celles de la fonction recupdonnees) elle sont toutes reconnues et identifiées.

Code :

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

Public BDD As clsBDD

clsBDD est un module de classe (contenant notemment la fonction recupdonnee).

ReqSQL est déclaré comme une chaine de caractere et vartableau comme un Variant

Et voici l'entête de la fonction recupdonnee

Code :

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

Public Sub RecupDonnee(ByVal ReqSQL As String, ByRef Tableau As Variant)

[SfJ5Rpw8]

et varTableau il est ou ?

[jerzy59]

Vartableau et ReqSQL sont déclarés dans un module.

[random]

une fonction doit ete affectée à une variable
donc

Code :

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

1
2
dim mavar as variant
mavarr=BDD.RecupDonnee ReqSQL, varTableau

ou alors on l'invoque avec un call

[jerzy59]

J'ai essayé mais cela ne fonctionne pas. Toujours la même erreur.
j'ai aussi essayé

Code :

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

Set BDD = new clsBDD

Dans ce cas j'ai toujours des messages d'erreurs.

J'ai également vérifié toute la syntaxe de mon code mais le problème ne vient apparement pas de là.
Je commence à secher

[SfJ5Rpw8]

J'ai essayé mais cela ne fonctionne pas. Toujours la même erreur.
j'ai aussi essayé

Code :

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

Set BDD = new clsBDD

Dans ce cas j'ai toujours des messages d'erreurs.

J'ai également vérifié toute la syntaxe de mon code mais le problème ne vient apparement pas de là.
Je commence à secher

même message d'erreur .?

[jerzy59]

Oui toujours le fameux "variable objet ou variable bloc with non défini"
Ceci dit le programme ne se stoppe plus. Ainsi je rencontre une 2eme fois cette erreur à ce niveau

Code :

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

Prefixe = BDD.LireParametre("prefixefax")

Donc apparement ça a l'air lié aux appels à BDD.

Ensuite le programme se termine "normalement"

[bhaal76]

vérifie que le

Code :

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

1
2
 
Set BDD = new clsBDD

est bien effectué avant tout le reste ...

et au passage, vérifie que lorsque tu quites ton programme, tu fais bien un

Code :

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

1
2
 
Set BDD = nothing