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