Which is correct? SOLVED

[Bazzlad]

For a blank text box....which is the correct way?

blah blah on click

if

A) text6.value = false
B) text6.value = Null
C) text6.value = 0

then

Etc

A B or C?
or is there another?

[alex_read]

I think generally the preferred way is to set the text property to a blank string, null does not mean the same thing...

Text1.Text = ""

[Bazzlad]

that wont work for reasons...which i should have explained!!! doh!

the text box itself is hidden and takes its value from a combobox

and you can't reference a property unless it has the focus

[opus]

Hi, alex
he asked the same in the general section.
on the original question your suggestion was correct (Check for =""), but he had other problems too...........
I tried to help for some length, but ...

[alex_read]

Okay thank Opus , Bazzlad - you're gonna have to paste a sample up please mate - I can't re-create any problems trying this at the moment...

[Bazzlad]

At work so can't put things up however
http://www.vbforums.com/showthread.p...hreadid=251711
this explains it....
it comes down to the correct way of making a multiple if statement, and if a blank text box can be tested on .value = false
Thanx for helping

[alex_read]

Got it, ahh you're playing with Access too, fine I'll take a quick look...

[alex_read]

ahh okay looks like I was wrong - you can't use the text property in this case...
http://www.tek-tips.com/gviewthread....705/qid/418638

This one seems to work for me:

[Bazzlad]

Thanks Alex,
I read your post just as I figured it...



Private Sub Command8_Click()
On Error GoTo Err_Command8_Click

If Text6.Value = False Then
responce = MsgBox("Enter a Customer Name", vbOKOnly, "You messed up!")
Else
GoTo 10
Exit Sub

10
If IMEI.Value >= "" Then
GoTo 20
Else: responce = MsgBox("Enter an IMEI Number", vbOKOnly, "You messed up!")
Exit Sub

20
If Make.Value >= "" Then
GoTo 30
Else: responce = MsgBox("Enter an Phone Make", vbOKOnly, "You messed up!")
Exit Sub

30
Dim stDocName As String
Dim stLinkCriteria As String
Me.Visible = False
stDocName = "frmrepair"

DoCmd.OpenForm stDocName, , , stLinkCriteria
stDocName = "frmrepair"
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.GoToRecord , , acNewRec
[Forms]![frmrepair]![Text14] = [Forms]![frmphone]![IMEI]
[Forms]![frmrepair]![Customer Name] = [Forms]![frmphone]![Text6]
[Forms]![frmrepair]![Check25] = [Forms]![frmphone]![Warranty]


End If
End If
End If

Exit_Command8_Click:
Exit Sub

Err_Command8_Click:
MsgBox Err.Description
Resume Exit_Command8_Click

End Sub



What I don't get is why I have to make text6.value = false
and the others .value >= ""
and if I try to swap them round they won't work, but I'm not complaining! It works!