hide cmd buttons untill selection is made in cbo box

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hello, I have a question and I have no clue on how to do it. I have a combo
box named cboEmployees and this is what I want to do is if I dont select
anything from the list in the cboEmployees then the two buttons named
cmdIndividualEmployeeData and cmdIndividualEmployeePercent will not show. Now
I want the buttons "cmdIndividualEmployeeData and
cmdIndividualEmployeePercent" to be visable but whited out and not clickable
but if I select something from the cboEmployees menu the they will show
regularly. I have this on a database section already but it was pre-made and
I cant figure out how to do it. Here is the code from the other database I
think that makes it work and with my names in it but it doesnt work for me in
the new database. What and where am I missing code? Thanks!

Private Sub cboEmployees_AfterUpdate()
If IsNull(Me.cboEmployees) Then
Me.TimerInterval = 0
Me.FramePropertyValue.Enabled = False
Else
Me.FramePropertyValue.Enabled = True
End If
End Sub


Private Sub FramePropertyValue_AfterUpdate()
If Me.ActiveControl <> 0 Then
Me.cmdIndividualEmployeeData.Enabled = True
Me.cmdIndividualEmployeeData.ForeColor = 0
Else
Me.cmdIndividualEmployeeData.Enabled = False
Me.cmdIndividualEmployeeData.ForeColor = 255
End If
End Sub
 
On your access form make sure that your combobox has a name. You do this by
opening the form in design mode, then double-click on the combobox (or right
click and select properties) to open properties. Select "Other" and give the
combobox a name, for instance "cboEmploees".

Then, still within properties, go to "events" and select (double click)
"after update" event. This will open the visual basic editor and insert an
empty procedure Private Sub cboEmployees_AfterUpdate() This will ensure that
you have created a procedure that is triggered by your combobox. To test it,
you can write a line of code within the procedure:

Private Sub cboEmployees_AfterUpdate()

Msgbox("Procedure runs ok")

End sub

If the msgbox is displayed when your select something from your combobox
then the procedure runs ok.

To add some of the logic you request you can substitute the msgbox line with
the following:

If isnull(Me.cboEmployees.column(0)) Then

Me.cmdIndividualEmployeeData.enabled = False

Me.cmdIndividualEmployeePercent.enabled = False

Else

Me.cmdIndividualEmployeeData.enabled = True

Me.cmdIndividualEmployeePercent.enabled = True

End if

I don't know if your combobox has more than one column. Column(0),
Column(1), Column(2) etc selects the actual columns of your combobox.

Regards

Tore





Hello, I have a question and I have no clue on how to do it. I have a
combo
Click to expand...
box named cboEmployees and this is what I want to do is if I dont select
Click to expand...
anything from the list in the cboEmployees then the two buttons named
Click to expand...
cmdIndividualEmployeeData and cmdIndividualEmployeePercent will not show.
Now
Click to expand...
I want the buttons "cmdIndividualEmployeeData and
Click to expand...
cmdIndividualEmployeePercent" to be visable but whited out and not
clickable
Click to expand...
but if I select something from the cboEmployees menu the they will show
Click to expand...
regularly. I have this on a database section already but it was pre-made
and
Click to expand...
I cant figure out how to do it. Here is the code from the other database I
Click to expand...
think that makes it work and with my names in it but it doesnt work for me
in
Click to expand...
the new database. What and where am I missing code? Thanks!

Private Sub cboEmployees_AfterUpdate()
Click to expand...
If IsNull(Me.cboEmployees) Then
Click to expand...
Me.TimerInterval = 0
Click to expand...
Me.FramePropertyValue.Enabled = False

Me.FramePropertyValue.Enabled = True
Click to expand...
End If
Click to expand...
End Sub


Private Sub FramePropertyValue_AfterUpdate()
Click to expand...
If Me.ActiveControl <> 0 Then
Click to expand...
Me.cmdIndividualEmployeeData.Enabled = True
Click to expand...
Me.cmdIndividualEmployeeData.ForeColor = 0

Me.cmdIndividualEmployeeData.Enabled = False
Click to expand...
Me.cmdIndividualEmployeeData.ForeColor = 255
Click to expand...
 
You will need to put code in two places. To ensure they are disabled for
each record, you will need to disable them in the form Current event.

With Me
.cmdIndividualEmployeeData.Enabled = False
.cmdIndividualEmployeePercent = False
End With

Then to turn them on use the AfterUpdate event of the Combo box

With Me
.cmdIndividualEmployeeData.Enabled = True
.cmdIndividualEmployeePercent = True
End With
 
I have tried this code already and its something like what I want to do but
not quite. I dont want the buttons to be invisable untill I select something
in the combo box I want them to be visable but whited out and non clickable
untill a selection is made. Any ideas? Thanks!!!
 
I got it working the way I wanted. I had to set the button(s) I wanted whited
out to event Enabled= No and I used this code...

Private Sub cboEmployees_AfterUpdate()

If Me.cboEmployees <> 0 Then
cmdIndividualEmployeeData.Enabled = True
cmdIndividualEmployeePercent.Enabled = True
Else
cmdIndividualEmployeeData.Enabled = False
cmdIndividualEmployeePercent.Enabled = False
End If

End Sub
 
Back
Top