Ad:

Visual Basic 4 / 5 / 6 Discussion Thread
Marked Solved
Views: 1312

Page 1
2
Next

You are currently viewing page 1 of this multi-page discussion thread

Oct 12th, 2008

validaition check... urgent...

Expand Post »

hey all!
please help me to check for validaiton such that... i hv few textboxes and combo boxes and if data is not entered in them then the submit button should be locked... and also tell me where should i write the code as in .... in form_load or submit_click... im confused... the code i wrote was...

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
 
 
If cname.Text = "" Or empname2.Text = "" Or reason2.Text = "" Or days2.Text = "" Or approval.Text = "Yes" Then
MsgBox "Please fill all details"
SUBMIT2(1).Enabled = False
Else: SUBMIT2(1).Enabled = True
End If
    
If cname.Text = "" Or empname2.Text = "" Or reason2.Text = "" Or days2.Text = "" Or approval.Text = "Yes" Then
MsgBox "Please fill all details"
SUBMIT2(1).Enabled = False
Else: SUBMIT2(1).Enabled = True
End If

thanks a tonne... plz do help!
good day!... enjoy programming!...

smile4evr

Reputation Points: 10

Solved Threads: 2

Junior Poster in Training

Offline

53 posts
since Aug 2008

Permalink

Oct 12th, 2008

Re: validaition check... urgent...

Submit or Ok-button is the proper place to validate input. Since you have many things to validate, I would use a separate function:

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Private Function ValidateForm() As Boolean
  ' Validate form fields
  If cname.Text = "" Or empname2.Text = "" Or reason2.Text = "" Or days2.Text = "" Or   approval.Text = "Yes" Then
    MsgBox "Please fill all details"
    ValidateForm = False
    Exit Function
  End If
  ValidateForm = True
 
End Function
Private Function ValidateForm() As Boolean
  ' Validate form fields
  If cname.Text = "" Or empname2.Text = "" Or reason2.Text = "" Or days2.Text = "" Or   approval.Text = "Yes" Then
    MsgBox "Please fill all details"
    ValidateForm = False
    Exit Function
  End If
  ValidateForm = True

End Function

and in the Submit or Ok-button validate:

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Private Sub Command1_Click()
 ' Ok-button, validate before exit
   If ValidateForm Then
      ' Fields are ok, return from the form
    Me.Hide
  End If
End Sub
Private Sub Command1_Click()
 ' Ok-button, validate before exit
   If ValidateForm Then
      ' Fields are ok, return from the form
    Me.Hide
  End If
End Sub

Teme64

Reputation Points: 218

Solved Threads: 201

Veteran Poster

Offline

1,024 posts
since Aug 2008

Permalink

Oct 13th, 2008

Re: validaition check... urgent...

You can also make the function as common for all...

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Public Function isAllFilledUp(frm As Form) As Boolean
    Dim ctrl As Control
 
    isAllFilledUp = True
    For Each ctrl in frm
         If TypeOf ctrl Is TextBox Then
              If ctrl = vbNullString Then
                      isAllFilledUp = False
                      Exit Function
              End If
         End If
    Next
End Function
Public Function isAllFilledUp(frm As Form) As Boolean
    Dim ctrl As Control
    
    isAllFilledUp = True
    For Each ctrl in frm
         If TypeOf ctrl Is TextBox Then
              If ctrl = vbNullString Then
                      isAllFilledUp = False
                      Exit Function
              End If
         End If
    Next
End Function

Last edited by jireh; Oct 13th, 2008 at 8:33 am.

jireh

Reputation Points: 11

Solved Threads: 49

Posting Whiz

Offline

316 posts
since Jul 2007

Permalink

Oct 13th, 2008

Re: validaition check... urgent...

There are many ways to validate whether it is a text box or a button or submit button, the way you write the code and the place you put your code can be vary, depending upon your decision, one simple way is to write the validation code and make that code as public so that you can call it from any where and any time you need. Let me give you one example:

Public Sub ControlMyButton()

if MyText1.Text="" OR MyCombo.Text="" then
Submitbutton.enable=False
else
Submitbutton.enable=True
end if

End Sub

The above code can be easily called (Instead of writing in event of the form) like this:
Say in the KeyUp Event of the text Box:

Call ControlMyButton

Even, In the MyText1_Change, and in the form Load event you can called 'Call ControlMyButton'

So, Only when the textbox is filled, the button will be enabled.

I think this will give you an Idea. Try in different way. Its not difficult.

K.Vanlalliana

Reputation Points: 10

Solved Threads: 4

Light Poster

Offline

44 posts
since Jul 2008

Permalink

Oct 14th, 2008

Re: validaition check... urgent...

thanks a lot for the responses... but its not working... i tried each of them invidually... but it is not working...
sorry... pls do keep helping!
thnx!

smile4evr

Reputation Points: 10

Solved Threads: 2

Junior Poster in Training

Offline

53 posts
since Aug 2008

Permalink

Oct 14th, 2008

Re: validaition check... urgent...

No. None of them is a complete solution and nobody can give one without seeing the whole code.

There may be a just a little spot everyone's missed. Can you give more details?

But few things to try out:
Text may contain spaces, so trim them off like Trim(cname.Text) = ""
Then split your validation code to validate every control separately:

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
If Trim(cname.Text) = "" Then
  MsgBox "Please fill all details (cname)"
End If
If Trim(empname2.Text) = "" Then
  MsgBox "Please fill all details (empname)"
End If
... etc.
If Trim(cname.Text) = "" Then
  MsgBox "Please fill all details (cname)"
End If
If Trim(empname2.Text) = "" Then
  MsgBox "Please fill all details (empname)"
End If
... etc.

and tell us at which point validation fails and what was the input. You may do validation in any of the suggested places (Ok_Click, Form_Unload etc.).

Teme64

Reputation Points: 218

Solved Threads: 201

Veteran Poster

Offline

1,024 posts
since Aug 2008

Permalink

Oct 14th, 2008

Re: validaition check... urgent...

Ok, I will just correct your code and make a little changes to make it more useful...

your code...

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
If cname.Text = "" Or empname2.Text = "" Or reason2.Text = "" Or days2.Text = "" Or approval.Text = "Yes" Then
MsgBox "Please fill all details"
SUBMIT2(1).Enabled = False
Else: SUBMIT2(1).Enabled = True
End If
If cname.Text = "" Or empname2.Text = "" Or reason2.Text = "" Or days2.Text = "" Or approval.Text = "Yes" Then
MsgBox "Please fill all details"
SUBMIT2(1).Enabled = False
Else: SUBMIT2(1).Enabled = True
End If

put your code in a function let's name it as isFilledUp()

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Private Function isFilledUp() As Boolean
     isFilledUp = True
 
     If Trim(cname.Text) = "" Then
           Msgbox "Please enter Customer Name."
           cname.SetFocus
           isFilledUp = False
           Exit Function
     End If
 
     If Trim(empname2.Text) = "" Then 
           Msgbox "Please enter Employee Name."
           empname2.SetFocus
           isFilledUp = False
           Exit Function
     End If
 
     If Trim(reason2.Text) = "" Then
           Msgbox "Please enter reason."
           reason2.SetFocus
           isFilledUp = False
           Exit Function
     End If
 
     If Trim(days2.Text) = "" Then
           Msgbox "Please enter days."
           days2.SetFocus
           isFilledUp = False
           Exit Function
     End If
 
     If Trim(approval.Text = "Yes" Then
           Msgbox " "   'put your comment here.
           isFilledUp = False
           Exit Function
     End If
End Function
Private Function isFilledUp() As Boolean
     isFilledUp = True

     If Trim(cname.Text) = "" Then
           Msgbox "Please enter Customer Name."
           cname.SetFocus
           isFilledUp = False
           Exit Function
     End If

     If Trim(empname2.Text) = "" Then 
           Msgbox "Please enter Employee Name."
           empname2.SetFocus
           isFilledUp = False
           Exit Function
     End If

     If Trim(reason2.Text) = "" Then
           Msgbox "Please enter reason."
           reason2.SetFocus
           isFilledUp = False
           Exit Function
     End If

     If Trim(days2.Text) = "" Then
           Msgbox "Please enter days."
           days2.SetFocus
           isFilledUp = False
           Exit Function
     End If

     If Trim(approval.Text = "Yes" Then
           Msgbox " "   'put your comment here.
           isFilledUp = False
           Exit Function
     End If
End Function

Suppose you have a save button...

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Private Sub btnSave_Click()
     If Not isFilledUp Then
         SUBMIT2(1).Enabled = False
         'add your code here if not all were filled up
     Else 
          SUBMIT2(1).Enabled = True
          'add your code here if all are filled up
     End If
End Sub
Private Sub btnSave_Click()
     If Not isFilledUp Then
         SUBMIT2(1).Enabled = False
         'add your code here if not all were filled up
     Else 
          SUBMIT2(1).Enabled = True
          'add your code here if all are filled up
     End If
End Sub

Huh! so much homework... Hope this would help you.

jireh

Reputation Points: 11

Solved Threads: 49

Posting Whiz

Offline

316 posts
since Jul 2007

Permalink

Oct 14th, 2008

Re: validaition check... urgent...

smile4evr said there are also combo boxes. Could the validation fail with combos?

Teme64

Reputation Points: 218

Solved Threads: 201

Veteran Poster

Offline

1,024 posts
since Aug 2008

Permalink

Oct 14th, 2008

Re: validaition check... urgent...

WT?!!! just replace the checking in textboxes to combo boxes... You guys still in school? think this is a homework... anyways...

jireh

Reputation Points: 11

Solved Threads: 49

Posting Whiz

Offline

316 posts
since Jul 2007

Permalink

Oct 15th, 2008

Re: validaition check... urgent...

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Dear I think I Solve Your Problime.
When You Open Your Curent Form VB use
 
Private sub Form1_load()
 
endsub
 
this Code is used for Form Load. When You Form Load You enter the following Code
 
Private sub form1_load()
text1.text=""
text2.text=""
text3.text=""
text4.text=""
Command1.Enable=false
Msgbox "Enter All Deatiles && fill All Fileds",VBInformation,"Add Detailes"
end Sub
 
 
I Hope This Code Work Accourding To Your Problime
Dear I think I Solve Your Problime.
When You Open Your Curent Form VB use

Private sub Form1_load()

endsub

this Code is used for Form Load. When You Form Load You enter the following Code

Private sub form1_load()
text1.text=""
text2.text=""
text3.text=""
text4.text=""
Command1.Enable=false
Msgbox "Enter All Deatiles && fill All Fileds",VBInformation,"Add Detailes"
end Sub


I Hope This Code Work Accourding To Your Problime

Bhatti302

Reputation Points: 10

Solved Threads: 1

Newbie Poster

Offline

8 posts
since May 2008

Page 1
2
Next

This thread is solved

Either the thread starter or a moderator has marked this thread as solved. You can most likely trust the responses and answers given. There is most likely no reason for any further responses to be posted here. If you have a related question, please start a new thread in this forum instead.

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Visual Basic 4 / 5 / 6 Forum Timeline: Portability

Next Thread in Visual Basic 4 / 5 / 6 Forum Timeline: MS access DB- value of blank field

DaniWeb Message

Cancel Changes

User Name
Password