Prikazi cijelu temu 15.03.2011 12:49
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
Evo procedura za brisanje:
PreuzmiIzvorni kôd (Visual Basic):
  1. Function BrisiFile(Putanja As String)
  2. Dim fs
  3. Dim i As Integer
  4.    
  5. Set fs = Application.FileSearch
  6. With fs
  7.     .LookIn = Putanja
  8.     .FileType = 1
  9.     If .Execute > 0 Then
  10.         For i = 1 To .foundfiles.Count
  11.         Kill .foundfiles(i)
  12.         Next i
  13.     End If
  14. End With
  15. End Function

Pozivas je ovdje u tvom kodu:
Izlaz:
MsgBox "Ra
un nije ispisan,greška u komunikaciji sa ureajem!", vbExclamation, "Obavijest"
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE GLSTAVKEMP1 SET Nefiskaliziran='" & "-1" & "' WHERE BROULIZ='" & Forms.frmIZLAZMP.BROIZD & "'"
DoCmd.SetWarnings True
BrisiFile (PutTO)'---->evo ovo. Sada ovom procedurom mozes brisati iz bilo kojeg dir. fajlove.
GoTo Kraj
End Function
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 1 puta. Posljednja izmjena 15.03.2011 12:53 od strane zxz.