Erreur de variable =| ??!Résolu

Question

Lut tout le monde J'ai une requête dans laquelle je voudrais récupéré des infos. Ces infos étant dans la table TableImport. Private Sub btnRapport_Click() Dim Rst As Recordset, Rst2 As Recordset Screen.MousePointer = vbHourglass If cboProfil.ListIndex < 0 Then MsgBox "Veuillez sélectionner un profil", vbInformation, "Information" cboProfil.SetFocus Else If cboPc.ListIndex < 0 Then MsgBox "Veuillez sélectionner un pc", vbInformation, "Information" cboPc.SetFocus Else Db.Execute "DELETE * from Impression", dbOpenDynaset Set Rst Db.OpenRecordset("select * from detailprofil where Numprofil" & cboProfil.ItemData(cboProfil.ListIndex), dbOpenSnapshot) While Not Rst.EOF Set Rst2 Db.OpenRecordset("select * from tableimport where libellé'" & cboPc.List(cboPc.ListIndex) & "'" And Page = Rst!Page And Group = Rst!Group And Item = Rst!Item, dbOpenDynaset) While Not Rst2.EOF Rst2.MoveNext Wend Rst2.Close Wend Rst.Close End If End If Screen.MousePointer = vbDefault End Sub Le prob c'est qu'il me dis que "Page" dans le RST2 est une variable non définie alors que c'est un champs dans La table "TableImport" Merci bcp... _______________________ 4L!@$ >>>>

Ricks27 · Accepted Answer

Avant :
Set Rst2 Db.OpenRecordset("select * from tableimport where libellé'" & cboPc.List(cboPc.ListIndex) & "'" And Page = Rst!Page And Group = Rst!Group And Item = Rst!Item, dbOpenDynaset)

 Après : 

Set Rst2 =Db.OpenRecordset("select * from tableimport where libellé ='" & cboPc.List(cboPc.ListIndex) & "' And Page='" & Rst!Page & "' And Group ='" & Rst!Group & "' And Item='" & Rst!Item &"'",dbopendynaset)

Ricks27

jrivet · Answer

Salut,

Ne faudrait il pas essayer de changer :
Set Rst2 Db.OpenRecordset("select * from tableimport where libellé'" & cboPc.List(cboPc.ListIndex) & "'" And Page = Rst!Page And Group = Rst!Group And Item = Rst!Item, dbOpenDynaset)

Par 
Set Rst2 Db.OpenRecordset("select * from tableimport where libellé'" & cboPc.List(cboPc.ListIndex) & "'" And Page = '" &  Rst!Page & "' And Group = '" & Rst!Group & "' And Item = '" & Rst!Item & "'", dbOpenDynaset)

@+
Julien
-----------------------------------------------------------
 :big)  Essai ca sinon on trouvera autre chose  ;) 
-----------------------------------------------------------

alias666 · Answer

Il n'y aurais pas une erreuer dans ta syntaxe?? C'est tout rouge lo  :big) 

_______________________
4L!@$ >>>>

alias666 · Answer

Bon j'appele mon acolyte a réponse dans mon sub conscient  :big) 

_______________________
4L!@$ >>>>

alias666 · Answer

Dsl je viens de trouver avant que tu me le dise. Merci quand même :D

_______________________
4L!@$ >>>>

Erreur de variable =| ??!

5 réponses

Discussions similaires