[VBA/ACCESS] Copia del file .mdb

[VanessaInfo]

salve a tutti,

ho inserito una parte d codice per la copia del file dati (*.mdb)...al quale ovviamente è collegato il programma!

il problema è ke facendo la copia da struttura del prog..tutto ok..
in mde non va!

cosa posso fare?

è possibile ad esempio creare una replicadel db runtime poi io copio la replica....

grazie

VaneX

ora controllo.ora ke ci penso il ricollegamento dele tabelle è runtime e kiude il db...farò lo stesso poi posto ilcod!

[VanessaInfo]

niente da fare,

il db dei dati n veniva kiuso ma ricollegava le tab..
se nn trovo una soluzione collego le tabelle ad un db_temp e poi dopo aver fatto bck le ricollego.

ke ne dite'
altre soluzioni?

VaneX

[Johnny_Depp]

sposto nel subforum...

[LMondi]

VanessaInfo, spero d'aver capito (il testo è ermetico!).
Se si tratta di fare una copia del file .mdb - dopo aver chiuso le connessioni al DB:
' crea una copia di backup del database:
FileCopy dbOriginale, dbBackupCop

[VanessaInfo]

esattamente quello ke avevo fatto..ma essendo il db dei dati colelgato..come faccio a scollegare le tabelle e così fare le copie e poi ricollegarlo senza far vedere nulla?

VaneX

[VanessaInfo]

poiké nel collegarle uso

db.TableDefs(i).Connect = ";database=" & strDati
allora potrei mettere connect=""

faccio una rova..secondo voi dà errore?

VaneX

[VanessaInfo]

problema risolto:

mi vergogno quasi a drilo..ma se nn kiudevo la maskera ke utilizza i dati come potevo sperare d far sparire ldb e poter così "sbloccare" l'mdb da copiare!!!

VaneX

[VanessaInfo]

niente da fare..
pensavo d aver risolto ma con l'mdb mi crea tranquillamente backup..conmdeerrore sul file:

VbLR6.chw

dice chiamata non valida-

vi posto parte del codice

Set Table_Percorso = GUff.OpenRecordset("Select Percorso, Backup from Parametri_DB")
'StartPath = Mid(CurrentDb.Name, 1, (InStr(1, CurrentDb.Name, "GU.mdb") - 1)) & "Archivi\Dati_Gu.mdb"
Table_Percorso.MoveFirst

StartPath = Table_Percorso.Percorso


DoCmd.Close acForm, "Menu_MAIN"




Me.Backup = Date


EndPath = Mid(CurrentDb.Name, 1, (InStr(1, CurrentDb.Name, "GU.mdb") - 1)) & "BCK\DatiBackup - " & Format(Date, "dd mmmm yyyy") & ".mdb"
FileCopy StartPath, EndPath

MsgBox "BACKUP EFFETTUATO", vbInformation, "Backup"
grazie

VaneX