Stop Button Working Before Form is Complete

Hey

Hopefully someone can help me with this. I'm very new at VBA and am kind of muddling my way through

I have some code to make the SUBMIT button selectable only after one of the Option boxes (client/agent) is filled, but I also have a username drop down box (user) and two other drop down boxes (calltype and details). How can I make it that the SUBMIT button doesn't work until ALL fields are filled? The code is below for what I already have and attached is a look at the form.

Clipboard01.jpg

Any help with these would be greatly appreciated...I'm pretty stuck. If you need any further clarification, please let me know.

Apologies if the code is ugly...I'm new to all this!

SUBMIT button code:

Private Sub Client_Change()

SUBMIT.Enabled = Client

End Sub

Private Sub agent_Change()

SUBMIT.Enabled = Agent

End Sub

Private Sub UserForm_Initialize()

SUBMIT.Enabled = False

End Sub

Is Client declared as a Boolean Variable or is the name of an Option Box or CheckBox?

The enabled will only be true if Client is True

Hi,

If you can attach a sample workbook, I can do that for you

Thanks and Best Regards,
Abi

Try this

Private Sub Client_Change()
    If bCombos Then Me.SUBMIT.Enabled = bCombos
End Sub

Private Sub agent_Change()
    If bCombos Then Me.SUBMIT.Enabled = bCombos
End Sub
Private Sub UserForm_Initialize()
    SUBMIT.Enabled = False
End Sub
Function bCombos() As Boolean
    Dim oCtrl As MSForms.Control
    Dim iX As Integer
   iX = 0
    For Each oCtrl In Me.Controls
        If TypeName(oCtrl) = "ComboBox" Then
            If oCtrl.Value <> Empty Then iX = iX + 1
        End If
    Next oCtrl
    If iX = 3 Then bCombos = True
End Function

The way you have the form set up you will need to click the option again. I can't really see why you have two option boxes.

Private Sub Client_Click()
    If bCombos Then
        Me.SUBMIT.Enabled = bCombos
    Else: Me.Client = False
        MsgBox "Complete all entries"
    End If
End Sub

Private Sub agent_Click()
    If bCombos Then
        Me.SUBMIT.Enabled = bCombos
    Else: Me.Agent = False
        MsgBox "Complete all entries"
    End If
End Sub
Private Sub UserForm_Initialize()
    SUBMIT.Enabled = False
End Sub
Function bCombos() As Boolean
    Dim oCtrl As MSForms.Control
    Dim iX As Integer
    iX = 0
    For Each oCtrl In Me.Controls
        If TypeName(oCtrl) = "ComboBox" Then
            If oCtrl.Value <> Empty Then iX = iX + 1
        End If
    Next oCtrl
    If iX = 3 Then bCombos = True
End Function