I'm COMPLETLY STUMPED

[allstar45]

If Not (Forms!frmInputPara.txtName = "" Or Forms!frmInputPara.txtParagraph = "") Then
...Code
Else
If (Forms!frmInputPara.txtName = "" Or Forms!frmInputPara.txtParagraph = "") Then
MsgBox "WINGO!"
Else
MsgBox "O NO!"
End If
End If



This makes 0 sense at all. I should never get the error message "O NO!"
there is no syntax error, with both fields blank, or either one field blank, I get "O NO!" instead of the intended "WINGO!"

Can someone please explain what I'm doing wrong here??

Additional stuff:
I have Debugged with txtName blank. It confirms the first statment as True (so it goes to the Else because of the Not)

then goes to the second If, which is within the Else, WHICH IS THE EXACT SAME (copy paste) without the Not, and for some reason skips over it, into the else containing "O NO!"

just does not make sense.

Help plz T.T

[pbaldy]

My guess is that the controls are Null. Try this type of test:

If Len(Me.SomeControl & vbNullString) = 0 Then

which tests for both Null and the ZLS.

[RayMilhon]

Why the second If? An if statement says if true do this else do that. Your statement says if true do this else if false do this else do that. You only have 2 values true and false Why put in the second if? Secondly prior to the first if statement put in the following

msgbox forms!frminputpara.txtname = "",vbokonly,"Test1"
msgbox forms!frminputpara.txtparagraph="",vbokonly,"Test2 "

This will show the true (-1) False (0) Value for both of your parameters. Make a chart with 3 columns run through your routine and put the appropriate value in each column test1, test2, result. See what's actually going on Post your results back here if you're still having issues.



If Not (Forms!frmInputPara.txtName = "" Or Forms!frmInputPara.txtParagraph = "") Then
...Code
Else
MsgBox "WINGO!"
End If

[RayMilhon]

pbaldy-you posted while I was typing yours makes more sense. I hadn't thought of nulls.

[allstar45]

to pbaldy:

I have an issue with focus, where I can not focus two items at once,

Also if that were the case wouldn't the first if statment get passed as True because of the Not, or give a null pointer exeption of some kind?

I do appretiate the help tho

To Ray:
I formatted it like that to simplify things and try to get it to work. my actual code looks like this:

Private Sub Command8_Click()
If Not (Forms!frmInputPara.txtName = "" Or Forms!frmInputPara.txtParagraph = "") Then

...Code

Else
'Displays the error msg depending on what the user has missed
Dim errorMsg As String
errorMsg = "Please make the following change(s): "

If (Forms!frmInputPara.txtName = "" And Forms!frmInputPara.txtParagraph = "")Then
errorMsg = errorMsg & "Add a name and a paragraph."
MsgBox "WINGO!"
ElseIf (Forms!frmInputPara.txtParagraph = "") Then
errorMsg = errorMsg & "Add a paragraph."
Else
errorMsg = errorMsg & "Add a name."
MsgBox "O NO!"
End If
MsgBox errorMsg
End If
End Sub


Edit: I have confirmed that the values are Null, (got Null error using Ray's test1, test2)
I believe there was also an issue where as I was not saving the actual Text inside of the controls.

My code is now working as intended, thanks in part, both of you!~

[pbaldy]

I don't understand the issue with focus. How does that relate to this? I take it you didn't even try the recommended change? Do these results from the Immediate window give you pause?

?1=1
True
?not 1=1
False
?null = ""
Null
?not null = ""
Null

[RayMilhon]

Glad you got it working.

[pbaldy]

Also glad you got it working. What does the code look like now?

[allstar45]

Private Sub Command8_Click()
Dim para As Variant
Dim name As Variant
Forms!frminputpara.txtName.SetFocus
name = Forms!frminputpara.txtName.Text
Forms!frminputpara.txtParagraph.SetFocus
para = Forms!frminputpara.txtParagraph.Text
If Not (name = "" Or para = "") Then

' DoCmd.OpenQuery ("qryInputPara")
Forms!frminputpara.txtName.SetFocus
MsgBox Forms!frminputpara.txtName.Text + " Has been added as a Paragraph."

'resets the form after it's been inserted into tables.
Forms!frminputpara.txtName.SetFocus
Forms!frminputpara.txtName.Text = ""

Forms!frminputpara.CheckBAEQ.SetFocus
Forms!frminputpara.CheckBAEQ = No

Forms!frminputpara.CheckPAEQ.SetFocus
Forms!frminputpara.CheckPAEQ = No

Forms!frminputpara.CheckIAEQ.SetFocus
Forms!frminputpara.CheckIAEQ = No

Forms!frminputpara.CheckAEFQ.SetFocus
Forms!frminputpara.CheckAEFQ = No

Forms!frminputpara.CheckPAEQ2.SetFocus
Forms!frminputpara.CheckPAEQ2 = No

Forms!frminputpara.CheckIAEQ2.SetFocus
Forms!frminputpara.CheckIAEQ2 = No

Else
'Displays the error msg depending on what the user has missed
Dim errorMsg As String
errorMsg = "Please make the following change(s): "

If (name = "" And para = "") Then
errorMsg = errorMsg & "Add a name and Add the paragraph."
ElseIf Len(para & vbNullString) = 0 Then
errorMsg = errorMsg & "Add the paragraph."
Else
errorMsg = errorMsg & "Add a name."
End If

MsgBox errorMsg
End If
End Sub


------
That is my code as it stands, as you can see I did implement your method, and it worked,

I had two issues before:

1) when I was checking two controls at once it gave me an error saying "Can not access control when not focused" or something similar to that.

2) The other issue was that I was compairing
Me.txtName and Me.txtParagraph to ""
and not
Me.txtName.Text to ""


I solved these issues by assigning Me.txtName.Text to Varient name and Me.txtParagraph.Text to para.
This solved the focusing issue because I could focus, assign then re-focus to a different control then assign.

Hope that makes sense :/ explination has never been my strong suit

[pbaldy]

Your problem with focus was due to using the .Text property, which requires it. If you used the default .Value property, you would not need to set focus. You shouldn't need any of those SetFocus lines.

[allstar45]

does the same go for Checkbox.Value (true false) and non-visable text?

And what about combo boxes? is there a work around for not focusing them?

This really solves a lot of my problems instead of having to have a bunch of additional work arounds!

[pbaldy]

You shouldn't need to set focus to any of them. Just use .Value instead of .Text. You only need .Text if you need each keystroke. Here's some info my friend Jason put together:

http://www.baldyweb.com/ValueText.htm

[allstar45]

So does this also work in Queries?

Do you know any workarounds for Combo boxes aswell (so I dont have to focus it)?

The only way I have been able to have a combo selection in a querie has been assigning a label to the value I want on the form, because when I try to run something like:
Forms!frmInputPara.Combo5.Column(0) in my querie, it gives me a run-time error 3085
(Undefined function 'Forms!frmInputPara.Combo5.Column' in expresstion)
with the DoCmd.OpenQuery line highlighted.

Can I use .Value somehow to get the value of a combobox.column value?

[pbaldy]

Using the Column property is an issue in queries. If the desired column is the bound column (which it typically would be), you can simply have this in the query:

Forms!frmInputPara.Combo5

If it's not the bound column, I think you might be able to wrap the form reference in the Eval() function, but don't quote me on that without testing.

[allstar45]

Thanks, the desired column WAS the bound column, works even better now

Cheers~