Disable a frame with 2 or 3 option button inside depending on another filed in the same form

[Ctrl-v]

Hi,



I am new to Access. Very new. I have had a lot of experience with certain aspect of Excel, but not with VBA.

I am making a form for work. The form is meant to be a sort of checklist for people to use. Some things on the checklist are not needed and should not be completed depending on the answer to one of the other fields on the same form. The other filed is a combo box. If a specific 2 choices of the combo box is selected I want to disable a frame with 2 to 3 option buttons in it. How do I do this. I am extremely new to VBA, so I would gratefully appreciate if you can be quite specific with me.

All help is greatly appreciated!!!

[ranman256]

something similar to:

sub cboBox_afterupdate()

option1.enabled = true
option2.enabled = true

select case cbobox
   case "Male"
       option1.enabled = false
   case "Female"
       option2.enabled = false
end select
end sub

[Ctrl-v]

Hmm...

I'm running into problems. Can you explain to me which pieces of the string I should replace to match what I am working with?

[June7]

Substitute cboBox, option1, option2 with your control names.

Replace Male and Female with your values.

Exactly what 'problems' - error message, wrong results, nothing happens?

[Ctrl-v]

Substitute cboBox, option1, option2 with your control names.

Replace Male and Female with your values.

Exactly what 'problems' - error message, wrong results, nothing happens?

I don't remember because I tried making several edits since it not working the first time.

I attached it.

I am trying to have the "Harp status" frame to be disabled the the "harp status" combo box is selected as blank or "None"

[June7]

Attached what and where?

[Ctrl-v]

Guess something went wrong the first time. It should be attached now.

[davegri]

Add this VBA code behind the form

Option Compare Database
Option Explicit

Private Sub ComboHarpStatus_AfterUpdate()
    Call ControlFrame
End Sub

Private Sub Form_Current()
    Call ControlFrame
End Sub

Private Sub ControlFrame()
    If ComboHarpStatus = "NONE" Or IsNull(ComboHarpStatus) Then
        Frame125.Visible = False
    Else
        Frame125.Visible = True
    End If
End Sub

[Ctrl-v]

Thank you very much! It worked!