erreur 91 sur recordset en vba!!!... help!

Question

Bonjour à tous,

Je "plante" lamentablement sur un code pourtant très simple!!!
J'ai créé un formulaire avec un listview et des labels. lorsque je clique sur le listview le label1 s'alimente du code désiré.
le label2 doit s'alimenter de la désignation de ce code, suite à une requète. Seulement, l'erreur 91 (variable objet ou variable de bloc With non définie) apparait au moment de l'exécution du recordset
ci-dessous le code (niveau maternelle environ!!!!)
Private Sub monlistview_Click(File As String)

Dim req as String
Dim rs As DAO.Recordset
Dim val As String
Dim lblform As String

val = Left(File, 6) & "FP" & Mid(File, 7, 2)
lbl1.Caption = Ucase(val)
req = "SELECT * FROM matable WHERE Code=""" & val & """"
Set rs = db.OpenRecordset(req, DB_OPEN_SNAPSHOT)
lbl2.Caption = rs3!Désignation

End Sub

En vous remerciant d'avance pour vos suggestions.... 
(snif.... prendre du retard sur des choses aussi basiques, j'ai honte!!!!)

setfocus · Answer

..... et en plus j'écris n'importe quoi!!!!

J'utilise le contrôle ActiveX "FileListBox" et non un listview.... bref!

PCPT · Answer

salut,

umm, et come çà çà donne quoi? :

Private Sub monlistview_Click(File As String)
    Dim req As String
    Dim rs As New DAO.Recordset 'beh ouai sans NEW çà 
va poser problème :)
    Dim sVal As String 'évitons le mot clé VAL
    'Dim 
lblform As String '<- apparemment pas utilisée

    sVal = Left$(File, 6) & "FP" & Mid$(File, 7, 2) 'avec $ c'est pass plaus 
mal
    lbl1.Caption = UCase$(sVal) 'avec $ c'est pass plaus mal
    req = "SELECT * FROM matable WHERE Code 
= '" & val & "'" 'pas besoin de 
""""
    Set rs = db.OpenRecordset(req, dbOpenDynase) 'd'où sortait DB_OPEN_SNAPSHOT ?
    rs.MoveLast 'en DAO (obsolète), il faut 
déplacer le curseur à la fin
    rs.MoveFirst 'puis au début, pour 
éviter tout problème de position...
    lbl2.Caption = rs!Désignation 'pas RS3 
qui n'existe pas....
End Sub

++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

PCPT · Answer

pas plus mal*, désolé pour les fautes.... ^^

NB : si le retour de requête est vide, tu auras une erreur (la 3021)
++

Erreur 91 sur recordset en vba!!!... help!

3 réponses

Votre réponse

Discussions similaires