My IF Doesnt work.

[simonmarkjones]

Hi i've tried both
If Len(Form_form1.txtReceiptNo.Value) = 0 Then
MsgBox "Receipt Number is required", vbOKOnly, "Required Field"
Form_form1.txtReceiptNo.SetFoc*us
Exit Function
and
Trim(Form_form1. txtReceiptNo) = "" Then
MsgBox "Receipt Number is required", vbOKOnly, "Required Field"
Me.txtReceiptNo.SetFocus
Exit Function
And neither one display a Mesage box at all. What am i doing wrong? I
have not typed anything into this textbox.
Thanks

[Justin Hoffman]

<si************@gmail.com> wrote in message
news:11**********************@z14g2000cwz.googlegr oups.com...
Hi i've tried both
If Len(Form_form1.txtReceiptNo.Value) = 0 Then
MsgBox "Receipt Number is required", vbOKOnly, "Required Field"
Form_form1.txtReceiptNo.SetFoc*us
Exit Function
and
Trim(Form_form1. txtReceiptNo) = "" Then
MsgBox "Receipt Number is required", vbOKOnly, "Required Field"
Me.txtReceiptNo.SetFocus
Exit Function
And neither one display a Mesage box at all. What am i doing wrong? I
have not typed anything into this textbox.
Thanks
You don't say where you are writing this code (ie which event should trigger
it to happen) but in general when working with textboxes you should check
for null or use the Nz function which converts null values into zero-length
strings.
If IsNull(Me.txtReceiptNo) Then ...
If Len(Trim(Nz(Me.txtReceiptNo,"")))=0 Then...

[Thelma Lubkin]

si************@gmail.com wrote:
: Hi i've tried both
: If Len(Form_form1.txtReceiptNo.Value) = 0 Then

: MsgBox "Receipt Number is required", vbOKOnly, "Required Field"
: Form_form1.txtReceiptNo.SetFoc*us
: Exit Function

Try using Len(Form_form1.txtReceiptNo.Text) instead.
Value may not always update to what's in the textbox window.
--thelma

: Thanks

[simonmarkjones]

Thanks but that way you still have to set the focus beforhand with

Form_form1.txtReceiptNo.SetFocus