how to check null value for more text boxes

[chandru8]

hi to all
i am using vb6.0
is there any way to check more textboxes value is null or not
because in my form iam having 50 text boxes all should not be null

if (text1.text) <> "" and text2.text <> "" ..............then

end if

is there any better way than this
thanks to all

[natuvamurali]

hello to all

i am new from software programme
p.l given me vb6.0 tovb.net convert the programme
how to do it
please reply to me

[QVeen72]

p.l given me vb6.0 tovb.net convert the programme

Browse and Open VB6 Project in VB.net, it will be directly prompt you to the Conversion Wizard..

REgards
Veena

[QVeen72]

if (text1.text) <> "" and text2.text <> "" ..............then

end if

TextBoxes are in Control array,
OR
they are named Text1, Text2.... Text50 ..?

Regards
Veena

[chandru8]

all are independent text1 ,text2........

[debasisdas]

try something like this

Public Sub CheckControls(FrmCalled As Form)
Dim i As Byte
 
For i = 0 To FrmCalled.Controls.Count - 1
    If TypeOf FrmCalled.Controls(i) Is TextBox Then
              ' add the code to check for null here.
    End If
Next i
End Sub
 

[QVeen72]

all are independent text1 ,text2........

Try this :

Private Function CheckBlank() As Boolean   
    Dim ctl As Control
    CheckBlank = False
    For Each ctl In Me.Controls
        If TypeOf ctl Is TextBox Then
            If Trim(ctl.text) = "" Then 
                CheckBlank =True
                Exit Function
            End If
        End If
    Next
End Sub
 
'Call This Code Before Saving..
If CheckBlank Then
  'Alert Message here 
End If
 

Regards
Veena

[chandru8]

thanks for your its working now
in another form some text boxes are scattered in the tabbed control
like
in tab 0 5 text boxes
in tab 1 10 text boxes
the above is not supporting this

[QVeen72]

thanks for your its working now
in another form some text boxes are scattered in the tabbed control
like
in tab 0 5 text boxes
in tab 1 10 text boxes
the above is not supporting this

MyCode or Debasis's code...?

[chandru8]

i have checked both the code it's working fine

[debasisdas]

You need to use form_name.container_name.textbox_name and then loop through the controls.

[chandru8]

iam getting error
i need to check for the tab 0 when i click submit

For Each cntControl In frmNewRegistration.SSTab1(0).Controls
If TypeOf cntControl Is TextBox Then
If cntControl.Text = "" Then
MsgBox "Please enter all the details", vbExclamation
Exit Sub
End If
End If
next

[debasisdas]

what is the error ? in which line ?

[chandru8]

compile error : Wrong number of arguments

error in -> SSTab1(0)

For Each cntControl In frmNewRegistration.SSTab1(0).Controls

[QVeen72]

Hi,

I guess in VB6, All the Controls on the Form, (Irrespective of the Parent Container (Picturebox/Frame/SSTab) has parent as Form only.. so no need to pass SSTab (as it does not support Control Collection)

So Me.Cotrols gives complete Collection of all the Cotrols.
But in VB.net, If a TextBox is Placed on the GroupBox/SSTab, then its parent changes, this does not happen in VB6

REgards
Veena

[debasisdas]

Please try as suggested in the previous post and let us know if that works.

I am not sure of SSTab.

[chandru8]

ok thanks for your reply
thank you very much