Bonjour à tous
Je travaille sous W2k
avec Access 2000 et aussi VB 5.0
J'ai une base bd1.mdb dans laquelle j'ai écrit le module suivant:
Option Compare Database
Dim LaBase As Database
Dim Enrg As Recordset
Sub AssocieVignette()
Set LaBase = CurrentDb
Set Col_Tab = LaBase.TableDefs
Set La_Tab = Col_Tab("DVD")
MsgBox La_Tab.Name
Set Enrg = LaBase.OpenRecordset("DVD", dbOpenTable)
End Sub
C'est la ligne Set Enrg=... qui me génère une erreur d'ecution n°13
(incompatibilité de type)
Sous VB5 j'ai écrit le module suivant
Dim EspTravail As Workspace
Dim LaBase As Database
Dim Enrg As Recordset
Sub Ouverture()
Set EspTravail = CreateWorkspace("", "admin", "", dbUseJet)
Set LaBase = EspTravail.OpenDatabase(App.Path + "\bd1.mdb")
MsgBox LaBase.TableDefs(1).Name
Set Enrg = LaBase.OpenRecordset("DVD", dbOpenTable)
MsgBox Str(Enrg.RecordCount)
EspTravail.Close
End Sub
Sub main()
Call Ouverture
End Sub
Je travaille avec la même base et la le Set Enrg ne pose aucun problème
Dans les deux cas j'ai bien comme référence
Microsoft D.A.O. 3.6 Object Library
Je ne comprends pas
Merci d'avance pour vos idées
