Help with message box

[Cablenm]

Thanks in advance for any help.



I have a form that has 8 yes/no check boxes on it. I have a combo box that has several choices, one of them being "Complete". I would like to have a message box pop up if the user chooses "Complete" if any or all check boxes are checked. Then when they hit ok to close the message box, the combo box reverts back to the what it was. If all check boxes are unchecked then no message box appears and it just allows the combo box change to "Complete" happen.

Can anyone help me with how to code this??

[RuralGuy]

If the CheckBoxes are bound to fields in the RecordSource then code in the AfterUpdate event of the ComboBox could easily accomplish what you want.

[Cablenm]

That would be great except I don't no how to go about coding it. Kind of brain dead in that department. Any help would be greatly appreciated.

And yes, they are bound to the record source.

[RuralGuy]

This should get you started but you will need to change the RED items to your names.

Private Sub cbo_AfterUpdate()
   Dim IsChecked As Boolean      '-- Defaults to False
   Dim ctl As Control
 
   For Each ctl In Me.Controls
      If ctl.ControlType = acCheckBox Then
         If ctl = True Then
            IsChecked = True
         End If
   Next ctl
   If IsChecked Then
      MsgBox "Here's a message for you"
      Me.cbo.Undo
   End If
 
End Sub

This also assumes the ComboBox is bound as well.

[Cablenm]

This should get you started but you will need to change the RED items to your names.

Private Sub Combo30_AfterUpdate()
   Dim IsChecked As Boolean      '-- Defaults to False
   Dim ctl As Control
 
   For Each ctl In Me.Controls
      If ctl.ControlType = acCheckBox Then
         If ctl = True Then
            IsChecked = True
         End If
   Next ctl
   If IsChecked Then
      MsgBox "Here's a message for you"
      Me.Combo30.Undo
   End If
 
End Sub

This also assumes the ComboBox is bound as well.

I inserted the combo box name that is bound. I get a complie error "Next without For".

Does your code cover all 8 check boxes, or do they need listed separate?

Also, the message box should only come up if "Completed" is choosen in the combo box. I hope this makes sense.

Really appreciate your time here!!!!!!!!!!!

[RuralGuy]

Oops! Air code has its problems:

Private Sub Combo30_AfterUpdate()
   If Me.Combo30 = "Completed" Then
      Dim IsChecked As Boolean   '-- Defaults to False
      Dim ctl As Control
      For Each ctl In Me.Controls
         If ctl.ControlType = acCheckBox Then
            If ctl = True Then
               IsChecked = True
            End If
         End If
      Next ctl
      If IsChecked Then
         MsgBox "Here's a message for you"
         Me.Combo30.Undo
      End If
   End If
End Sub

[Cablenm]

***You are great. The only problem is it would not change the "completed" back to what ever it was prior, it just stayed "Completed". I made the change you see and that works for now. Any Ideas?

Oops! Air code has its problems:

Private Sub Combo30_AfterUpdate()
   If Me.Combo30 = "Completed" Then
      Dim IsChecked As Boolean   '-- Defaults to False
      Dim ctl As Control
      For Each ctl In Me.Controls
         If ctl.ControlType = acCheckBox Then
            If ctl = True Then
               IsChecked = True
            End If
         End If
      Next ctl
      If IsChecked Then
         MsgBox "Here's a message for you"
         Me.Combo30 = "Work In Progress"
      End If
   End If
End Sub

[RuralGuy]

Does the ComboBox have a ControlSource?

[Cablenm]

Yes "Statis ID"

[RuralGuy]

In that case the Me.Combo30.UnDo should have worked.