[VBA-A] Connection à une base Access

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:

---

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:

---

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.
:mur:

Hello,

L'erreur de compilation s'arrête sur quelle ligne de code ?

ligne de code d'arret:

Code:

---

1 2	Set db = DBEngine.OpenDatabase("N:\INFORMATIQUE\GESTION\SERVEUR\BD.mdb")

---

Le message du precedent post apparait à l'exécution du formulaire.
Quand j'exécute la fonction directement, il affiche le message:
"Erreur d'exécution '3024'
Fichier N:\INFORMATIQUE\GESTION\SERVEUR\BD.mdb introuvable"

MERCI cafeine d'avoir voulu en savoir plus.
En fait le nom de ma base état faux d'où le message d'erreur.
Dès que j'ai resolu ce probleme, il ne retrouvait pas le formulaire "Ouvrage" auquel il était fait reference.

J'ai dû faire les petites modifications pour tout marche. Pour ceux que ça peut interesser:
D'abord une procedure, puis une fonction

Code:

---

Public Var as string

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub Compte_Ouvrage2()   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\BDD.mdb") 'C'est le nom de la base qui n'était bon (BDD au lieu de BD)   strSQL = "SELECT count(*) as nbre FROM Ouvrage"   Set rst = db.OpenRecordset(strSQL)   If Not rst.EOF Then Var = "OU" & rst!nbre + 1 End If 'fermeture rst.Close End Sub

---

une fonction:

Code:

---

1 2 3 4 5 6

Function Compte_Ouvrage()   Call Compte_Ouvrage2   Forms!Ouvrage!txtNbre = Var End Function

---

:D