Predmet:Re: Problem sa pretragom

---

uf nisam stigao ispratit.
Me.RecordSource = Me.RecordSource
Me.RecordsetClone.FindFirst "[Produktion] LIKE '" & Me![txtSök] & "'"
If Me.RecordsetClone.NoMatch Then
MsgBox "Nema podataka po ovom kriteriju"
GoTo Kraj
End If
Me.SUB_Produktion.Visible = True
Me.SUB_Test.Visible = True
Me.SUB_Anteckning.Visible = True
Me.Bookmark = Me.RecordsetClone.Bookmark

i na kraju prije endsub napisi kraj.
Primjer:

Kraj:
End sub

---