Dealing with multiple controls

See more:

.NET3.5

.NET

Hi in my application i am trying to insert 15 diferrent user details to the DB, which looks like an excel sheet,for validation purpose i am checking if the emp id already exists in the DB and if so then i am showing a lable and disabling the checkbox,this works fine, but i am unable to do the same for handling IsNumeric, please check the code to understand it better

Private Sub btnSubmit_CrtMul_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit_CrtMul.Click
        Dim cnt As Integer = 0

        Try
            If chkBox1_Crtusr.Checked And IsNumeric(txtEmpID_1.Text) Then
                rtrnQry(txtUsrNm_1.Text, txtPswd_1.Text, txtFName_1.Text, txtLName_1.Text, txtEmpID_1.Text, cmbProNm1.SelectedItem, cmbAdmin1.SelectedItem, 1)
                Dim sqlLogin As String = "Select * from login where user_name ='" & txtUsrNm_1.Text & "'"
                Dim usrVerified As String = DataStore.ExecuteScalar(sqlLogin, sqlConnStr)
                If usrVerified.Length > 0 Then
                    Call ClearData(1)
                    cnt = cnt + 1
                End If
            End If

            If chkBox2_Crtusr.Checked Then
                rtrnQry(txtUsrNm_2.Text, txtPswd_2.Text, txtFName_2.Text, txtLName_2.Text, txtEmpID_2.Text, cmbProNm2.SelectedItem, cmbAdmin2.SelectedItem, 2)
                Dim sqlLogin As String = "Select * from login where user_name ='" & txtUsrNm_2.Text & "'"
                Dim usrVerified As String = DataStore.ExecuteScalar(sqlLogin, sqlConnStr)
                If usrVerified.Length > 0 Then
                    Call ClearData(2)
                    cnt = cnt + 1
                End If
            End If

This way i m doing the same for next 13 users.

Public Sub rtrnQry(ByVal usrNm As String, ByVal psWd As String, ByVal fNm As String, _
                          ByVal lNm As String, ByVal empId As Integer, ByVal proNm As String, ByVal aDm As String, ByVal rowno As Integer)
      Try
          Using cn As New SqlConnection(sqlConnStr)
              cn.Open()
              Using cmd As New SqlCommand("[dbo].[CreateUser]", cn)
                  With cmd
                      .CommandType = CommandType.StoredProcedure
                      .Parameters.AddWithValue("@empid", empId)
                      .Parameters.AddWithValue("@username", usrNm)
                      .Parameters.AddWithValue("@password", psWd)
                      .Parameters.AddWithValue("@firstname", fNm)
                      .Parameters.AddWithValue("@lastname", lNm)
                      .Parameters.AddWithValue("@adminpri", aDm)
                      .Parameters.AddWithValue("@proName", proNm)
                      .ExecuteNonQuery()
                  End With
              End Using
          End Using

Now i m using Control Lost focus event to show the msg

Private Sub Controls_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtEmpID_1.LostFocus, txtEmpID_2.LostFocus, _
    txtEmpID_3.LostFocus, txtEmpID_4.LostFocus, txtEmpID_5.LostFocus, txtEmpID_6.LostFocus, txtEmpID_7.LostFocus, _
    txtEmpID_8.LostFocus, txtEmpID_9.LostFocus, txtEmpID_10.LostFocus, txtEmpID_11.LostFocus, _
    txtEmpID_12.LostFocus, txtEmpID_13.LostFocus, txtEmpID_14.LostFocus, txtEmpID_15.LostFocus
        Try
            If txtEmpID_1.TextLength > 0 Then
                If rtrnLngth(txtEmpID_1.Text) = 0 Then
                    lblsts1.Text = "Available"
                    lblsts1.ForeColor = Color.LimeGreen
                    If chkBox1_Crtusr.Enabled = False Then chkBox1_Crtusr.Enabled = True
                Else
                    lblsts1.Text = "Not available"
                    lblsts1.ForeColor = Color.Red
                    If chkBox1_Crtusr.Checked Then
                        chkBox1_Crtusr.Enabled = False
                        chkBox1_Crtusr.CheckState = CheckState.Unchecked
                    End If
                End If
            End If
            If txtEmpID_2.TextLength > 0 Then
                If rtrnLngth(txtEmpID_2.Text) = 0 Then
                    lblsts2.Text = "Available"
                    lblsts2.ForeColor = Color.LimeGreen
                    If chkBox2_Crtusr.Enabled = False Then chkBox2_Crtusr.Enabled = True
                Else
                    lblsts2.Text = "Not available"
                    lblsts2.ForeColor = Color.Red
                    If chkBox2_Crtusr.Checked Then
                        chkBox2_Crtusr.CheckState = CheckState.Unchecked
                        chkBox2_Crtusr.Enabled = False
                    End If

doing same for 13 user...this works fine ....i need to show the same kind of msg for empty fields and for IsNumeric. Please help with an idea