Newsgroup: it.comp.appl.access
Titolo: delucidazione x codice Tabella collegate

Ciao a tutti
devo cambiare il percorso a una tabella collegata a un foglio
excel. Ho trovato questo suggerimento sul sito comune.
      Ma quando l'avvio mi dice errore di compilazione. Impossibile trovare
la libreria (credo si riferisca ADOX)
      Il nome della tabella collegata č: Componenti
      Il nome del database č: Database Lavoro
        Versione access 2003
      Sono alle prime armi, datemi un aiuto.
       Antonio Ganci
      La seguente funzione permette di modificare la directory a tutte le
tabelle
      collegate di un database, impostando come destinazione del
collegamento la
      cartella dove risiede il FE. Il codice si puň adattare facilmente per
      impostare una cartella diversa, modificando il valore della variabile
Dir.
      Il vantaggio di questo metodo č l'utilizzo della libreria ADOX
presente in
      Access 2000/XP al posto delle DAO.
Sub CollegaTabelle()
  Dim Catalogo As New ADOX.Catalog
  Dim Tabella As ADOX.Table
  Dim Prop As ADOX.Property
  Dim Dir As String
  Catalogo.ActiveConnection = CurrentProject.Connection
  Dir = CurrentProject.FullName
' mia domanda = FE.mdb e BE.mdb cosa sono?
  Dir = Replace(Dir, "FE.mdb", "BE.mdb")
  For Each Tabella In Catalogo.Tables
    If Tabella.Type = "LINK" Then
      Set Prop = Tabella.Properties("Jet OLEDB:Link Datasource")
      Prop.Value = Dir
    End If
  Next Tabella
  Set Catalogo = Nothing
End Sub
      Libreria da includere
      Microsoft ADO Ext. 2.5 for DDL and Security


Vai nella finestra progetto (CTRL + G) e aggiungi il riferimento sopra
riportato ... se lo sfogli, da a2003 lo trovi, ho appena verificato.
--
saluti
MC

 trovare la libreria (credo si riferisca ADOX)
C'è anche scritto alla fine del tuo messaggio:
Libreria da includere
Microsoft ADO Ext. 2.5 for DDL and Security
Per farlo, vai sull'editor di Visual Basic (Apri il db e premi il tasto 
ALT+F11)
Scegli la voce strumenti-> Riferimenti e spunta la libreria richiesta.
Riprova e vedrai che funziona.
Ciao,
Massimo 

 ha scritto nel messaggio
news:d4loos$k92$1...@balena.cs.interbusiness.it...


 Grazie
Scrivi DOPO il quoting
Grazie
-- 
_ _
Ciao
MAssimiliano Amendola
Cisa1 - I° Conferenza Italiana per Sviluppatori Access Arezzo 4+5
Giugno 2005 Sono aperte le iscrizioni  Info:  
www.donkarl.com/it

 ha scritto nel messaggio
news:426e6...@x-privat.org...


 ha scritto nel messaggio
news:d4loos$k92$1...@balena.cs.interbusiness.it...

Adesso la routene parte ma si blocca in questo punto
"Prop.Value = Dirr"
Ecco l'intera route:
Dim Componenti As New ADOX.Catalog
  Dim Tabella As ADOX.Table
  Dim Prop As ADOX.Property
  Dim Dirr As String
  Componenti.ActiveConnection = CurrentProject.Connection
  Dirr = CurrentProject.FullName
  Dirr = Replace(Dirr, "FE.xls", "BE.xls")
  For Each Tabella In Componenti.Tables
    If Tabella.Type = "LINK" Then
      Set Prop = Tabella.Properties("Jet OLEDB:Link Datasource")
      Prop.Value = Dirr
    End If
  Next Tabella
  Set Componenti = Nothing
Premetto:
Il nome della tabella collegata è  "Componeti"
il file al quale è collegata è un file excel.

 il file al quale č collegata č un file excel.
Dim Componenti As New ADOX.Catalog
Dim Tabella As ADOX.Table
Dim Prop As ADOX.Property
Dim Dirr As String
Componenti.ActiveConnection = CurrentProject.Connection
For Each Tabella In Componenti.Tables
  If Tabella.Name = "Componenti" Then
      Set Prop = Tabella.Properties("Jet OLEDB:Link Datasource")
      Prop.Value = "C:\percorso\cartella\nomefile.xls"
    End If
Next Tabella
Set Componenti = Nothing
Si puň sicuramente migliorare, ma dovrebbe funzionare.
Ciao,
Massimo