Debug Run-Time Error

[littleclayjar]

On a filter form, I have three search criteria. When i click the button to "Clear Selection", I get a 'Run-time error '3021 - No current record' if any one of the criteria has not been selected. So for example, if I have Country and Packaging selected but not Technology and i want to clear all the filters, then the RunTime error comes up. What am I missing in the code?

Here is what i have for the code so far:

Private Sub cmdDeSelectAll_Click()
Dim rsCountryDest As DAO.Recordset
Dim rsTechnologyDest As DAO.Recordset
Dim rsPackagingDest As DAO.Recordset

'Clear all Country filters

Set rsCountryDest = Me.Lst_Countries_Dest.Recordset
rsCountryDest.MoveFirst

Do While Not rsCountryDest.EOF
rsCountryDest.Edit
rsCountryDest!InSelectedList = False
rsCountryDest.Update
rsCountryDest.MoveNext
Loop

Me.Lst_Countries_Source.Requery
Me.Lst_Countries_Dest.Requery
rsCountryDest.Close

'Clear all Technology filters

Set rsTechnologyDest = Me.Lst_Technology_Dest.Recordset
rsTechnologyDest.MoveFirst

Do While Not rsTechnologyDest.EOF
rsTechnologyDest.Edit
rsTechnologyDest!InSelectedList = False
rsTechnologyDest.Update
rsTechnologyDest.MoveNext
Loop

Me.Lst_Technology_Source.Requery
Me.Lst_Technology_Dest.Requery
rsTechnologyDest.Close

'Clear all Packaging filters

Set rsPackagingDest = Me.Lst_Packaging_Dest.Recordset
rsPackagingDest.MoveFirst

Do While Not rsPackagingDest.EOF
rsPackagingDest.Edit
rsPackagingDest!InSelectedList = False
rsPackagingDest.Update
rsPackagingDest.MoveNext
Loop

Me.Lst_Packaging_Source.Requery
Me.Lst_Packaging_Dest.Requery
rsPackagingDest.Close

End Sub

Thanks for the help in advance!

[puppydogbuddy]

On a filter form, I have three search criteria. When i click the button to "Clear Selection", I get a 'Run-time error '3021 - No current record' if any one of the criteria has not been selected. So for example, if I have Country and Packaging selected but not Technology and i want to clear all the filters, then the RunTime error comes up. What am I missing in the code?

Here is what i have for the code so far:

Private Sub cmdDeSelectAll_Click()
Dim rsCountryDest As DAO.Recordset
Dim rsTechnologyDest As DAO.Recordset
Dim rsPackagingDest As DAO.Recordset

'Clear all Country filters

Set rsCountryDest = Me.Lst_Countries_Dest.Recordset
rsCountryDest.MoveFirst

Do While Not rsCountryDest.EOF
rsCountryDest.Edit
rsCountryDest!InSelectedList = False
rsCountryDest.Update
rsCountryDest.MoveNext
Loop

Me.Lst_Countries_Source.Requery
Me.Lst_Countries_Dest.Requery
rsCountryDest.Close

'Clear all Technology filters

Set rsTechnologyDest = Me.Lst_Technology_Dest.Recordset
rsTechnologyDest.MoveFirst

Do While Not rsTechnologyDest.EOF
rsTechnologyDest.Edit
rsTechnologyDest!InSelectedList = False
rsTechnologyDest.Update
rsTechnologyDest.MoveNext
Loop

Me.Lst_Technology_Source.Requery
Me.Lst_Technology_Dest.Requery
rsTechnologyDest.Close

'Clear all Packaging filters

Set rsPackagingDest = Me.Lst_Packaging_Dest.Recordset
rsPackagingDest.MoveFirst

Do While Not rsPackagingDest.EOF
rsPackagingDest.Edit
rsPackagingDest!InSelectedList = False
rsPackagingDest.Update
rsPackagingDest.MoveNext
Loop

Me.Lst_Packaging_Source.Requery
Me.Lst_Packaging_Dest.Requery
rsPackagingDest.Close

End Sub

Thanks for the help in advance!

In each of the recordsets, you are doing a moveFirst without checking for RecordCount <> 0 , or alternatively, that .EOF or .BOF is not true.

See item #3 on the following link entitled VBA Traps Working With Recordsets
http://allenbrowne.com/ser-29.html

[littleclayjar]

Thank you very much! It worked!