Prikazi cijelu temu
22.02.2015 15:46
22.02.2015 15:46
Predmet:Re: Problem sa pretragom
Me.SUB_Test.Visible = True
Me.SUB_Anteckning.Visible = True
Me.RecordSource = Me.RecordSource
if format$(Me![txtSök])="" Then : Goto Kraj ' ovo dopisi
Me.RecordsetClone.FindFirst "[Produktion] LIKE '" & Me![txtSök] & "'"
Me.Bookmark = Me.RecordsetClone.Bookmark
I na kraju prije end sub napisi
Kraj:
end sub
Me.SUB_Test.Visible = True
Me.SUB_Anteckning.Visible = True
Me.RecordSource = Me.RecordSource
if format$(Me![txtSök])="" Then : Goto Kraj ' ovo dopisi
Me.RecordsetClone.FindFirst "[Produktion] LIKE '" & Me![txtSök] & "'"
Me.Bookmark = Me.RecordsetClone.Bookmark
I na kraju prije end sub napisi
Kraj:
end sub
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.