Discussion :

[Frantz_B]

Bonjour,
En général je trouve toujours des réponses dans ces pages mais là tout n'est pas résolu.
Dans une application où les données sont sur une base distante il est nécessaire de placer des requêtes "communes" (afin de faciliter la mise à disposition de contributions de requêtes pour tous) dans cette base distante qui sont lancées via un bouton depuis un formulaire local.
Tout fonctionne pour des requêtes locales avec ce code :
Dim db As dao.Database
Dim rst As dao.Recordset
stDocName = "Nom variable en fonction du bouton"
DoCmd.OpenQuery stDocName

Comment faire pour lancer une "requête distante" ?
J'ai utilisé ceci :
Dim acApp As Access.Application
Set acApp = New Access.Application
stDocName = "Nom variable en fonction du bouton"
With acApp
.Visible = False
.OpenCurrentDatabase ("n:\base_data.mdb")
.CurrentDb.Execute stDocName
.CloseCurrentDatabase
.Quit
End With
Set acApp = Nothing

Cela fonctionne mais ... pas pour une requête sélection .
Merci pour vos lumières.

[paidge]

Salut,
Comme tu l'as remarqué, la méthode Execute de l'objet Database, c'est pour les requêtes ACTION et pas SELECTION.
Pour ouvrir une requête sélection, il y a la méthode OpenQuery de l'objet Docmd

Je n'ai pas le temps de faire des tests mais voilà ce qu'il en est :

Deux solutions
1> tu lies les tables de ta base distante dans ta base active et tu
importes la requete qui t'interesse.
2> tu passes par l'automation. Dans ce cas la base distante sera ouverte
et tu pourrat y executer la requete voulue.

Tu trouveras ce qu'il faut dans le forum, la FAQ et les tutos pour ces 2 solutions.

Ce code peut aussi t'aider :

Code :

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

1
2
3
4
5
6
    Dim qry As DAO.QueryDef
 
    For Each qry In CurrentDb.QueryDefs
        If Left(qry.Name, 1) <> "~" Then Debug.Print qry.Name
    Next qry
    Set qry = Nothing

[paidge]

Je n'ai pas testé ça mais ça pourrait t'aider aussi

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
23
24
25
Declare Function ShowWindow Lib "User32" _
      (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
 
Private Sub transfert()
    Dim appOrigine As Access.Application
    Dim accObject As AccessObject
    Dim sw As Long
    Dim strCheminBaseDistante
 
    ' Ouverture de la base distante en mode caché
    strCheminBaseDistante = "G:\monDossier\maBase.accdb"
    Set appOrigine = GetObject(strCheminBaseDistante)
    sw = ShowWindow(appOrigine.hWndAccessApp, False)
 
    ' Transfert des objets sélectionnés
    With appOrigine
	For Each accObject In .CurrentData.AllQueries
		.DoCmd.CopyObject , , acQuery, accObject.Name
	Next accObject
        .Quit
    End With
 
    Set appOrigine = Nothing
    Set accObject = Nothing
End Sub