Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
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 En