Help with IF Statement

[jason_kelly]

Hi There,

I have the following code below, that will basically execute a function based on wether or not if there are specific fields on a form which are filled out.

The problem is this, when the fields (h3, h9 and h5) are all filed in, I have 2 message boxes that are appearing and popping up:

"V4_SEARCHBYASSIGNTO" and
"V4_SEARCHBYASSIGNTO_WTYPE"

The only message box that should be popping up is:
"V4_SEARCHBYASSIGNTO_WTYPE"

Any help with this is greatly appreciated.

Cheers,

Jay

[LEFT]Private Sub btn_search_Click()
'V4_SEARCHBYFILE
'V4_SEARCHBYSUB
'V4_SEARCHBYASSIGNTO
'V4_SEARCHBYASSIGNTO_WTYPE
 
If frmIMTS.h1.Value <> "" Then
MsgBox "V4_SEARCHBYFILE"
End If
 
If frmIMTS.h12.Value <> "" Then
MsgBox "V4_SEARCHBYSUB"
End If
 
If frmIMTS.h5.Value <> "" And frmIMTS.h9.Value <> "" Then
MsgBox "V4_SEARCHBYASSIGNTO"
End If
 
If frmIMTS.h3.Value <> "" And frmIMTS.h9.Value <> "" And frmIMTS.h5.Value <> "" Then
MsgBox "V4_SEARCHBYASSIGNTO_WTYPE"
End If
 
End Sub[/LEFT]

 

[bs0d]

If H3, H9 and H5 are filled in, then aren't both conditions met?

If frmIMTS.h5.Value <> "" And frmIMTS.h9.Value <> "" Then
MsgBox "V4_SEARCHBYASSIGNTO"
End If
 
If frmIMTS.h3.Value <> "" And frmIMTS.h9.Value <> "" And frmIMTS.h5.Value <> "" Then
MsgBox "V4_SEARCHBYASSIGNTO_WTYPE"
End If

Perhaps you want to modify the "V4_SEARCHBYASSIGNTO" msgbox to:

If frmIMTS.h5.Value <> "" And frmIMTS.h9.Value <> "" and frmIMTS.h3.Value = "" Then
MsgBox "V4_SEARCHBYASSIGNTO"
End If

So alert only if H5 and H9 are filled out, but not H3? A Select Case statement might work real well here too.

 

[jason_kelly]

Thanks bs0d,

The way this was setup to work was:

V4_SEARCHBYASSIGNTO is triggered by filling only 2 fields and the

V4_SEARCHBYASSIGNTO_WTYPE is triggered by filling out the 3 fields.

I can't seem to get excel to differentiate between the 2.

Jay.