Discussion :

[joe370]

bonjour
je voudrai utiliser un recordset mais j'ai le msg d'erreur suivant :
"variable objet ou variable de bloc with non defini"
voici mon code :

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
 
Private Sub Form_Current()
    Dim acteur As DAO.Recordset
    Dim i As Integer
    i = 0
    Dim sql As String
    sql = "SELECT acteur.nom FROM acteur, jouer, films where acteur.codeacteur=jouer.codeacteur and films.codefilm=jouer.codefilm and film.titre='" & Titre.Value & "'"
    ' Ouverture du recordset
    acteur.OpenRecordset
    If Not acteur.EOF Then
      acteur.MoveFirst
      While Not acteur.EOF
         MsgBox acteur(i).Value
         acteur.MoveNext
         i = i + 1
      Wend
    Else

on m'avait di de coché "microsoft DAO 3.6 object library" dans les reference mai lorsque je le fait j'ai un autre msg d'erreur :
"nom de module de projet ou de bibliothèque d'objet déja utilisé"
Quelqu'un pourrait il m'aider???...

merci d'avance...

[Demco]

Bonjour,

Je te conseille dans un premier temps de consulter la FAQ pour l'utilisation des recordset.

Tu n'affectes pas ton code SQL à ton Recordset.

En espérant t'aider.

[Gabout]

Bonsoir,

Qui plus est ta requête SQL doit se terminer par un ";". Demco a raison, tu dois modifier pas mal de chose dans ton code. C'est quelque chose du genre

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
Dim oRst As DAO.Recordset
Dim oDb As DAO.Database
Dim sQL As String
'Je n'ai pas vérifié ta requête
sSQL = "SELECT acteur.nom FROM acteur, jouer, films where acteur.codeacteur=jouer.codeacteur and films.codefilm=jouer.codefilm and film.titre='" & Titre.Value & "';"
Set oDb = CurrentDb
Set oRst = oDb.OpenRecordset(sSQL, dbOpenDynaset)
    'Tant que non fin du recordset
    While Not oRst.EOF
        MsgBox oRst.Fields("nom").Value
    'Passer au suivant
    oRst.MoveNext
    Wend
oRst.Close
oDb.Close
Set oRst = Nothing
Set oDb = Nothing

Va jeter un oeil http://warin.developpez.com/access/dao/
Désolé, je suis à la bourre !

Bon courage