Newsgroup: it.comp.appl.access
Titolo: modifica path delle tabelle collegate

Ciao ed auguroni a tutti,
mi spiace tediarvi con un problema peraltro già ampiamente discusso su
questo ottimissimo forum e sul sito comune, ma proprio non mi riesce di
risolvere la questione, che credo sia anche abbastanza stupida.
Dunque io ho il mio bel database (FE) da cui ho diviso le tabelle (BE),
si chiamano refertazione.mdb e refertazione_be.mdb e risiedono sempre
nella stessa directory; siccome per continui cambiamenti ho necessità
di copiare entrambi i file e portarli su altre macchine per procedere
ai miei belli esperimenti, mi piacerebbe che il path indicante il
percorso del file contenente le tabelle non avvesse la descrizione
dell'intero percorso (es: C:\lavoro\refertazione\refertazione_be.mdb)
ma semplicemente il nome del file (es: \refertazione_be.mdb) in modo
che si attinga dal file BE presente nella stessa cartella del file FE
Ho letto i vari post e i suggerimenti del sito comune, ma evidentemente
non sono sufficientemente capace (ed in effetti il mio lavoro é tutto
un'altro)
Quale codice devo adottare (se c'è anche una soluzione non da codice
va bene lo stesso)? Va bene se l'eventuale codice lo metto nell'evento
di apertura della prima maschera, che non usa dati di tabelle, oppure
devo associarlo all'apertura del database ? Oppure nessuna delle cose
scritte e devo operare in maniera completamnete diversa ?
Grazie a tutti, anche per le discussioni precedenti che ho sempre
trovato utilissime
PS: dimenticavo, uso Office 2003 su windows 2000

 ...
www.donkarl.com/it
FAQ 3.1 Riallegare tabelle
FAQ 1.35 Divisione in Frontend e Backend
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
 

 ha scritto nel messaggio 
news:1167317968....@n51g2000cwc.googlegroups.com...





******************************
Che ne dici di un :
Application.CurrentProject.Path & " /tuo_FE.mdb" ?
-- 
-- 
Ciao
Pablitomf (Maurizio Facciuti)
-----------------------------------------------------------------
Access: 97, 2000, XP e 2003
ASP
-----------------------------------------------------------------
http://www.accessgroup.it/
-----------------------------------------------------------------
Il mio motto :
""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."


Ragazzi miei siete un po' troppo esagerati, non ho fatto in tempo a
finire di scrivere il post che mi avevate trovato la soluzione (e
pensare che ci ho sbattuto la testa per una settimana)
Grazie infinite
Dunque ho inizialmente ustao una faq segnalata da Karl e funziona
benissimo
Poco fa invece ho letto quella di Pablito, sicuramente più snella ma
aimè non funzionante
Dove dovrei metterla  ? Sei sicuro della sintassi ? a me da' un errore
già prima di eseguirla (ho provato a cambiare la & con l'=, mi passa
la sintassi ma il codice produce un'errore)
Grazie comunque ancora una volta


Poco fa invece ho letto quella di Pablito, sicuramente più snella ma
aimè non funzionante
Dove dovrei metterla  ? Sei sicuro della sintassi ? a me da' un errore
già prima di eseguirla (ho provato a cambiare la & con l'=, mi passa
la sintassi ma il codice produce un'errore)
*******************
Errore di spazio in + e di slash al contrario... ;-)
Cmq, su apertura potresti fare :
Dim Tua_Path As String
Tua_Path = Application.CurrentProject.Path
Call ricollegatab(Tua_Path)
ti crei un :
Public Function ricollegatab(Tua_Path As String) As Boolean
    Dim dbs As Database
    Dim tdf As TableDef
    Set dbs = CurrentDb
    ricollegatab = False
    For Each tdf In dbs.TableDefs
        tdf.Connect = ";DATABASE=" & Tua_Path & mID(tdf.Connect, 22)
        tdf.RefreshLink
    Next tdf
    ricollegatab = True
    Set dbs = Nothing
End Function
PS
Non l'ho provato... non so se funzia... ma se hai risolto, tanto meglio.


grazie, graze e 10000 volte grazie,
servo vostro sono ora


"servo vostro sono ora" ? Azz... ti sei incamminato in un terreno minato!... 
non temere, sapremo come sfruttare a puntino queste tue pubbliche 
dichiarazioni. [rotfl] :-D
-- 
-- 
Ciao
Pablitomf (Maurizio Facciuti)
-----------------------------------------------------------------
Access: 97, 2000, XP e 2003
ASP
-----------------------------------------------------------------
http://www.accessgroup.it/
-----------------------------------------------------------------
Il mio motto :
""Non mi fido molto delle statistiche, perchč un uomo con la testa nel forno
