Discussion :

[30avril1989]

Bonjour,

Vous trouverez ci-dessous un recordset. Lors de la compilation, le message d'erreur suivant apparait:

Erreur de compilation: Incompatibilité de type

Et il me surligne "OpenRecordset" sur la ligne 7.

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
Sub LesZones()
Dim D As DAO.Recordset
Dim bd2 As DAO.Database
Dim Zone As DAO.TableDef
Dim s As String
Set bd2 = Currentbd2
Set D = bd2.OpenRecordset(Zone, bd2OpenDynaset)
s = ""
D.MoveFirst
Do Until D.EOF
s = s & D!Zone
D.MoveNext
Loop
D.Close: Set D = Nothing
MsgBox (s)
End Sub

Merci pour votre aide

[fgiambelluco]

Bonjour
Je pense qu'un bon tuto ne serait pas inutile (surtout la partie 5)
http://warin.developpez.com/access/dao/

Bonne lecture

[30avril1989]

Je viens de le lire, mais çà ne m'a pas aidé à résoudre mon problème.

Merci quand même!

[fgiambelluco]

Re
Si tu l'as lu, tu aurais du corrigé

Code :

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

1
2
Set bd2 = Currentbd2
Set D = bd2.OpenRecordset(Zone, bd2OpenDynaset)

par

Code :

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

1
2
Set bd2 = CurrentDb
Set D = bd2.OpenRecordset(NomDeTable, dbOpenDynaset)

Ta variable Zone ne doit être rien d'autre qu'une chaine de type Texte (String) et surtout pas TableDef. Cette chaine peut contenir, soit le nom d'une table, soit l'expression SQL d'une requête.
Bonne continuation

[30avril1989]

Merci pour ta réponse.
Ce changement entraine une nouvelle erreur !

Ligne 6 : "Erreur d'exécution 424 : Objet requis"

[fgiambelluco]

Re
Dans le code que je t'ai donné, as tu bien remplacé NomDeTable par le nom de la table que tu veux lire (exemple "Clients") ou par une expression SQL (exemple "SELECT * FROM CLIENTS") ????


PS: tu risques d'avoir un autre problème plus loin s = s & D!Zone. Cette instruction ne veut rien dire. On utilise D![NomDuChamp] (exemple : D![nom_client])

Je te conseille de relire les exemples du tutos.

[30avril1989]

Re,

Merci pour l'aide que tu m'apportes.

Mais j'ai toujours la même erreur: "Objet requis" (Ligne 6)

Sub LesZones()
Dim D As DAO.Recordset
Dim bd2 As DAO.Database
Dim Zone As DAO.TableDef
Dim s As String
Set bd2 = Currentbd2
Set D = bd2.OpenRecordset("SELECT * FROM prout", bd2OpenDynaset)
s = ""
D.MoveFirst
Do Until D.EOF
s = D![prout]
D.MoveNext
Loop
D.Close: Set D = Nothing
MsgBox (s)
End Sub