lestermadoc
Programmer
'The following five lines work...
Private Sub cmbjump_AfterUpdate()
searcher = (Nz(Me![cmbjump], 0)) 'cmbjump is a combo box
searched = "[cid]" '[CID] is the primary key
jumpsearch 'jumpsearch is a function which I listed below.
End Sub
'But these five lines don't (Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another).
Private Sub cmbjump2_AfterUpdate()
searcher = (Nz(Me![cmbjump2], 0))
searched = "[lastname]"
jumpsearch
End Sub
function jumpsearch()
Set rs = Form_record.Recordset.Clone
rs.Find searched & " = " & searcher
If Not rs.EOF Then Form_record.Bookmark = rs.Bookmark
end function
Anyone know how I can get this to work?
Private Sub cmbjump_AfterUpdate()
searcher = (Nz(Me![cmbjump], 0)) 'cmbjump is a combo box
searched = "[cid]" '[CID] is the primary key
jumpsearch 'jumpsearch is a function which I listed below.
End Sub
'But these five lines don't (Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another).
Private Sub cmbjump2_AfterUpdate()
searcher = (Nz(Me![cmbjump2], 0))
searched = "[lastname]"
jumpsearch
End Sub
function jumpsearch()
Set rs = Form_record.Recordset.Clone
rs.Find searched & " = " & searcher
If Not rs.EOF Then Form_record.Bookmark = rs.Bookmark
end function
Anyone know how I can get this to work?