"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
--
Jeff Conrad
Access Junkie
Bend, Oregon
|