Bonjour

J'ai récupéré ce code qui fonctionne parfaitement sur une base access de type .accdb qui se trouve sur mon bureau.
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
Sub toto()
 
Dim oRst As DAO.Recordset
Dim oDb As DAO.Database
Set oDb = CurrentDb
 
Set oRst = oDb.OpenRecordset("SELECT Field1 FROM Table1 ", dbOpenDynaset)
 
MsgBox "Le nom du client est : " & oRst.Fields("Field1").Value
 
'Libération des objets
oRst.Close
oDb.Close
Set oRst = Nothing
Set oDb = Nothing
 
End Sub
Par contre le même code mis dans un module d'une base mise sous SQL server (extension .adp) ne fonctionne plus
Le message d'erreur est
Run-Time error'91' Object variable or with block variable not set
Il semble d'après des infos glanées sur des forum qu'il s'agisse d'un problème de bibliothèques.

Pour info les références (menu "Tools/References" dans module VBA) que j'ai sur cette base mise sur serveur sont :
- Visual Basic For Applications
- Microsoft Access 14.0 Object Library
- Microsoft Office 14.0 Access database engine Objet
- OLE Automation

Si je tente d'ajouter :
- Microsoft DAO 3.6 Object library

le message d'erreur est
Name conflicts with existing module, project, or object library
Quelqu'un a t-il une idée ?
Merci d'avance pour votre aide.