Ad:

VB.NET Discussion Thread
Marked Solved
Views: 3755

Oct 15th, 2007

vb.net error message query?!

Expand Post »

Currently my program fires out error messages when the user enters information outwith the boundaries. However for every valid entry these will be stored in the array and the entry outwith the boundaries will be listed as blank which I dont want. Id like the program to only store an entry in the array if all the criteria for the boundaries are met. Could anyone advise me how to do this?

Thanks

VB.NET Syntax (Toggle Plain Text)
Dim Index As Integer = 0
    Dim EmployeeRec(9) As EmployeeType
 
    Private Sub add_bta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles add_bta.Click
 
        If Val(employeeid_txt.Text) > 10 Or Val(employeeid_txt.Text) < 1 Then
            MessageBox.Show("Employee Id Outwith Range 1 to 10 ", "Please re-enter", MessageBoxButtons.OK)
        Else
            EmployeeRec(Index).Employeeid = employeeid_txt.Text
        End If
 
        EmployeeRec(Index).Status = "Active"
 
        If Len(firstname_txt.Text) > 15 Or Len(firstname_txt.Text) = 0 Then
            MessageBox.Show("Firstname Outwith Range 1 to 15 ", "Please re-enter", MessageBoxButtons.OK)
        Else
            EmployeeRec(Index).Firstname = firstname_txt.Text
        End If
        If Len(surname_txt.Text) > 15 Or Len(surname_txt.Text) = 0 Then
            MessageBox.Show("Surname Outwith Range 1 to 15 ", "Please re-enter", MessageBoxButtons.OK)
        Else
            EmployeeRec(Index).Surname = surname_txt.Text
        End If
        If Val(Age_txt.Text) > 100 Or Val(Age_txt.Text) < 16 Then
            MessageBox.Show("Age Outwith Range 16 to 100 ", "Please re-enter", MessageBoxButtons.OK)
        Else
            EmployeeRec(Index).Details.Age = Age_txt.Text
        End If
        If Len(gender_txt.Text) > 6 Or Len(gender_txt.Text) < 4 Then
            MessageBox.Show("Gender must be Male or Female ", "Please re-enter", MessageBoxButtons.OK)
        Else
            EmployeeRec(Index).Details.Gender = gender_txt.Text
        End If
        If Len(position_txt.Text) > 15 Or Len(position_txt.Text) = 0 Then
            MessageBox.Show("Position Outwith Range 1 to 15 ", "Please re-enter", MessageBoxButtons.OK)
        Else
            EmployeeRec(Index).Position = position_txt.Text
        End If
 
        Index = Index + 1
 
    End Sub
Dim Index As Integer = 0
    Dim EmployeeRec(9) As EmployeeType

    Private Sub add_bta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles add_bta.Click

        If Val(employeeid_txt.Text) > 10 Or Val(employeeid_txt.Text) < 1 Then
            MessageBox.Show("Employee Id Outwith Range 1 to 10 ", "Please re-enter", MessageBoxButtons.OK)
        Else
            EmployeeRec(Index).Employeeid = employeeid_txt.Text
        End If

        EmployeeRec(Index).Status = "Active"

        If Len(firstname_txt.Text) > 15 Or Len(firstname_txt.Text) = 0 Then
            MessageBox.Show("Firstname Outwith Range 1 to 15 ", "Please re-enter", MessageBoxButtons.OK)
        Else
            EmployeeRec(Index).Firstname = firstname_txt.Text
        End If
        If Len(surname_txt.Text) > 15 Or Len(surname_txt.Text) = 0 Then
            MessageBox.Show("Surname Outwith Range 1 to 15 ", "Please re-enter", MessageBoxButtons.OK)
        Else
            EmployeeRec(Index).Surname = surname_txt.Text
        End If
        If Val(Age_txt.Text) > 100 Or Val(Age_txt.Text) < 16 Then
            MessageBox.Show("Age Outwith Range 16 to 100 ", "Please re-enter", MessageBoxButtons.OK)
        Else
            EmployeeRec(Index).Details.Age = Age_txt.Text
        End If
        If Len(gender_txt.Text) > 6 Or Len(gender_txt.Text) < 4 Then
            MessageBox.Show("Gender must be Male or Female ", "Please re-enter", MessageBoxButtons.OK)
        Else
            EmployeeRec(Index).Details.Gender = gender_txt.Text
        End If
        If Len(position_txt.Text) > 15 Or Len(position_txt.Text) = 0 Then
            MessageBox.Show("Position Outwith Range 1 to 15 ", "Please re-enter", MessageBoxButtons.OK)
        Else
            EmployeeRec(Index).Position = position_txt.Text
        End If

        Index = Index + 1

    End Sub

Last edited by Run.[it]; Oct 15th, 2007 at 8:24 pm.

Similar Threads

Error Message: Cannot find server; page cannot be displayed in Viruses, Spyware and other Nasties
Server Error message when opening asp.net applicationm in ASP.NET
error message on MSN in Windows NT / 2000 / XP
Page Cannot be diplayed/DNS error message in Viruses, Spyware and other Nasties
Error message when downloading updates in Windows NT / 2000 / XP

Run.[it]

Reputation Points: 10

Solved Threads: 1

Junior Poster in Training

Offline

57 posts
since Jun 2007

Permalink

Oct 16th, 2007

Re: vb.net error message query?!

use boolean varaible to indicate if the user enter correct value for each input like this

(Toggle Plain Text)

If Val(employeeid_txt.Text) > 10 Or Val(employeeid_txt.Text) < 1 Then
            MessageBox.Show("Employee Id Outwith Range 1 to 10 ", "Please re-enter", MessageBoxButtons.OK)
        Else
           correct_EmployeeID=true 
         End If

then if all inputs for user are correct , store that entry to your array

VB.NET Syntax (Toggle Plain Text)
if correct_EmployeeID and correct_firstname and correct_surname and correct_gender and correct_position then 
  EmployeeRec(Index).Employeeid = employeeid_txt.Text
etc ..etc
End if
if correct_EmployeeID and correct_firstname and correct_surname and correct_gender and correct_position then 
  EmployeeRec(Index).Employeeid = employeeid_txt.Text
etc ..etc
End if

other thing about your code , your validation based on test the length of the user's input
and that not correct , I can enter something like "abcd" and your program will accept it in the gender input , it is better to compare the user's input string with "male" or "female"
and much better to make user select the gender , and position (use radio button). about the error messages , what if user make more than one error ! many messages will show and that will be annoying , use labels to show the error messages

VB.NET Syntax (Toggle Plain Text)
If Val(employeeid_txt.Text) > 10 Or Val(employeeid_txt.Text) < 1 Then
            lable_error_id.text="Employee Id Outwith Range 1 to 10 , Please re-enter"         Else
           correct_EmployeeID=true 
End If
If Val(employeeid_txt.Text) > 10 Or Val(employeeid_txt.Text) < 1 Then
            lable_error_id.text="Employee Id Outwith Range 1 to 10 , Please re-enter"         Else
           correct_EmployeeID=true 
End If

Last edited by manal; Oct 16th, 2007 at 12:06 am.

manal

Reputation Points: 37

Solved Threads: 17

Junior Poster

Offline

122 posts
since Mar 2006

Permalink

Oct 16th, 2007

Re: vb.net error message query?!

Thanks Manal, thats helped a lot. Also your suggestion on better and more specific validation is insightful.

Cheers.

Run.[it]

Reputation Points: 10

Solved Threads: 1

Junior Poster in Training

Offline

57 posts
since Jun 2007

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 VB.NET Forum Timeline: Need some help with my program

Next Thread in VB.NET Forum Timeline: how to create subdomain ?

DaniWeb Message

Cancel Changes

User Name
Password