Imam bazu u kojoj imam mnogo stranica koda i na glavnoj formi sam stavio back up baze koja kada udjem direktno u glavnu formu a da ne otvaram ostale forme i da ne klikcem na dugmice koji se nalaze na glavnoj formi ono radi odlicno. Cim otvorim neku formu ili nesto isklikcem i onda uradim back up izbacuje mi neku gresku i nece da uradi da li neko zna u cemu je problem. Da li je neko imao slican problem sa ovim? Isto se desava i kada kliknem na dugme recoveru hvala svima unapred pozdrav!!
problem sa back upom
Zaključano
Zakačeno
Prvo probaj ručno da da uradiš Compact iz Tools/Database Utilities/Compact and Repair Database. Ako to uspeva onda bi trebalo da napraviš novo dugme koje će da pokreće kood za kompresiju podataka pre nego što pustiš Backup. Ova opcija se pušta pre arhiviranja da bi se podatci spakovali i tabele oslobodile suvišnog prostora.
ma radi meni to lepo ako odmah otvorim formu ali ako nesto otvorim neku drugu formu ili samo isklikcem dugmice greska! :-(
izmenjeno 1 put, poslednji put Getsbi 27.09.2008. u 20:36
Izmene poruke
- Getsbi27.09.2008. u 20:36zapis iz teksta poruke
Nemam neke informacije. Da li ti je to što arhiviraš (trebalo bi da budu samo tabele BackEnd) ili su tu i ostali objekti od kojih je moguće da je neki ostao nezatvoren. Ja u principu radim BackEnd na drugoj lokaciji od glavnog .mdb u kojem su mi ostali objekti FrontEnd i odatle pokrećem arhiviranje tabela. Tabele sa BackEnd-a su mi ulinkovane u momentu arhiviranja i zatvorene. Evo ti parče koda možda ti pomogne.
Linkovanje tabela obzirom da imam više korisnika radim automatski iz kooda ali to možda i nije bitno za tvoj slučaj.
Code:
Private Sub Command4_Click()
Dim fileBackup As String
Dim fileBackupDestination As String
Dim disk As String
Dim foldername As String
Dim DATUM As String
Dim KORISNIK As String
disk = Left(CurDir(), 2) ' tekuci disk
DATUM = Format(Date, "dd_mm_yy") ' pretvaranje tekuceg datuma u string
foldername = disk & "\Arhiv\" & DATUM ' putanja za folder
MkDir foldername ' kreira folder
'fileBackup = disk & "\TF - industrijski menadzment\diplomski rad\virmani.mdb" 'pogonsko knjigovodstvo.mdb" ' apsolutna putanja
'fileBackupDestination = disk & "\arhiv\virmani.mdb" 'pogonsko knjigovodstvo.mdb" ' apsolutna putanja
fileBackup = disk & DLookup("[PUTANJA]", "AS_KLIJENTI", "[SIFRAKOR]=" & var_sifrakor) ' relativna putanja izvora
KORISNIK = Right(fileBackup, 8)
' fileBackupDestination = Left(fileBackup, 3) & "Arhiv" & Mid(fileBackup, 3, 255) ' relativna putanja cilja
fileBackupDestination = disk & "\Arhiv\" & DATUM & "\" & KORISNIK
If IsNull(fileBackup) Then
MsgBox ("Nije selektovan izvorni fajl")
GoTo Done
End If
If IsNull(fileBackupDestination) Then
MsgBox ("Ne postoji destinacija selektovanog fajla")
GoTo Done
End If
If fileBackup = fileBackupDestination Then
MsgBox ("Ne mozete da kopirate u isti fajl")
GoTo Done
End If
If Not FileExists(fileBackup) Then
MsgBox ("Izvorni fajl ne postoji")
GoTo Done
End If
If FileExists(fileBackupDestination) Then
If MsgBox("Da li zelite da arhivirate podatke?", vbYesNo) = vbNo Then
GoTo Done
End If
End If
DoCmd.Hourglass True
FileCopy fileBackup, fileBackupDestination
DoCmd.Hourglass False
MsgBox "Arhiviranje je obavljeno", vbInformation, "Obavestenje"
Done:
End Sub
Private Sub Command4_Click()
Dim fileBackup As String
Dim fileBackupDestination As String
Dim disk As String
Dim foldername As String
Dim DATUM As String
Dim KORISNIK As String
disk = Left(CurDir(), 2) ' tekuci disk
DATUM = Format(Date, "dd_mm_yy") ' pretvaranje tekuceg datuma u string
foldername = disk & "\Arhiv\" & DATUM ' putanja za folder
MkDir foldername ' kreira folder
'fileBackup = disk & "\TF - industrijski menadzment\diplomski rad\virmani.mdb" 'pogonsko knjigovodstvo.mdb" ' apsolutna putanja
'fileBackupDestination = disk & "\arhiv\virmani.mdb" 'pogonsko knjigovodstvo.mdb" ' apsolutna putanja
fileBackup = disk & DLookup("[PUTANJA]", "AS_KLIJENTI", "[SIFRAKOR]=" & var_sifrakor) ' relativna putanja izvora
KORISNIK = Right(fileBackup, 8)
' fileBackupDestination = Left(fileBackup, 3) & "Arhiv" & Mid(fileBackup, 3, 255) ' relativna putanja cilja
fileBackupDestination = disk & "\Arhiv\" & DATUM & "\" & KORISNIK
If IsNull(fileBackup) Then
MsgBox ("Nije selektovan izvorni fajl")
GoTo Done
End If
If IsNull(fileBackupDestination) Then
MsgBox ("Ne postoji destinacija selektovanog fajla")
GoTo Done
End If
If fileBackup = fileBackupDestination Then
MsgBox ("Ne mozete da kopirate u isti fajl")
GoTo Done
End If
If Not FileExists(fileBackup) Then
MsgBox ("Izvorni fajl ne postoji")
GoTo Done
End If
If FileExists(fileBackupDestination) Then
If MsgBox("Da li zelite da arhivirate podatke?", vbYesNo) = vbNo Then
GoTo Done
End If
End If
DoCmd.Hourglass True
FileCopy fileBackup, fileBackupDestination
DoCmd.Hourglass False
MsgBox "Arhiviranje je obavljeno", vbInformation, "Obavestenje"
Done:
End Sub
Code:
Function FileExists(strFile As String) As Boolean
Dim i As Integer
On Error Resume Next
i = Len(Dir(strFile))
FileExists = (Not Err And i > 0)
End Function
Function FileExists(strFile As String) As Boolean
Dim i As Integer
On Error Resume Next
i = Len(Dir(strFile))
FileExists = (Not Err And i > 0)
End Function
Linkovanje tabela obzirom da imam više korisnika radim automatski iz kooda ali to možda i nije bitno za tvoj slučaj.
ok hvala