Command Button Help

[Kenny]

I have several command buttons that I need to enable and disable depending on
the one that is clicked currently my code reads like this.

CommandButton1 Click()
CommandButton1.Enabled = False 'because it was clicked
CommandButton2.Enabled = Ture 'because now it can be clicked
CommandButton2.Enabled = Ture 'because now it can be clicked
CommandButton2.Enabled = Ture 'because now it can be clicked

This continues for every commandbutton click procedure. I would like to
rewrite the code to go something like this but I cannot get it to work.
Please Help

Option Explicit
Dim Choice

CommandButtonChoice Sub()
CommandButton1.Enabled = True
CommandButton2.Enabled = True
CommandButton3.Enabled = True
CommandButton4.Enabled = True
Choice.Enabled = False <=============This turns the choice off
End Sub

CommandButton1 Click()
Choice=CommandButton1 <=============Choice to turn off
Call CommandButtonChoice
End Sub

Repeat for each click procedure

 

[OssieMac]

Hi again Kenny,

I assume that this is a follow on from my last reply to you. You need to use
Set when assigning and object to a variable.

Option Explicit
Dim Choice As Object

Sub CommandButtonChoice()
MsgBox "CommandButtonChoice() called"
CommandButton1.Enabled = True
CommandButton2.Enabled = True
CommandButton3.Enabled = True
CommandButton4.Enabled = True
Choice.Enabled = False
End Sub

Sub CommandButton1_Click()
MsgBox "CommandButton1_Click()"
Set Choice = CommandButton1
Call CommandButtonChoice
End Sub

Regards,

OssieMac

 

[Kenny]

This worked thanks!

Hi again Kenny,

I assume that this is a follow on from my last reply to you. You need to use
Set when assigning and object to a variable.

Option Explicit
Dim Choice As Object

Sub CommandButtonChoice()
MsgBox "CommandButtonChoice() called"
CommandButton1.Enabled = True
CommandButton2.Enabled = True
CommandButton3.Enabled = True
CommandButton4.Enabled = True
Choice.Enabled = False
End Sub

Sub CommandButton1_Click()
MsgBox "CommandButton1_Click()"
Set Choice = CommandButton1
Call CommandButtonChoice
End Sub

Regards,

OssieMac