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