Prikazi cijelu temu 22.09.2011 11:33
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Razika između Last i Max funkcije
PreuzmiIzvorni kôd (Visual Basic):
  1. Function Kompakt()
  2. Dim StaroIme As String
  3. Dim NovoIme As String
  4.  
  5. 'On Error Resume Next
  6.  
  7. StaroIme ="Imesa putanjom do be baze"
  8. NovoIme = "Putanjadobebaze "\Nova.mdb"
  9.    If Dir(NovoIme) <> "" Then _
  10.        Kill NovoIme
  11.    DBEngine.CompactDatabase StaroIme, _
  12.        NovoIme
  13.        Kill StaroIme
  14.        Name NovoIme As StaroIme
  15. MsgBox "Baza je servisirana"
  16. End Function
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.