Hey Jeff! :-)


"Jan Il" wrote:

Hi Jan,

'k..!! Now here's what I now have, and the Debugger's happy with it.

Private Sub fmeOptionGrp_AfterUpdate()
Select Case Me.fmeOptionGrp

Case 1
Me.RecordSource = "SELECT * FROM qryCkRegisterDan WHERE CheckNo
Not
Like 'DBT*'"
Case 2
Me.RecordSource = "SELECT * FROM qryCkRegisterDan WHERE CheckNo
Like 'DBT*'"
Case 3
Me.RecordSource = "qryCkRegisterDan"
End Select

End Sub


YES!!!

But.....ahmmm......nothing happens when I click the buttons. (?..?) It
looks really nice though. :-)

What might I have left out? Do I need a command button to go with?

Looks to me like you are missing the all important line of code to tell
Access to requery the form.

Add this line right below the End Select:

Me.Form.Requery

'k...I put this in and tried it, but, I'm still not getting any response
from the buttons. I think, as I mentioned to Steve in my reply to him, that
I may have it on the wrong form, and I need to do this on the record form,
or....maybe I need to tell it to open the Record form to display the
relative data for each button. Either that, or I've still done something
correctly.

Thank you for the additional help....I really appreciate it. :-)

Jan