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