Discussion :

[azopei]

Bonjour,

est-il possible de fermer depuis une table contenant du code une table remplie de donnée qui lui est liée ?

Merci

[loufab]

supprimer le lien, comme on supprime un objet.

est-il possible de fermer depuis une table contenant du code une table remplie de donnée qui lui est liée ?

une base plutot

[Invité]

Salut,

va voir du coté de :

Code :

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

1
2
 
docmd.deleteobject actable,"matable"

et pour refaire les liaisons du coté de

Code :

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

1
2
 
docmd.transfertdatabase aclink, ...

Starec

[azopei]

Super,
merci bien, ça va m'éviter de refaire mes requête SQL en DAO

En revanche Je comprends pas comment ça se fait que

Code :

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

 docmd.deleteobject ac table, "matable"

détruise la liaison et pas l'objet ?

[Invité]

Re

Je n'ai jamais testé avec une liaison, as-tu fait un raffraichessement de la fenêtre table ou

Code :

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

1
2
 
currentDB.tabledefs.refresh

il me semble

Starec

[azopei]

re,

Sur vos conseils j'ai fait quelques lignes qui marchent bien :

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
39
40
41
 
Dim db As DAO.Database
Dim tb As DAO.TableDef
 
Dim NomBase As String
Dim NomBaseTmp As String
 
Dim i As Integer
Dim j As Integer
Dim t(0 To 10) As String
 
Set db = CurrentDb
i = 0
 
'récupère le nom des tables liées et les détruits
 
For Each tb In db.TableDefs
    If Left(tb.Name, 4) <> "MSys" Then
       If Len(tb.Connect) > 0 Then
           t(i) = tb.Name
           DoCmd.RunSQL "DROP TABLE [" & tb.Name & "] ;"
           i = i + 1
       End If
    End If
Next tb
 
 
'compacte la base de données
 
NomBase = CurrentProject.Path & "\mabase.mdb"
NomBaseTmp = CurrentProject.Path & "\BaseTmp.MDB"
DBEngine.CompactDatabase NomBase, NomBaseTmp
Kill NomBase
Name NomBaseTmp As NomBase
 
 
'à partir des noms récupérés, rétablit les liaisons
 
For j = 0 To i - 1
DoCmd.TransferDatabase acLink, "Microsoft Access", sNomBase, acTable, t(j), t(j)
Next j

merci à vous

[Invité]

Re

Content de t'avoir aidé, mais le Tag Resolu

Starec