Newsgroup: it.comp.appl.access
Titolo: OT Traduzione FAQ 3.1

3.1 Relink Tables
Problem
An mdb has linked tables. If the directory of the database
with the original tables changes the connection gets lost.
Solution
The easiest way clearly is to delete the table links and
relink them with the menu item File/External Data/Link Tables.
Another way is to use the Linked Table Manager that
can be found in the menu Tools/Database Utilities.
If you want to relink the tables dynamically with VBA you can
use a file dialog and code like it is shown in
http://www.mvps.org/access/tables/tbl0009.htm
If you are sure, that both databases are always in the same
directory you can automate the relink completely via VBA.
Call a code like the following in the autoexec macro or in the
open event of your start form:
'******* CODE START *******
On Error GoTo MyError
Dim db As DAO.Database
Dim strData As String
Dim i as Integer
Set db = CurrentDB()
strData = Left(db.Name, Len(db.Name) - Len(Dir(db.Name))) & "YourData.mdb"
For i = 0 To db.TableDefs.Count - 1
    If db.TableDefs(i).Connect <> "" Then
        If Mid(db.TableDefs(i).Connect, 11) <> strData Then
            db.TableDefs(i).Connect = ";database=" & strData
            db.TableDefs(i).RefreshLink
        End If
    End If
Next i
MyExit:
    Exit Sub
MyError:
    MsgBox "A problem occured during instalation. ", 16, "Exception"
    Resume MyExit
'******* CODE END *******
-- 
cu
Karl
*********
Access FAQ: 
www.donkarl.com/it
+info sulla prima Conferenza Italiana per Sviluppatori di Access (CISA1) 

 '******* CODE END *******
-- 
Ciao
Pablitomf (Maurizio Facciuti)
Access : Ver.97 - 2K
----------------------------------
http://www.accessgroup.it/
http://www.sitocomune.com/
----------------------------------
Non mi fido molto delle statistiche, perchè un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media.
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


MAssimialino 

     Exit Sub

Riallegare Tabelle
Problema
Un .mdb ha tabelle collegate. Se la directory del database con le 
tabelle originali, cambia, si perde la connessione.
Soluzione
Il metodo più semplice è, chiaramente, quello di cancellare i collegamenti 
delle tabelle e riallegarle dalla voce di menu File/Carica dati
esterni/Collega tabelle.
Un altro modo è quello di usare il “Gestore tabelle collegate” che puoi
trovare in Strumenti/Utilità database/Gestione Tabelle Collegate.
Se vuoi riallegare le tabelle in maniera dinamica con VBA, puoi usare
un file dialogo ed il codice, come viene mostrato in
http://www.mvps.org/access/tables/tbl0009.htm
Se sei sicuro, che entrambi i database sono sempre nella stessa directory,
puoi completamente automatizzare il ricollegamento via VBA.
Richiama, nella macro autoexec o nell’evento “Su apertura” della tua
maschera d’avvio, un codice come segue:
'******* INIZIO CODICE *******
 On Error GoTo MyError
 Dim db As DAO.Database
 Dim strData As String
 Dim i as Integer
 Set db = CurrentDB()
 strData = Left(db.Name, Len(db.Name) - Len(Dir(db.Name))) & "YourData.mdb"
 For i = 0 To db.TableDefs.Count - 1
     If db.TableDefs(i).Connect <> "" Then
         If Mid(db.TableDefs(i).Connect, 11) <> strData Then
             db.TableDefs(i).Connect = ";database=" & strData
             db.TableDefs(i).RefreshLink
         End If
     End If
 Next i
 MyExit:
     Exit Sub
 MyError:
     MsgBox "Un problema è accaduto durante l'installazione. ", 16,
"Eccezione"
     Resume MyExit
 '******* FINE CODICE *******
--
rgrds
SC
-- 


[cut]
Ciao Karl,
volevo farti notare che nella FAQ 5.17, dato che hai utilizzato il
sostantivo "insieme", la frase:
Un'ampia insieme di funzionalità è offerto dal tool ...
diventa
Un ampio insieme di funzionalità è offerto dal tool..



Grazie.
