creare e distruggere collegamenti a tabelle con VBA

novello88

Utente Attivo
3 Mar 2012
103
1
0
ciao a tutti i membri del forum,
in Access 2000/2003 ho la necessità di sconnettere e riconnettere delle tabelle situate in un'altro mdb (perché quest'ultimo file potrebbe mancare).

Ho trovato su MasterDrive questo codice:
Codice:
Dim TLink As String
Dim LinkBE As String
Dim rs As DAO.Recordset
     LinkBE = "M:\.....\Pippo.mdb"
    Set rs = CurrentDb.OpenRecordset("TTabelleCollegate")
    rs.MoveFirst
Do Until rs.EOF
    TLink = rs.Fields(0).Value
    CurrentDb.TableDefs.Delete TLink
    DoCmd.TransferDatabase acLink, "Microsoft Access", LinkBE, acTable, TLink, TLink
    rs.MoveNext
Loop

Ma come mai quando elimino il collegamento, la tabella linkata rimane nella "finestra database" ?
(ovviamente la tbl non si apre..., e scompare chiudendo e riaprendo il mdb) Questo può creare problemi?
Ci sono altri modi (semplici...:( ) per fare quello che voglio?

Grazie e ciao a tutti
 

Discussioni simili