I'm trying to set up an Access 2003 form with a number of combo boxes, a checkbox and a command button. I'd like to set up the checkbox so that it is enabled only after the user makes a selection from each of the combo boxes. The command button will be enabled only if the checkbox is checked. Optimally, I'd like to have the checkbox greyed out until it's available. Anyone have a solution for something like this? This is the sub I've been calling in Form_Load and AfterUpdates:

Private Sub EnableCheck()

If Me.cbo1 = Null Or Me.cbo2 = Null Or Me.cbo3 = Null Or Me.cbo4 = Null Then
   Me.chkConfirm.Enabled = False

Else
   Me.chkConfirm.Enabled = True

End If

End Sub

What I think you should do is:

Put the enabled property of the check box to false first.

I'm guessing the combo boxes or not cascading? If yes, only put the code on the last one, else put it on every combo box:

private sub combo afterupdate

if (isnull(me.cbo1) or me.cbo1 = "") AND (isnull(me.cbo2) or me.cbo2 = "") AND (isnull(me.cbo3) or me.cbo3 = "") AND (isnull(me.cbo4) or me.cbo4 = "") then
   me.chkConfirm.enabled=false
else
   me.chkconfirm.enabled=true
end if

end sub

this should enable the check box if an input has been made in every combo box (if I did not forget anything...)

To enable the command button do the following:
Put the enabled property to false
on the afterupdate event of the check box:

if me.chkconfirm = yes then
   me.commandbutton.enabled = true
else
   me.commandbutton.enabled = false
end if

Think this should do it...

The way I have always tested for a selection having been made in a combo box is like this:

If cmbMyCombo.ListIndex = -1 Then
    MsgBox "Please select a value in MyCombo", vbExclamation + vbOkOnly, "Entry Needed"
Else
    ' Ok to carry on...
End If

Hope that helps...

I have a form named "SelectSite" inside it I have a button named "OK" to enable/disable by check/uncheck a checkbox named "HideSelectSiteForm".

First of all..create event "onOpen" for this form then put this:

Me.OK.Enabled = False

Then on event property for this checkbox I put eventprocedure at "OnClick" Then...put script below


Private Sub HideSelectSiteForm_Click()
Me.OK.Enabled = True
    With Me.OK
        If Me.HideSelectSiteForm.Value = 0 Then ' If cleared.
            .Enabled = False ' Disable button.
        Else ' If checked.
            .Enabled = True ' Enable button.
        End If
    End With
End Sub




Thats it...