Comment peut-on lancer un Call sur une procédure Sub située dans une BDD A alors que l'on est dans une autre base (B par exemple).
Voici ce que je cherche à faire à partir de l'exemple fourni pour BeginTrans, et bien sûr, ça ne fonctionne pas
Dans ces trois cas (lancement direct de Sub, de la fonction qui l'appelle ou de la macro qui appelle la fonction, Access va chercher dans la base B de laquelle se fait l'appel, et non dans la A, dans laquelle se trouvent ces trois méthodes.
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
26
27
28
29
30
31
32
33
34
35
36
37
38 Sub BeginTransCmd() Dim strName As String Dim strMessage As String Dim wrkDefault As Workspace Dim Ordonnancement As Database Dim rstTmpChargeCarnet As Recordset ' Get default Workspace. Set wrkDefault = DBEngine.Workspaces(0) Set Ordonnancement = OpenDatabase("D:\Temp\Ordo.mdb") 'Set rstTmpChargeCarnet = _ Ordonnancement.OpenRecordset("TmpChargeCarnet") ' Start of outer transaction. wrkDefault.BeginTrans With Ordonnancement 'Macro s'appelle LanceCalcul dans la base A DoCmd.RunMacro ("LanceCalcul") ' Ne marche pas 'Fonction s'appelle LancerCalcul toujours dans la base A 'Call LancerCalcul ' Ne fonctionne pas non plus 'Sub s'appelle ChargeOFLancés ' C'est la procédure à lancer dans la base A 'Call ChargeOFLancés 'Ne fonctionne pas non plus ' Ask if the user wants to commit to all the changes ' made above. If MsgBox("Save all changes?", vbYesNo) = vbYes Then wrkDefault.CommitTrans Else wrkDefault.Rollback End If End With End Sub
Comment faire pour diriger ces appels de A vers B ?
Partager