Discussion :

[rapace]

Bonjour j'ai une macro en VBA qui s'execute par un clic sur un bouton mais celle-ci échoue avec le message d'erreur suivant:

Variable objet ou Variable bloc With non définie

je ne comprends pas mon erreur, si quelqu'un pouvait m'aider...
voici au besoin le code de cette macro:

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
 
Dim stDocName As String
Dim rs1 As DAO.Recordset
Dim SQL As String
 
stDocName = "import"
DoCmd.RunMacro stDocName
 
rs1.OpenRecordset ("select distinct(produit) from sel_new_prod")
rs1.MoveFirst
Do Until rs1.EOF
    SQL = "insert into Article(Code) values ('" & rs1!Produit & "')"
    DoCmd.RunSQL SQL
    rs1.MoveNext
Loop
 
stDocName = "supp_transfert"
DoCmd.RunMacro stDocName

je pense que l'erreur vient du SQL...
ma table article contient d'autres champs mais, ils n'ont pas d'obligation d'etre rempli, j'ai donc mis juste "Code" dans le insert qui est la clé primaire.

[rapace]

Après avoir utilisé des MsgBox pour trouver mon erreur, il semblerait que cela soit au niveau du OpenRecordset....

personne n'a d'idées? je trouve rien dans la FAQ...

merci

[fdraven]

Tu aurais du chercher dans la FAQ comment utiliser un recordset et tu aurais tout de suite vu que ça n'est pas comme ça :

Code :

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

1
2
3
4
5
6
7
 
 
dim db as DAO.Database
dim rst as DAO.recordset
 
Set db = CurrentDb 
Set rst = db.OpenRecordset("requête...")

[rapace]

effectivement pendant que j'attendais des réponses à ce post, j'ai fais un tour plus précis dans la FAQ et j'ai trouvé ma solution.

merci encore