[es] - problem sa back upom

niknen

Član broj: 69798
Poruke: 67
*.beogrid.net.

Profil

^{18.04.2007. u 23:58 - pre 207 meseci}

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!!

Prikačeni fajlovi

greska.JPG - 38.25k

Odgovor na temu

Getsbi

Moderator
Član broj: 124608
Poruke: 2831

+45 Profil

Re: problem sa back upom

^{19.04.2007. u 05:39 - pre 207 meseci}

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.

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

Odgovor na temu

niknen

Član broj: 69798
Poruke: 67
*.beogrid.net.

Profil

Re: problem sa back upom

^{20.04.2007. u 00:09 - pre 207 meseci}

ma radi meni to lepo ako odmah otvorim formu ali ako nesto otvorim neku drugu formu ili samo isklikcem dugmice greska! :-(

Odgovor na temu

Getsbi

Moderator
Član broj: 124608
Poruke: 2831

+45 Profil

Re: problem sa back upom

^{20.04.2007. u 09:05 - pre 207 meseci}

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.

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

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

Linkovanje tabela obzirom da imam više korisnika radim automatski iz kooda ali to možda i nije bitno za tvoj slučaj.

_{[Ovu poruku je menjao Getsbi dana 27.09.2008. u 20:36 GMT+1]}

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

Odgovor na temu