pb ouverture base de donnee - VB/VBA/VBS - Programmation
MarshPosté le 18-03-2004 à 14:14:32
salut, dans mon projet access 2003, j'ai un btn et je voudrai que quand on clique dessus ca ouvre une table d'une autre base de donnees. J'ai mis le code suivant, mais ca plante a la ligne Set rsto = dbo.OpenRecordset("Contacts" ). De quoi ca vient?? j'ai bien ajoute la reference dao 3.6 library. ***** Dim dbo As Database dim rsto As Recordset Set bdo = OpenDatabase(tmpo) Set rsto = dbo.OpenRecordset("Contacts" ) rsto.MoveFirst While rsto.EOF = False MsgBox rsto!Société rsto.MoveNext Wend rsto.Close dbo.Close *** je sais pas si c lié, mais quand j'ouvre ma bdd il y a un message qui dit qu'il manque microsoft jet 4.0 service pack8. C'est quoi?? où le recuperer?? Merci pour votre aide A+ Deubal
Marsh Posté le 18-03-2004 à 14:14:32
salut, dans mon projet access 2003, j'ai un btn et je voudrai que quand on clique dessus ca ouvre une table d'une autre base de donnees. J'ai mis le code suivant, mais ca plante a la ligne Set rsto = dbo.OpenRecordset("Contacts" ). De quoi ca vient?? j'ai bien ajoute la reference dao 3.6 library.
*****
Dim dbo As Database
dim rsto As Recordset
Set bdo = OpenDatabase(tmpo)
Set rsto = dbo.OpenRecordset("Contacts" )
rsto.MoveFirst
While rsto.EOF = False
MsgBox rsto!Société
rsto.MoveNext
Wend
rsto.Close
dbo.Close
***
je sais pas si c lié, mais quand j'ouvre ma bdd il y a un message qui dit qu'il manque microsoft jet 4.0 service pack8. C'est quoi?? où le recuperer??
Merci pour votre aide
A+
Deubal