Ensuring Combobox has Value entered if another ComboBox has aspecific value

[Gareth Hardman]

Hi,

I am new to this group and reletavily new to VBA code and Userforms so
please forgive my potential huge knowledge gaps...

I am trying to ensure that if one particular combobox has a value i.e.
'Breach' in it, that before the form can be 'submitted' successfully
another combobox has a value in it. I feel I maybe close with the
code below (but I could be a million miles away as well!):

I am attempting to use code like:

'check for DPA 1st Box
If Trim(Me.DPA.Value) = "" Then
Me.DPA.SetFocus
MsgBox "Please enter whether DPA was successful or not",
vbExclamation, "Not Quite Complete..."
Exit Sub
End If

' Check DPAIF Box
If Trim(Me.DPA.Value) = "Breach" Or "Process Fail" Then
If Trim(Me.DPAIFBox.Value) = "" Then
Me.DPAIFBox.SetFocus
MsgBox "Please select a reason why DPA was not completed successfully"
Exit Sub
End If

I am getting the error message: "Compile Error: Block IF without End
IF"

If the first DPA combobox says "Yes" or "N/A" then it is not essntial
that the DPAIFBox has a value. Hope all this makes sense.


Help would be grately appreciated - and I apoloigise if I have not
conformed to any forum etiquette

 

[Auric__]

I am new to this group and reletavily new to VBA code and Userforms so
please forgive my potential huge knowledge gaps...

I am trying to ensure that if one particular combobox has a value i.e.
'Breach' in it, that before the form can be 'submitted' successfully
another combobox has a value in it. I feel I maybe close with the
code below (but I could be a million miles away as well!):

I am attempting to use code like:

'check for DPA 1st Box
If Trim(Me.DPA.Value) = "" Then
Me.DPA.SetFocus
MsgBox "Please enter whether DPA was successful or not",
vbExclamation, "Not Quite Complete..."
Exit Sub
End If

' Check DPAIF Box
If Trim(Me.DPA.Value) = "Breach" Or "Process Fail" Then
If Trim(Me.DPAIFBox.Value) = "" Then
Me.DPAIFBox.SetFocus
MsgBox "Please select a reason why DPA was not completed successfully"
Exit Sub
End If

Need another "End If" right here.

 

[Gareth Hardman]

Hi Auric,

I have tried adding an additional End IF statement, however I now get
a 'Runtime Error 13: Type mismatch' error message. When I select
Debug, it highlights the folowing line of code in yellow:

If Trim(Me.DPA.Value) = "Breach" Or "Process Fail" Then

Any further help on this would be grateful

 

[Gareth Hardman]

Hi Auric,

I have tried adding an additional End IF statement, however I now get
a 'Runtime Error 13: Type mismatch' error message.  When I select
Debug, it highlights the folowing line of code in yellow:

If Trim(Me.DPA.Value) = "Breach" Or "Process Fail" Then

Any further help on this would be grateful

Hi - I have now found a solution to the query - thanks for looing into
it for those that may have