Newsgroup: it.comp.appl.access
Titolo: riallegare tabelle





Ho un database frontend database a1


che è collegato a due database


database b1


database b2


 


ora vorrei sostituire (riallegare) le tabelle 
collegate al database b2 con le tabelle del database b3.


 


Ma solo quelle (in entrambi i database b2 e b3 vi 
sono le stesse tabelle), lasciando stare il collegamento con il database 
b1


 


Dato che capisco poco di 
programmazione.


 


In passato avevo usato uno dei programmi presenti 
sul sitocomune.


Ma questo funziona solo scollegando e collegando 2 
database con le stesse tabelle.


 


Grazie


Cristian



 0) 
Then
            
tdf.Connect = ";DATABASE=" & 
strMdb
            Err 
= 0
            On 
Error Resume 
Next
            
tdf.RefreshLink
            
If Err <> 0 
Then
                
Select Case 
Err.Number
                    
Case 
3024
                        
MsgBox "Impossibile trovare il file:" & vbCrLf & Mid$(tdf.Connect, 11), 
vbCritical + vbOKOnly, "Errore nel 
collegamento"
                    
Case 
Else
                        
MsgBox tdf.Name & vbCrLf & Err.Number & " - " & Err.Description, 
vbCritical + vbOKOnly, 
"Errore"
                
End 
Select
                
Exit 
Function
            
End If
        End 
If
    Next tdf
    f_AggiornaColl = 
True
End Function


 


Public Function f_BEAttuale() As String
    Dim dbs As 
Database
    Dim rst As Recordset
    Dim 
strSQL As String
    strSQL = "SELECT Trim([Database]) AS DB " 
& 
_
             
"FROM MSysObjects " & 
_
             
"GROUP BY Trim([Database]), MSysObjects.Type " & 
_
             
"HAVING (((MSysObjects.Type)=6));"
    Set dbs = 
CurrentDb
    Set rst = 
dbs.OpenRecordset(strSQL)
    f_BEAttuale = 
rst![DB]
    rst.Close
    Set dbs = 
Nothing
End Function


 


Public Function f_StripFileName(rsFileName As String) As 
String
    On Error Resume Next
    Dim I As 
Integer
    For I = Len(rsFileName) To 1 Step 
-1
        If Mid(rsFileName, I, 1) = "\" 
Then
            Exit 
For
        End If
    
Next
    f_StripFileName = Mid(rsFileName, 1, I)
End 
Function


 


Function f_StripPath(rsFileName As String) As String
    
On Error Resume Next
    Dim I As 
Integer
    For I = Len(rsFileName) To 1 Step 
-1
      If Mid(rsFileName, I, 1) = "\" 
Then
        Exit 
For
      End If
    
Next
    f_StripPath = Mid(rsFileName, I + 1, 
Len(rsFileName))
End Function



 ha scritto nel messaggio
news:e5m0k5$ie5$1...@fata.cs.interbusiness.it...





Grazie
Cristian
Non devi usare l'HTML per i post!
Sul sito comune c'era una mia soluzione per il riallegamento delle tabelle.
Il trucco era usare una tabella nel FE che conteneva i nomi delle tabelle di
un certo gruppo di tabelle collegate.
Lanciando il riallegatabelle con parametro il nome della tabella d'appoggio,
il sistema lanciava la routine per scegliere un db sul PC, contenente le
nuove tabelle da allegare.
Quindi ciclava nei record della tabella d'appoggio e per ogni nome eseguiva
il refreshlink con il path preso dal nuovo db.
Antonio

"Antonio Biso" <ch...@NOSPAMetruria.net> ha scritto nel messaggio 
news:Ehyfg.20208$jP5.5...@twister1.libero.it...

-----------------------
Scusa per l'html
ho visto ma la tua versione è per il 97
io uso la 2002
e nel convertilo mi da errore
grazie

 grazie
Stranissimo, se ci sono i riferimenti DAO corretti il metodo di Antonio
è
il più semplice e funzionale anche con A2002(almeno a me funziona).
@Alex

 grazie
Stranissimo, se ci sono i riferimenti DAO corretti il metodo di Antonio
č
il piů semplice e funzionale anche con A2002(almeno a me funziona).
@Alex
----------------
DAO 3.6 ?
č FLEGGATO MA MI DA ERRORE NELLA COMPILAZIONE
GRAZIE

 GRAZIE
Cosa ti dà errore...?
Hai messo Option Explicit nei moduli...?
@Alex

 ha scritto nel messaggio
news:e5mdrg$f19$1...@balena.cs.interbusiness.it...

Io lo uso anche col 2000 e funziona.
Che errore di compilazione ti da?
Antonio

NON CI CAPISCO UNA MAZZA
SE NON TROVO QUALCOSA DI GIA' FATTO
MI SA CHE PRENDO UN'ALTRA STRADA
cmq
GRAZIE 

"Antonio Biso" <ch...@NOSPAMetruria.net> ha scritto nel messaggio 
news:G0zfg.20277$jP5.5...@twister1.libero.it...

---------
ho fatto cosi
ho credo un db vuoto nuovo
mi sono imporatto dal tuo db la tabella ed il modulo
sono entrato in modulo
ed ho fatto debug > compila modulo
evidenziando
Private Function Lancia_Dialogo(gfni As wlib_GetFileNameInfo, ByVal fOpen As 
Integer) As Long
mi dice
errore di compilazione
tipo definito dall'utente non definito

 ha scritto nel messaggio
news:e5merh$g7u$1...@balena.cs.interbusiness.it...

C'erano delle dichiarazioni di funzioni importate da librerie eh
Antonio

GRAZIE
NON SO COME MA CREDO DI ESSERCI RIUSCITO
SE C'è L'HO FATTA IO CHE NON SONO UN PROGRAMMATORE
CE LA POSSONO FARE CHIUNQUE
MILLE GRAZIE

 ha scritto nel messaggio 
news:e5mgd8$s4$1...@fata.cs.interbusiness.it...

___________-
lo so dovevo scrivere in piccolo
scusate