Prikazi cijelu temu 21.10.2014 08:30
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Funkcija FileSearch
Evo probaj sa ovom:
PreuzmiIzvorni kôd (Visual Basic):
  1. Function ImalGa(Putanja As String) As Boolean
  2. '*******************************************************
  3. 'Ime:      ImalGa (Function)
  4. 'Sadrzaj:Provjerava dali postoji fajl na disku
  5. 'Autor: zxz
  6. 'Datum: 01.09.2013, 12:32:29
  7. 'Adresa: Tuzla BiH
  8. 'EMail: zxz@icentar.ba
  9. 'www: icentar.ba
  10. 'Ulazni parametri:Putanja sa imenom fajla
  11. 'Izlazni parametri:True/False
  12. '******************************************************
  13. Dim Povrat As String
  14.        
  15.        Povrat = Dir$(Putanja)
  16.        
  17.        If Len(Povrat) > 0 Then
  18.                ImalGa = True
  19.        Else
  20.                ImalGa = False
  21.        End If
  22.  
  23. End Function

U tvom slucaju bi bio postupak:
-Kopirati proceduru u neki modul.
-Napraviti neki taster na formi i na on Click tatera staviti kod

dim x as boolean
Dim a as string
a=Forms!frmSLIKE_UNOS_1!NAPOMENA
a=imalGa(a)

if a= true
Msgbox "Fajl postoji
else
Msgbox "Fajl ne postoji"
endif

I dalje mi nije jasno zasto ono gore ne radi mada koliko se sjecam FileSearch i ne postoji od neke verzije accessa.
Koji ti access korsitis?
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.