Søg med inputbox
Hej.Hvorfor virker flg. ikke?
Private Sub Find_report_Click()
Dim Find
Me.fld_serialnumber.SetFocus
Find = InputBox("Search on serial number", "Find Report")
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[fld_serialnumber] = " & Str(Nz([Find], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
