Prikazi cijelu temu 22.09.2011 13:23
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


Predmet:Re: Razika između Last i Max funkcije
Tražio sam malo sa Googlom i naÅ¡ao slijedeču funkciju koja je interesantna jer sa njome se može:
1) Izraditi backup kopiju baze
2) Napraviti kompakt baze i preimenovati je
3) Napraviti samo kompakt baze

PreuzmiIzvorni kôd (vbnet):
  1. Public Sub Compact_MDB(()
  2. Dim PutanjaBaze As String, staroImeBaze As String, novoImeBaze As String, DbBackup As String
  3. Dim Response As Integer, fs As Object
  4. PutanjaBaze = Application.CurrentProject.Path
  5. staroImeBaze = "Proces_be" & ".mdb"   ' ovdje staviti ime svoje baze, putanja nije potrebna
  6. novoImeBaze = "Proces_BeNew" & ".mdb"
  7. DbBackup = Mid(staroImeBaze, 1, Len(staroImeBaze) - 4) & "_" & Format(Date, "mmddyy") & ".mdb"
  8. Response = MsgBox("Želite li napraviti Back-Up kopiju ove baze koja e se zvati " & vbCrLf & "'" & DbBackup & "'", vbYesNo, "Continue")
  9. If Response = vbYes Then
  10. Set fs = CreateObject("Scripting.FileSystemObject")
  11. fs.CopyFile PutanjaBaze & "\" & staroImeBaze, PutanjaBaze & "\" & DbBackup
  12. Set fs = Nothing
  13. Else
  14. If MsgBox("Želite li uraditi kompakt ove baze i preimenovati je kao " & vbCrLf & "'" & novoImeBaze & "'", vbYesNo, "Continue") = vbYes Then
  15. Set fs = CreateObject("Scripting.FileSystemObject")
  16. fs.CopyFile PutanjaBaze & "\" & staroImeBaze, PutanjaBaze & "\" & DbBackup
  17. DBEngine.CompactDatabase PutanjaBaze & "\" & DbBackup, PutanjaBaze & "\" & novoImeBaze
  18. Kill PutanjaBaze & "\" & DbBackup
  19. Set fs = Nothing
  20. Else
  21. If MsgBox("Želite li uraditi samo kompakt ove baze?", vbYesNo, "Continue") = vbYes Then
  22. CommandBars("Menu Bar"). _
  23. Controls("Tools"). _
  24. Controls("Database utilities"). _
  25. Controls("Compact and repair database..."). _
  26. accDoDefaultAction
  27. Else
  28. DoCmd.CancelEvent
  29. End If
  30. End If
  31. End If
  32. End Sub
Pozdrav
Ovaj post je ureden 2 puta. Posljednja izmjena 22.09.2011 13:24 od strane pmiroslav.