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
Danas je lako biti neprijatelj, al' je tesko biti prijatelj. Samo radi toga, ja, radim teske stvari!