Predmet:Re: Funkcija FileSearch
Evo probaj sa ovom:
PreuzmiIzvorni kôd (Visual Basic):Function ImalGa(Putanja As String) As Boolean
'*******************************************************
'Ime: ImalGa (Function)
'Sadrzaj:Provjerava dali postoji fajl na disku
'Autor: zxz
'Datum: 01.09.2013, 12:32:29
'Adresa: Tuzla BiH
'EMail: zxz@icentar.ba
'www: icentar.ba
'Ulazni parametri:Putanja sa imenom fajla
'Izlazni parametri:True/False
'******************************************************
Dim Povrat As String
Povrat = Dir$(Putanja)
If Len(Povrat) > 0 Then
ImalGa = True
Else
ImalGa = False
End If
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.