Prikazi cijelu temu 02.05.2012 12:35
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Application.FileSearch Access 2010
Roko:
Ova ti je klasa dobra i mogla bi se postaviti u arhivu ali za njega treba prostije rjesenje:
PreuzmiIzvorni kôd (Visual Basic):
  1. Function ProvjeraP(BrojRac As String) As String
  2.     Const PutTO = "C:\HCP\TO_FP"
  3.     Const PutFrom = "C:\HCP\FROM_FP"
  4.      
  5.    
  6.     Dim temp As String
  7.     Dim ImeF(1 To 2) As String
  8.     Dim ImeR(1 To 2) As String
  9.     Dim fs, R, F
  10.     Dim Brojac As Integer
  11.     Dim I As Integer
  12.     Dim Putanja_Filea As String
  13.        'BrojRac = "Footer.xml"
  14.    'BrojRac = " & Me.BROIZD & " ' Broj rac iz polja me.Me.BROIZD + RCP_ tekst
  15.    ImeR(1) = "\RCP_" & BrojRac & ".XML"  ' Broj rac iz polja me.Me.BROIZD + RCP_ tekst
  16.     ImeR(2) = "\RCP_" & BrojRac & ".ERR"
  17. ImeF(1) = Dir(ImeR(1))
  18. ImeF(2) = Dir(ImeR(2))
  19. Provjera1:
  20. If ImeF(1) = ImeR(1) Then
  21. DoEvents
  22. Brojac = Brojac + 1
  23.    If Brojac > 3 Then GoTo IZLAZ
  24.    Zaustavi (Brojac)
  25.    GoTo Provjera1
  26. End If
  27.  
  28. Provjera2:
  29.     If ImeF(2) = ImeR(2) Then
  30.     Putanja_Filea = .foundfiles(I)
  31.     Close #1
  32.     Open Putanja_Filea For Input As 1
  33.     Input #1, temp
  34.     Close #1
  35.     MsgBox "GreÅ¡ka:" & temp & "!", vbExclamation, "Raun nije fiskaliziran"
  36.     DoCmd.SetWarnings False
  37.     DoCmd.RunSQL "UPDATE GLSTAVKEMP1 SET Nefiskaliziran='" & "-1" & "' WHERE BROULIZ='" & Forms.frmIZLAZMP.BROIZD & "'"
  38.     DoCmd.SetWarnings True
  39.     GoTo Kraj
  40.     End If
  41.  
  42.      
  43. Kraj:
  44.  
  45.     Exit Function
  46. IZLAZ:
  47.     MsgBox "Ra
  48. un nije ispisan,greška u komunikaciji sa ureajem!", vbExclamation, "Obavijest"
  49.     DoCmd.SetWarnings False
  50.             DoCmd.RunSQL "UPDATE GLSTAVKEMP1 SET Nefiskaliziran='" & "-1" & "' WHERE BROULIZ='" & Forms.frmIZLAZMP.BROIZD & "'"
  51. DoCmd.SetWarnings True
  52. BrisiFile (PutTO)
  53. 'Kill "C:\HCP\TO_FP\Footer.xml"
  54. 'Kill "C:\HCP\TO_FP\RCP_" & Me.BROIZD & ".XML"
  55. 'Kill "C:\HCP\TO_FP\CMD.OK"
  56. GoTo Provjera2
  57.     GoTo Kraj
  58.     End Function
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.