Switchboard and RecordsetClone Problem

[dtrahokie]

When running a form through a Switchboard I am getting an error when trying to execute the following code.

Private Sub lbxIPHOSTOWNER_AfterUpdate()
Const cQ = """"
With Me.RecordsetClone
.FindFirst "IP_Address = " & cQ & Me.lbxIPHOSTOWNER & cQ
Me.Bookmark = .Bookmark
Me.Refresh
End With
End Sub

The error that I get says the following:
"No current record. (Error 3021)
This error occurs after the unsuccessful application of one of the Find methods or the Seek method, when the underlying Recordset contains no records or the record has been deleted. Move to or select another record, and try the operation again. If the Recordset is empty, you cannot position to a current record. Check the BOF and EOF properties."

This function works fine when the form is opened without using the Switcboard. Is there any way around this?

Thanks in advance.

-Matt

 

[RoyVidar]

I'm not sure what way around you need, either ensure that there's a record matching, or check for .bof, or since this is a DAO recordset, check for nomatch:

[tt]If not .nomatch then Me.Bookmark = .Bookmark[/tt]

Roy-Vidar

 

[dtrahokie]

That still doesn't work. The debugger keeps highlighting the statement, "Me.Bookmark = .Bookmark

 

[RoyVidar]

What kind of mode do you open the form in thru your switchboard? (it isn't the native Access Switchboard, is it?) if it's add mode (acFormAdd using the openform method of the docmd object) then there's no records to search, hence the error, but, using the .NoMatch property avoids that, at least on my setups.

If you're using the openform method of the docmd object, then try removing the acFormAdd argument. The native Switchboard I've never used (well, 6-7 years ago...), so there I don't know.

You are sure you've replaced your line:

[tt]me.bookmark=.bookmark[/tt]

with

[tt]if not .nomatch then me.bookmark=.bookmark[/tt]

Roy-Vidar