Unbound Text Box = 0 in Form

ElTipo

Great People!

I need some help in this instruction. Ok I have two fields text boxes dates and one text box showme any result but the result text box only show me a zero 0 as result. I need in this result 0.5 if the two fields are Not Null.

All this is in VBA in a Form nested If with the same instructions but other results example 0.75 or 1.

Ex:

Expand|Select|Wrap|Line Numbers

 If Me.[Datefield].Value <> Null And Me.[Datefield].Value <> Null Then

Me.[Resulttextbox].Value = 0.5

Any Help?

ADezii

Quote:

Originally Posted by ElTipo

Great People!

I need some help in this instruction. Ok I have two fields text boxes dates and one text box showme any result but the result text box only show me a zero 0 as result. I need in this result 0.5 if the two fields are Not Null.

All this is in VBA in a Form nested If with the same instructions but other results example 0.75 or 1.

Ex:

If Me.[Datefield].Value <> Null And Me.[Datefield].Value <> Null Then
Me.[Resulttextbox].Value = 0.5

Any Help?

Expand|Select|Wrap|Line Numbers

 If Not IsNull(Me!<[Field1]>) And Not IsNull(Me!<[Field2]>]) Then

  MsgBox "Both not Null"

End If

NeoPa

As the Null value is neither numeric nor textual, it cannot be compared as a number or text.

ADezii's post shows how controls can be tested for Null.

BTW your code tries to test the same control twice :S

ElTipo

Thanks ADezii for your time the sintax work but only showme the first line result (1) for this nested IF and not change for the second IF situation.

Ex:

Expand|Select|Wrap|Line Numbers

 If IsNull(Me![Datefield1]) And Not IsNull(Me![Datefield2]) Then

Me.[ResultTextbox].Value = 1

 Else

If Not IsNull(Me![Datefield3]) And Not IsNull(Me![Datefield4]) Then

Me.[ResultTextbox].Value = 0.5

 Else

Me.[ResultTextbox].Value = 0

The result has to see where I place the event procedure?
Ex: on OpenForm etc..

NeoPa

Could you post the results you get along with the values in the four datefield controls. Please also include the reults that you would expect where different from those seen. That way we can check what is and what isn't working.

PS. Please note the edit comments by some of your posts. As a full member now you need to be more careful of the rules. We tend to be more lenient with Newbies.

Unbound Text Box = 0 in Form

re: Unbound Text Box = 0 in Form

re: Unbound Text Box = 0 in Form

re: Unbound Text Box = 0 in Form

re: Unbound Text Box = 0 in Form

Similar Microsoft Access / VBA bytes

/bytes/development

/bytes/it

/bytes/about