No Current Record - Close Form

Hi,

on a form with several subforms i have ran into some trouble. I have the subforms use code to determine if a scrollbar is needed. As a recordselector I use a listbox on the main form.

When i close the mainform, it sometimes makes a popup box appear saying that there is no current record.

Sofar I have determined the following :

- Removing the code from the form, removes the error.

- The code is only executed when selected records in the listbox have related record(s)

- The error only occurs when the code is executed at least once and the last selected record has no related record(s)

I dont know if altering the code would have any success, cause it won't run anyway when I select the last record (with no related records).

I guess moving the code to another section would be better, but I've tried other options like 'on focus' etc, but could not find one that responded.

HELP PLZ :)


Private Sub Form_Current()
On Error GoTo Error

'kijken of verticale scrollbar nodig is
maxRegels = 14

Dim rstCount As DAO.Recordset
Set rstCount = Me.Recordset
If rstCount.RecordCount > maxRegels Then
Me.Form.ScrollBars = 2
Else
Me.Form.ScrollBars = 0
End If

Error:
If Err.Number <> "0" Then
Else
MsgBox Err.Number & " " & Err.Description
End If
Exit Sub

End Sub

ps. I've tried to catch err.Number = "3021" in the Error: section, but without success