FindFirst (1 Viewer)

[Wallie]

Hey,

I have a problem which I can't figure out....
I have a form where one can select a company and for that company the website is displayed with some extra info. The problem is, when there are no records in the table (websites) an error occurs:
No current record (3021). This is the code in the event for a combobox (AfterUpdate):
....
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[websiteID] = " & str(Me![companyComboBox])
Me.Bookmark = rs.Bookmark
websitesListBox.Requery
....

Any suggestions ?

Thanx

 

[simongallop]

Stick an If statement into the code after the findfirst so

rs.FindFirst ...
If rs.NoMatch = true then
Else
Me.Bookmark = rs.Bookmark
websitesListBox.Requery
End if

This will stop the box from requerying when null

HTH

 

[Wallie]

Thanx