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
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