Hi Steve :-)

Yup! BTDT... ;o)) I kinda thought that might be how it should go.....g

Jan,

Sorry, got bitten by the "incomplete copy/paste bug"!! "Case 1"
certainly gets too much attention! This should be...

Select Case Me.YourOptionGroup
Case 1
Me.RecordSource = "SELECT * FROM YourQuery WHERE txtCheckNo Not
Like 'DBT*'"
Case 2
Me.RecordSource = "SELECT * FROM YourQuery WHERE txtCheckNo
Like 'DBT*'"
Case 3
Me.RecordSource = "YourQuery"
End Select

or...
Select Case Me.YourOptionGroup
Case 1
Me.Filter = "txtCheckNo Not Like 'DBT*'"
Me.FilterOn = True
Case 2
Me.Filter = "txtCheckNo Like 'DBT*'"
Me.FilterOn = True
Case 3
Me.FilterOn = False
End Select

Jan


Jan Il wrote:
Hi Steve :-)

Thank you very much for the information. I'll give these a go and see
how I
get along with them. I'll check back with you. :-)

Jan