Option Compare Database
 Option Explicit
 Dim Path As String

 Private Sub txtSök_AfterUpdate()


 Me.SUB_Produktion.Visible = true
 Me.SUB_Test.Visible = true
 Me.SUB_Anteckning.Visible = true
 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 = ""
 Me.SUB_Produktion.Visible = False
 Me.SUB_Test.Visible = False
 Me.SUB_Anteckning.Visible = False
 GoTo Kraj
 End If
 Me.Bookmark = Me.RecordsetClone.Bookmark
 Me.SUB_Test.SourceObject = Me.SUB_Test.SourceObject
 txtSök.Value = ""
 Exit Sub
 Kraj:
 End Sub