Vraag : VBA aan de uitvoer verbond lijsten in huidige Toegang tot Db aan een andere Toegang Db

Het blok van code onder uitvoer-specifieke lijsten in mijn huidig gegevensbestand van de Toegang aan een ander gegevensbestand van de Toegang.  

However, wanneer ik „Verbonden“ lijsten van mijn bronlijst uitvoer, het toont nog als verbonden lijst in het gegevensbestand van de doelToegang.  Zijn er aan wijzigde hoe dan ook deze code om de lijsten geen verbindingen zullen lijken, maar in plaats daarvan als ingevoerde lijsten te verzekeren verschijnen?

Thanks voor om het even welke help.
" codeBody " 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

Public Functie ExportTables ()

    Schemerige db als Gegevensbestand
    Schemerige rs als Recordset
    Schemerige sSQL als Koord
    
    sSQL = „uitgezochte SourceTableName, TargetTableName, DatabaseName van tblTableExport“
    
    Vastgesteld db = CurrentDb ()
    Reeks rs = db.OpenRecordset (sSQL)
    
    Doe terwijl niet rs.EOF
    
        DoCmd.TransferDatabase transfertype: =acExport, _
          databasetype: = " Microsoft Access ", _
          databasename: =rs. Gebieden (2). Waarde, _
          ObjectType: =acTable, Bron: =rs. Gebieden (0). Waarde, _
          Bestemming: =rs. Gebieden (1). Waarde, structureonly: =False

        rs.MoveNext
        
    Lijn

De Functie van het eind

Antwoord : VBA aan de uitvoer verbond lijsten in huidige Toegang tot Db aan een andere Toegang Db

u moet de lijst van originele db uitvoeren als niet verbonden lijst in de bestemming te maken tonen.
Andere oplossingen  
 
programming4us programming4us