Predmet:Re: Problem sa pretragom

---

Option Compare Database
Option Explicit
Dim Path As String

Private Sub txtSök_AfterUpdate()

Me.RecordSource = Me.RecordSource
Me.RecordsetClone.FindFirst "[Produktion] LIKE '" & Me![txtSök] & "'"
If Me.RecordsetClone.NoMatch Then
MsgBox "Search " & txtSök & " hittades inte!" & vbCrLf & "Gör ett nytt försök ? ", _
, "Söknings fel!"
txtSök.Value = ""
GoTo Kraj
End If

Me.Bookmark = Me.RecordsetClone.Bookmark

If Me.RecordsetClone.NoMatch Then

Me.SUB_Produktion.Visible = False
Me.SUB_Test.Visible = False
Me.SUB_Anteckning.Visible = False

Else
Me.SUB_Test.SourceObject = Me.SUB_Test.SourceObject
End If
txtSök.Value = ""
Exit Sub
Kraj:
End Sub

---