Discussion :

[gui_li_aume]

Bonjour,

alors voilà: des applications en runtime, s'appuyant sur des dorsales et donc des frontales. Je veux améliorer les applications en permettant à l'utilisateur de passer en mode "demo". Pour ce faire, les tables liées passent en table locale (donc l'utilisateur peut faire des opérations sur les enregistrements sans corrompre les data; j'ai la fonction pour refaire les liaisons qui elle fonctionne) avec la fonction suivante:

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

Pour 11 tables liées sur 12 ça fonctionne. Il y en a une qui ne veut pas se "délier"

J'ai l'erreur 3709 "la clé de recherche n'a été trouvée dans aucun enregistrement". J'ai revérifié les orthographes, pas de coquille ni de casse différente...

Auriez vous une piste? J'avoue que je suis dubitatif: l'intéret de cette fonctionnalité me parait faible au regard des risques si les liaisons ne sont pas sûres à 100% (interruption du code...)

[Apoulit]

Slt,
pourquoi ne pas copier tes tables en local et supprimer les tables liées ?