if text field is ... This is a big one.

[redbull]

Okay, so I am having a problem. This app is sending data into a website from a txt field on a form... if the search is performed while the field is blank, it runs a query on the site and tries to pull back over 300k clients. Causing stress on the server and a performance issue for many people....

Essentially I am trying to say, If this txt on this form is blank, then exit sub and end if.

This does not look right to me. I am fairly new to VBA and I cannot think of the solution.

 If Forms("frmMain").txtLMClient <> "" Then
        Exit Sub
        End If

Here is a bigger part of the code I guess it might help. +

 oHub.Document.all.Item("providerAcctSearchForm.providerAcctName").Value = Forms("frmMain").txtLMClient.Value
 
 If Forms("frmMain").txtLMClient <> "" Then
        Exit Sub
        End If
 
   oHub.Navigate "javascript:submitFormWithAction(document.providerAccountSearchSummaryForm, document.providerAccountSearchSummaryForm.form_action, 'ActionSearchProviderAccounts')"

Basically I do not want the last ohub.navigate to run if that field is blank.... Any help would be appreciated.

[June7]

Code you show exits if value is not an empty string. Wouldn't you rather run the code?

This deals with the value if it is Null or empty string:

If Forms!formMain.txtLMClient & "" <> "" Then
oHub.Navigate "javascript:submitFormWithAction(document.provider AccountSearchSummaryForm, document.providerAccountSearchSummaryForm.form_act ion, 'ActionSearchProviderAccounts')"
End If

[redbull]

Code you show exits if value is not an empty string.

Hmm, that might be the issue. Basically if the field on the form is empty I want to exit sub and end if.

If Forms!formMain.txtLMClient & "" <> "" Then
exit sub
end if

If the app runs the "oHub.Navigate "javascript:submitFormWithAction"
line with no criteria in the field it really makes a mess of one of the servers. I will try this tomorrow morning and get back to you. thank you for your time.

[June7]

Maybe I am missing something, but you are exiting the sub if there IS a value, not if there isn't. Look at my suggested code again.

[redbull]

Yea, After a few hours of sleep... the whole question is just embarrassing. The code below does what I am looking for.



If Forms("frmMain").txtLMClient = "" Then
Exit Sub
End If