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
|
Public Function DelierTbl(dorsale As String) 'dorsale est le nom du fichier accdb stocké sur le serveur
On Error GoTo errorhandler
Dim rstDelier As dao.Recordset
' dans la dorsale applications_be.accdb j'ai enregistré les noms des tables liées nécessaires au fonctionnement de la frontale
Set rstDelier = CurrentDb.OpenRecordset("Select tblLiee_Nom FROM [;database=\\serveur\chemin\Applications_be.accdb;PWD=toto;].tbl_Tblliee WHERE App_Dorsale = '" & dorsale & "';")
While Not rstDelier.EOF And Not rstDelier.BOF
Debug.Print rstDelier.Fields(0).Value 'j'ai bien toutes les tables que je veux délier
DoCmd.SelectObject acTable, rstDelier.Fields(0).Value, True
Debug.Print "DoCmd.SelectObject acTable, " & rstDelier.Fields(0).Value & ", True" 'là aussi toutes les tables sont prises en compte
DoCmd.RunCommand acCmdConvertLinkedTableToLocal
rstDelier.MoveNext
Wend
rstDelier.Close
Set rstDelier = Nothing
Exit Function
errorhandler:
MsgBox Err.Number
MsgBox Err.Description
Resume Next
End Function |
