"TORQUE" <To****@home.or g> wrote in message
news:ut******** *************** *********@4ax.c om...
On Thu, 4 May 2006 16:25:44 +1200, "Jeff Smith" <No****@Not.Thi s.Address>
wrote:
Hi Jeff,
Thanks for your help, but, It does not seem to work for me. I have tried
it
following along exactly as you have it in the paragraph above.
I dont know ?
Any other suggestions?
TIA
TORQUE
The complete sub routine should be
Private Sub fraGroup_AfterU pdate()
Const conEnable As Integer = 1 ' The option value of the optEnable
radio button
Const conDisable As Integer = 2 ' The option value of the optDisable
radio button
Select Case Me!fraGroup
Case conEnable
Me!cmdDelete.En abled = True
Case conDisable
Me!cmdDelete.En able = False
End Select
End Sub
Did you create the radio buttons using the Option Group control on the
Toolbox toolbar? To turn on the Toolbox menubar, go to the view menu and
select Toolbox. Make sure that the Control Wizards are turned on by clicking
the second icon on the toolbar. Then select the Option Group icon, the one
with a square and has xyz on its top, and follow the instructions. When
you're finished with the wizards, name the group frame to fraGroup (or
whatever you want but change the fraGroup in the code to the name you used)
and the buttons to optEnable and optDisable where each has an option value
of 1 and 2 respectively. Make sure that your delete button is named
cmdDelete. Click on the option group frame and in the AfterUpdate event
paste the code above. Before you try to see if it works, go to Debug and
select Compile. Nothing will be highlighted if there's no errors.
Jeff