Predmet:Re: Problem sa pretragom
evo ti.
PreuzmiIzvorni kôd (Visual Basic):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
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.