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 suivantAvec 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 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
Message d'erreur: "Erreur de compilation du module..."
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
Une idée de ce qu'il faut corriger dans la ligne d'ouverture de la base de données?
Merci d'avance.
![]()
Partager