Discussion :

[blaiso]

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.

[cafeine]

Hello,

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

[blaiso]

ligne de code d'arret:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Public Var as string

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

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Function Compte_Ouvrage()
 
Call Compte_Ouvrage2
 
Forms!Ouvrage!txtNbre = Var
End Function