Predmet:Re: Problem sa pretragom

---

nece da se save as ni u jednoj starijoj verziji. a evo koda:
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] & "'"
Me.Bookmark = Me.RecordsetClone.Bookmark

If Me.RecordsetClone.NoMatch Then
evo i slike forme


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

Else
Me.SUB_Test.SourceObject = Me.SUB_Test.SourceObject
End If
txtSök.Value = ""

e sad ako promjenim na true onda radi, medjutim to mi nije rijesenje jer mi je onda podforma vidljiva, a ja to necu.

Prilozi:

---