Count

Simple newbie question:

How do I count the amount of chars in a text box?


thanks.

Len() will return a number value of the characters in a string (or textbox).
~Mike

IT displays pop up box "moo" when I enter correct serial number.. any idea why?


Option Explicit

Private Sub Command1_Click()
Dim box1 As String
Dim box2 As String
If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Then
MsgBox "Please fill in all the boxes", , "Error"
Exit Sub
End If
If Text2.Text = "ABX" Then
Form2.Label4.Caption = "1"
Form2.Frame1.Visible = True
Else
End If
If Text2.Text = "ACZ" Then
Form2.Label4.Caption = "2"
Form2.Frame2.Visible = True
Else
End If
If Text2.Text = "BJD" Then
Form2.Label4.Caption = "3"
Form2.Frame3.Visible = True
Else
End If
If Text2.Text = "CNR" Then
Form2.Label4.Caption = "4"
Form2.Frame4.Visible = True
Else
End If
If Text2.Text = "MKF" Then
Form2.Label4.Caption = "5"
Form2.Frame5.Visible = True
Else
End If
If Text4.Text = "014" Then
Form2.Show
Else
MsgBox "moo"
End If
End Sub


plz dont' judge the code.. I know its a mess..

which sub the code is in??

Command1

maybe there's a problem with the numbers comparision

you know, you have "014", so you could try:

If Val(Form1.Text4) = 014 Then
Form2.Show
Else
MsgBox "moo"
End If

Instead of a simple Else, try using ElseIf like this:

If Text4.Text = "014" Then
Form2.Show
ElseIf Text4.Text <> "014" then
MsgBox "moo"
End If

still displays moo as if it was wrong..:(

help!!!!!!

Any chance you are typing in a capital letter O rather than the number 0?

possitive heres my current code:


Option Explicit

Private Sub Command1_Click()
Dim box1 As String
Dim box2 As String
If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Then
MsgBox "Please fill in all the boxes", , "Error"
Exit Sub
End If
'1111

If Text2.Text = "ABX" Then
Form2.Label4.Caption = "1"
Form2.Frame1.Visible = True
Else
End If
'2

If Text2.Text = "ACZ" Then
Form2.Label4.Caption = "2"
Form2.Frame2.Visible = True
Else
End If
'3

If Text2.Text = "BJD" Then
Form2.Label4.Caption = "3"
Form2.Frame3.Visible = True
Else
End If
'4

If Text2.Text = "CNR" Then
Form2.Label4.Caption = "4"
Form2.Frame4.Visible = True
Else
End If
'5

If Text2.Text = "MKF" Then
Form2.Label4.Caption = "5"
Form2.Frame5.Visible = True
Else
End If
'6

If Val(Form1.Text4.Text) = "014" Then
Form2.Show
ElseIf Text4.Text <> "014" Then
MsgBox " moo"
Exit Sub
End If
'7
End Sub

Hi,

Are you sure you have typed the right name of the textbox?? Anyway, the VAL(text) should return a value, right? So you don't need that.

But try a little debuging example:




If Text4.Text = "014" Then

Form2.Show
Else

msgbox text4.text 'Insert something like this for debuging

MsgBox "moo"
End If
End Sub



This maybe helps you a little bit...

/BK

nothing works * * * is going on.. whats so wrong about this:


If Text2.Text = "MKF" & Text4.Text = "014" Then
Form2.Show
Form2.Label4.Caption = "5"
Form2.Frame5.Visible = True
Else
MsgBox "Inccorect serial number", , "Error"
End If

& is the String concatenation operator. You need And there.

Edit: thanks thinker and everyone else for your great help!


works now!

No, no one can tell you what is wrong because we can't see what is
actually in your textboxes. What is really wrong is that you don't know
how to debug your own code. This tutorial will teach you what you need
to know to solve this problem...
http://www.visualbasicforum.com/showthread.php?threadid=9415