Verify if 2 textbox are empty when a user select a combobox (VBA)

[DECOVIOTI]

I am creating a vba form which I have 2 textbox and 1 combobox as attached. I would like to create the following condition. When the user try to change the combobox value without having put the amount in the 2 textbox first I would like to display a message e.g. "The textboxes need to have values", not allowing the user to continue. Could you please help me?

Sub TextBoxnull()
    
        If Len(TextBoxnull.txtTOPDtotalrem.Value) = 0 And Len(TextBoxnull.txtTOPDmedical.Value) > 0 Then
            MsgBox "Number must be entered to continue!"
         End If
        TextBoxnull.cboTOPDsuperannuationperc.Value = Format(TextBoxnull.cboTOPDsuperannuationperc.Value, "0%")
        Sheet1.Range("B10").Value = Format(TextBoxnull.cboTOPDsuperannuationperc.Value, "0%")
        With TextBoxnull
          .txtTOPtaxableremexclsuperannuation.Value = Format(Sheet1.Range("B13").Value, "$#,##0.00;-$#,##0.00")
          .txtTOPsuperannuationcontribution.Value = Format(Sheet1.Range("B14").Value, "$#,##0.00;-$#,##0.00")
          .txtTOPDtotalremnet.Value = Format(Sheet1.Range("B15").Value, "$#,##0.00;-$#,##0.00")
        End With
        
End Sub

 

[sykes]

NB test on a copy of your work, first.

Private Sub ComboBox1_DropButtonClick()
    With Me
        If .TextBox1.Value = "" Then MsgBox "Both TextBox1 AND 2 must contain values, before proceeding!": .TextBox1.SetFocus: Exit Sub
        If .TextBox2.Value = "" Then MsgBox "Both TextBox1 AND 2 must contain values, before proceeding!": .TextBox2.SetFocus: Exit Sub
    End With
End Sub

...change control names, to suite...

 

[dmt32]

Hi,
another way maybe

Private Sub ComboBox1_Enter()
    Dim i As Integer
    For i = 1 To 2
    With Me.Controls("TextBox" & i)
            If Len(.Value) = 0 Then
                MsgBox .Name & " must contain a value before you can continue.", 48, "Entry Required"
                .SetFocus: Exit Sub
            End If
        End With
    Next i
End Sub

Dave

 

[DECOVIOTI]

Hi,
another way maybe

Private Sub ComboBox1_Enter()
    Dim i As Integer
    For i = 1 To 2
    With Me.Controls("TextBox" & i)
            If Len(.Value) = 0 Then
                MsgBox .Name & " must contain a value before you can continue.", 48, "Entry Required"
                .SetFocus: Exit Sub
            End If
        End With
    Next i
End Sub

Dave

Thanks @Dave..your suggestions worked for me...Cheers

 

[dmt32]

Glad our suggestions were able to help you - we appreciate the feedback


Dave