Discussion :

[Developpeur23]

Bonjour, je suis nouveau sur ce forum et je débute dans la programmation sous Access VBA.
Voilà, je vous explique mon problème.
je réalise une apllication multi-utilisateurs sous Access. Par souci de sécurité (afin que les utilisateurs ne puissent pas trifouiller dans les tables) on a décider de disposer de 2 bases de données : l'une est la base de données locale (baselocale.mdb) qui sera installée sur chaque poste et qui contient tous les formulaires, l'autre est la base de données sur le serveur (baseserveur.mdb) qui contient uniquement les tables.
le lien entre les 2 bases est réalisé grâce à un fichier (emp.ini) dans lequel on lit l'emplacement de la base. Voici le code sur ouverture d'un formulaire:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
Private Sub Form_Load()
If Dir(Access.CurrentProject.Path & "\emp.ini") = "" Then
   MsgBox "Fichier d'emplacement non trouvé"
DoCmd.Close
End If
 
Open Access.CurrentProject.Path & "\emp.ini" For Input As #1
Input #1, emplacement
Close #1
 
End Sub

et le code pour utiliser la base :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
Private Sub Valider_Click()
 
Dim bd As Database
Dim tcli As Recordset
 
Set bd = DBEngine.Workspaces(0).OpenDatabase(emplacement & "\baseserveur.mdb")
Set tcli = bd.OpenRecordset("client")
MsgBox tcli![nomcli]
End Sub

Mon souci vient du fait que mes formulaires contiennent des zones de listes déroulantes dont le contenu est une requête ou une table.
Ma question est comment renseigner le contenu des zones de listes de façon à ce qu'elles utilisent les tables de ma base distante (baseserveur.mdb)?

J'ai essayé de remplir manuellement les listes, mais cela ne fonctionne pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
marequête = "SELECT...WHERE ID='" & ME.id & "'"
set bd = DBEngine.Workspaces(0).OpenDatabase(emplacement & "\baseserveur.mdb")
'emplacement est une variable globale déclarée dans un module et renseignée en lisant le contenu de emp.ini (il contient le dossier contenant la base baseserveur.mdb)
set ttable = bd.OpenRecordset(marequête, db_open_dynaset)
 
me.MalisteDéroulante.RowSourceType = "Table/Query"
me.MalisteDéroulante.RowSource = ttable
me.MalisteDéroulante.Requery

merci d'avance pour votre aide précieuse.

[Domi2]

Bonjour,

Il faut lier les tables de la base dorsale aux bases frontales.

Tu peux lire ce tuto : Comment utiliser une application en mode multi-utilisateurs.

Tout y est expliqué.

Domi2

[ilank]

Bonjour,
puisque tu fais une liaison tardive aux sources de données. Le remplissage des listes et listes modifiables peut être fait par une fonction CallBack.
La fonction à appeler doit avoir le format :

Public Function NomFonction (Ctrl as control, id as variant, lgn as variant, col as variant, code as variant) as variant

cette fonction sera appelée plusieurs fois par le système pour remplir le contrôle; il faut faire un select case sur le paramètre code pour retourner les valeurs souhaitées

code=acLBInitialize Initialisation du control => attend un retour<>0 si ok
code=acLBOpen Donner un identifiant au control => Timer
code=acLBGetRowCount Renvoyer le nombre de lignes
code=acLBGetColumnCount Renvoyer le nombre de colonnes
code=acLBGetColumnWidth Renvoyer la taille de la colonne = col
code=acLBGetValue Renvoyer la valeur de la colonne=col, de la ligne=lgn
code=acLBEnd Fermeture

Il faut indiquer dans la propriété Origine source le nom de la fonction sans paramètre ni parenthèse.

Sinon dans tes requêtes tu dois ajouter IN 'nomdufichierdistant' :

Code :

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

StrSQL="SELECT * FROM Clients IN '" & emplacement & "\baseserveur.mdb'"

[Developpeur23]

merci à vous deux, je vais regarder ça et je vous dit ce qu'il en est.

[Developpeur23]

J'ai regarder le tuto : Comment utiliser une application en mode multi-utilisateurs.

j'ai réussi à scinder ma base mais lorsque je veux me connecter à la base sur le serveur, il veut que je lui précise la source de données.
la ligne suivante me renvoie une erreur :

Code :

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

1
2
3
 
 
set bd = DBEngine.Workspaces(0).OpenDatabase(emplacement & "\baseserveur.mdb")

[ilank]

Je crois que la variable db doit être déclarée :

Code :

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

Dim db as DAO.Database

Il te faut la référence DAO (Microsoft DAO 3.x Object Library)

[Developpeur23]

Merci Ilank pour tes conseils avisés j'ai résolu le problème en utilisant ton code:

Code :

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

StrSQL="SELECT * FROM Clients IN '" & emplacement & "\baseserveur.mdb'"

Et cela fonctionne sans déclarer la variable bd en DAO.Database

[Developpeur23]

Juste une petite question: dans une requête avec une jointure (donc avec deux tables) comment utiliser le "in $variable"?
faut il l'utiliser comme ceci :
"select t.truc, m.machin from truc t, machin m in variable where t.idtruc=m.idmachin" ou comme cela : "select t.truc, m.machin from truc t in variable, machin m in variable where t.idtruc=m.idmachin"

[ilank]

bonjour developpeur,
la première solution.

[le_dilem]

la fonction ReChdom est plus simple non ?

[Developpeur23]

merci ilank, ça marche nickel!

[Developpeur23]

la fonction ReChdom est plus simple non ?

je ne connaissait pas cette fonction qui a l'air simple à utiliser. Toutefois est-il possible de préciser "in $emplacement" (qui contient le chemin d'accès à la base sur le serveur) pour désigner la table dans laquelle on cherche les infos? Je vais regarder.
Note : la fonction ReChDom(expression,domaine,critère)