Bonjour,

J'ai fait une application Access qui tourne sans problème. Je voudrai la mettre sur le serveur afin de permettre un multi-usage.
J'ai donc scindé ce fichier Access en deux: un fichier de tables et de requetes et un autre pour les formulaires et les Etats.
Je voudrai maintenant attaqué le fichier de donnée (qui devient ma base de données) à travers le 2nd fichier qui joue le rôle d'interface. C'est là où commence mes problèmes.
Quand je garde un seul fichier, j'accède aux données (sans probleme) avec le code suivant
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
 
Function Compte_Ouvrage()
Dim db As DAO.Database, rst As DAO.Recordset
Dim strSQL As String
'Ouverture de la base de données
Set db = CurrentDb() 
 
strSQL = "SELECT count(*) as nbre FROM Ouvrage"  
 
        Set rst = db.OpenRecordset(strSQL)
 
     If Not rst.EOF Then
     Forms!Ouvrage!txtNbre = "OU" & rst!nbre + 1
     End If
'fermeture
rst.Close
End Function
Avec deux fichiers, le code suivant n'attaque pas la base (dans un module du fichier Interface "Client", qui doit chercher les données dans le fichier "BD"):
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
18
19
20
21
22
 
Function Compte_Ouvrage()
 
Dim db As DAO.Database, rst As DAO.Recordset
 
Dim strSQL As String
 
'Ouverture de la base de données
 
'Set db = CurrentDb()
Set db = DBEngine.OpenDatabase("N:\INFORMATIQUE\GESTION\SERVEUR\BD.mdb")
 
strSQL = "SELECT count(*) as nbre FROM Ouvrage"  
 
        Set rst = db.OpenRecordset(strSQL)
 
     If Not rst.EOF Then
     Forms!Ouvrage!txtNbre = "OU" & rst!nbre + 1
     End If
'fermeture
rst.Close
End Function
Message d'erreur: "Erreur de compilation du module..."

Une idée de ce qu'il faut corriger dans la ligne d'ouverture de la base de données?
Merci d'avance.