دخول

**وسام عبدالله الدمرداش** · 08-02-18, 03:27 PM

السلام عليكم ورحمة الله وبركاتة أخواني وأخواتى
أرجوا الافادة فى أي حدث أضع كود الاستعلام عن باركود موظف
مع ملاحظة الاتى
1- أنا أستعلم من جدول الموظفين عن كود الموظف وعن اسمه
2- أقوم بعمليات أخرى على الفورم وأضع ناتج العمليات الاخرى
في listview بعد الاستعلام عن موظف بالتوالى
المشكلة عندى هى أنني عندما أقوم بوضع الكود فى حدث textchanged
تحدث مشكلة وهى أى حركة فى هذا الحدث تنتج ازدواجية فى التسجيل
فهل المشكلة فى الحدث أم الباركود ساضع لكم كود الاستعلام مع صور للتوضيح
لكي تعلموني أين المشكلة.
If Len(Trim(CmbWTime.Text)) = 0 Then
MessageBox.Show("من فضلك حدد فترة الدوام", "منظومة الدمرداش المدرسية", MessageBoxButtons.OK, MessageBoxIcon.Warning)
CmbWTime.Focus()
Exit Sub
End If
con = New SqlConnection(cs)
con.Open()
Dim strQ As String = String.Empty
Dim cmd0 As SqlCommand
Dim da As SqlDataAdapter
Dim ds As DataSet
strQ = " Select EmpCode,EmpName from Employees where EmpCode='" + TxtCode.Text + "'"
cmd0 = New SqlCommand(strQ, con)
da = New SqlDataAdapter(cmd0)
ds = New DataSet
da.Fill(ds, "Employees")
If ds.Tables(0).Rows.Count > 0 Then
txtEmpCode.Text = ds.Tables(0).Rows(0)("EmpCode").ToString()
TxtEmpName.Text = ds.Tables(0).Rows(0)("EmpName").ToString()
End If
If TeMAL.Text = "لم يبدأ الدوام" Then
Exit Sub
ElseIf TeMAL.Text = "حضـر الموظف" Then
'كود الإضافة إلى الليست فيو
Dim temp As Integer
temp = ListView1.Items.Count()
If temp = 0 Then
Dim i As Integer
Dim lst As New ListViewItem(i)
lst.SubItems.Add(txtEmpCode.Text) 'كود الموظف
lst.SubItems.Add(TxtEmpName.Text) 'اسم الموظف
lst.SubItems.Add(Label9.Text) 'وقت الحضور
lst.SubItems.Add("بالدوام") 'وقت الإنصراف
lst.SubItems.Add(TeMAL.Text) 'حالة الموظف
lst.SubItems.Add(Label5.Text) ' تاريخ الحضور
lst.SubItems.Add(Label8.Text) ' يوم الحضور
lst.SubItems.Add(CmbWTime.Text) ' فترة الحضور
lst.SubItems.Add(RichTextBox1.Text) ' ملاحظات
lst.SubItems.Add("حضر بالميعاد") ' حالة الغياب
lst.SubItems.Add(LateTime.Text) ' معدل التأخير
ListView1.Items.Add(lst)
i = i + 1
TxtCode.SelectAll()
txtEmpCode.Text = ""
TxtEmpName.Text = ""
Exit Sub
End If
For j = 0 To temp - 1
If (ListView1.Items(j).SubItems(1).Text = txtEmpCode.Text) And (ListView1.Items(j).SubItems(6).Text = Label5.Text) Then
If MessageBox.Show("هذا الموظف لايمكن تسجيلة مرتين", "منظومة الدمرداش المدرسية", MessageBoxButtons.OK, MessageBoxIcon.Error) = DialogResult.OK Then
TxtCode.Clear()
TxtCode.Focus()
End If
Exit Sub
End If
Next j
Dim k As Integer
Dim lst1 As New ListViewItem(k)
lst1.SubItems.Add(txtEmpCode.Text) 'كود الموظف
lst1.SubItems.Add(TxtEmpName.Text) 'اسم الموظف
lst1.SubItems.Add(Label9.Text) 'وقت الحضور
lst1.SubItems.Add("بالدوام") 'وقت الإنصراف
lst1.SubItems.Add(TeMAL.Text) 'حالة الموظف
lst1.SubItems.Add(Label5.Text) ' تاريخ الحضور
lst1.SubItems.Add(Label8.Text) ' يوم الحضور
lst1.SubItems.Add(CmbWTime.Text) ' فترة الحضور
lst1.SubItems.Add(RichTextBox1.Text) ' ملاحظات
lst1.SubItems.Add("حضر بالميعاد") ' حالة الغياب
lst1.SubItems.Add(LateTime.Text) ' معدل التأخير
ListView1.Items.Add(lst1)
k = k + 1
TxtCode.SelectAll()
txtEmpCode.Text = ""
TxtEmpName.Text = ""

ElseIf TeMAL.Text = "تأخر الموظف" Then
'كود الإضافة إلى الليست فيو
Dim temp As Integer
temp = ListView1.Items.Count()
If temp = 0 Then
Dim i As Integer
Dim lst As New ListViewItem(i)
lst.SubItems.Add(txtEmpCode.Text) 'كود الموظف
lst.SubItems.Add(TxtEmpName.Text) 'اسم الموظف
lst.SubItems.Add(Label9.Text) 'وقت الحضور
lst.SubItems.Add("بالدوام") 'وقت الإنصراف
lst.SubItems.Add(TeMAL.Text) 'حالة الموظف
lst.SubItems.Add(Label5.Text) ' تاريخ الحضور
lst.SubItems.Add(Label8.Text) ' يوم الحضور
lst.SubItems.Add(CmbWTime.Text) ' فترة الحضور
lst.SubItems.Add(RichTextBox1.Text) ' ملاحظات
lst.SubItems.Add("حضر متأخرا") ' حالة الغياب
lst.SubItems.Add(LateTime.Text) ' معدل التأخير
ListView1.Items.Add(lst)
i = i + 1
TxtCode.SelectAll()
txtEmpCode.Text = ""
TxtEmpName.Text = ""
Exit Sub
End If
For j = 0 To temp - 1
If (ListView1.Items(j).SubItems(1).Text = txtEmpCode.Text) And (ListView1.Items(j).SubItems(6).Text = Label5.Text) Then
MessageBox.Show("هذا الموظف لايمكن تسجيلة مرتين", "منظومة الدمرداش المدرسية", MessageBoxButtons.OK, MessageBoxIcon.Error)
TxtCode.SelectAll()
Exit Sub
End If
Next j
Dim k As Integer
Dim lst1 As New ListViewItem(k)
lst1.SubItems.Add(txtEmpCode.Text) 'كود الموظف
lst1.SubItems.Add(TxtEmpName.Text) 'اسم الموظف
lst1.SubItems.Add(Label9.Text) 'وقت الحضور
lst1.SubItems.Add("بالدوام") 'وقت الإنصراف
lst1.SubItems.Add(TeMAL.Text) 'حالة الموظف
lst1.SubItems.Add(Label5.Text) ' تاريخ الحضور
lst1.SubItems.Add(Label8.Text) ' يوم الحضور
lst1.SubItems.Add(CmbWTime.Text) ' فترة الحضور
lst1.SubItems.Add(RichTextBox1.Text) ' ملاحظات
lst1.SubItems.Add("حضر متأخرا") ' حالة الغياب
lst1.SubItems.Add(LateTime.Text) ' معدل التأخير
ListView1.Items.Add(lst1)
k = k + 1
TxtCode.SelectAll()
txtEmpCode.Text = ""
TxtEmpName.Text = ""

ElseIf TeMAL.Text = "إنتهى الدوام" Then
Exit Sub
End If
TxtCode.Clear()
TxtCode.Focus()

**محمود صالح**

مع ضغط الانتر افضل
لتكون انتهيت من كتابة رقم الموظف بالكامل

PHP كود :

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

        If e.KeyChar = Chr(13) Then

    ضع الكود هنا

        End If

    End Sub

**وسام عبدالله الدمرداش** · 08-02-18, 10:05 PM

(08-02-18, 03:36 PM)محمود صالح كتب : مع ضغط الانتر افضل
لتكون انتهيت من كتابة رقم الموظف بالكامل

PHP كود :

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress If e.KeyChar = Chr(13) Then ضع الكود هنا End If End Sub ماينفع يكون الحدث تلقائي يعني ارسل مفتاح انتر بعد جلب البيانات

**محمود صالح** · 08-02-18, 11:30 PM

PHP كود :

SendKeys.Send("{Enter}") 

**طالب برمجة** · 08-02-18, 11:52 PM

اقرأ هذا الموضوع
كيف أعرض البينات بعد قراءة الباركود

**وسام عبدالله الدمرداش** · 10-02-18, 01:42 AM

(08-02-18, 11:52 PM)طالب برمجة كتب : اقرأ هذا الموضوع
كيف أعرض البينات بعد قراءة الباركود

أخى طالب برمجة شكرا على ردك ولكن لا أعلم هل كل قارئ باركود يرسل انتر بعد القراءة لان الكود يستلزم منى الضغط على مفتاح انتر يدويا أنا أريد أن يكون تلقائي ولا أدرى لماذا لا يعمل معى

**مصمم الدوادمي**

(08-02-18, 03:27 PM)وسام عبدالله الدمرداش كتب : السلام عليكم ورحمة الله وبركاتة أخواني وأخواتى
أرجوا الافادة فى أي حدث أضع كود الاستعلام عن باركود موظف
مع ملاحظة الاتى
1- أنا أستعلم من جدول الموظفين عن كود الموظف وعن اسمه
2- أقوم بعمليات أخرى على الفورم وأضع ناتج العمليات الاخرى
في listview بعد الاستعلام عن موظف بالتوالى
المشكلة عندى هى أنني عندما أقوم بوضع الكود فى حدث textchanged
تحدث مشكلة وهى أى حركة فى هذا الحدث تنتج ازدواجية فى التسجيل
فهل المشكلة فى الحدث أم الباركود ساضع لكم كود الاستعلام مع صور للتوضيح
لكي تعلموني أين المشكلة.
If Len(Trim(CmbWTime.Text)) = 0 Then
MessageBox.Show("من فضلك حدد فترة الدوام", "منظومة الدمرداش المدرسية", MessageBoxButtons.OK, MessageBoxIcon.Warning)
CmbWTime.Focus()
Exit Sub
End If
con = New SqlConnection(cs)
con.Open()
Dim strQ As String = String.Empty
Dim cmd0 As SqlCommand
Dim da As SqlDataAdapter
Dim ds As DataSet
strQ = " Select EmpCode,EmpName from Employees where EmpCode='" + TxtCode.Text + "'"
cmd0 = New SqlCommand(strQ, con)
da = New SqlDataAdapter(cmd0)
ds = New DataSet
da.Fill(ds, "Employees")
If ds.Tables(0).Rows.Count > 0 Then
txtEmpCode.Text = ds.Tables(0).Rows(0)("EmpCode").ToString()
TxtEmpName.Text = ds.Tables(0).Rows(0)("EmpName").ToString()
else

exit sub
End If
If TeMAL.Text = "لم يبدأ الدوام" Then
Exit Sub
ElseIf TeMAL.Text = "حضـر الموظف" Then
'كود الإضافة إلى الليست فيو
Dim temp As Integer
temp = ListView1.Items.Count()
If temp = 0 Then
Dim i As Integer
Dim lst As New ListViewItem(i)
lst.SubItems.Add(txtEmpCode.Text) 'كود الموظف
lst.SubItems.Add(TxtEmpName.Text) 'اسم الموظف
lst.SubItems.Add(Label9.Text) 'وقت الحضور
lst.SubItems.Add("بالدوام") 'وقت الإنصراف
lst.SubItems.Add(TeMAL.Text) 'حالة الموظف
lst.SubItems.Add(Label5.Text) ' تاريخ الحضور
lst.SubItems.Add(Label8.Text) ' يوم الحضور
lst.SubItems.Add(CmbWTime.Text) ' فترة الحضور
lst.SubItems.Add(RichTextBox1.Text) ' ملاحظات
lst.SubItems.Add("حضر بالميعاد") ' حالة الغياب
lst.SubItems.Add(LateTime.Text) ' معدل التأخير
ListView1.Items.Add(lst)
i = i + 1
TxtCode.SelectAll()
txtEmpCode.Text = ""
TxtEmpName.Text = ""
Exit Sub
End If
For j = 0 To temp - 1
If (ListView1.Items(j).SubItems(1).Text = txtEmpCode.Text) And (ListView1.Items(j).SubItems(6).Text = Label5.Text) Then
If MessageBox.Show("هذا الموظف لايمكن تسجيلة مرتين", "منظومة الدمرداش المدرسية", MessageBoxButtons.OK, MessageBoxIcon.Error) = DialogResult.OK Then
TxtCode.Clear()
TxtCode.Focus()
End If
Exit Sub
End If
Next j
Dim k As Integer
Dim lst1 As New ListViewItem(k)
lst1.SubItems.Add(txtEmpCode.Text) 'كود الموظف
lst1.SubItems.Add(TxtEmpName.Text) 'اسم الموظف
lst1.SubItems.Add(Label9.Text) 'وقت الحضور
lst1.SubItems.Add("بالدوام") 'وقت الإنصراف
lst1.SubItems.Add(TeMAL.Text) 'حالة الموظف
lst1.SubItems.Add(Label5.Text) ' تاريخ الحضور
lst1.SubItems.Add(Label8.Text) ' يوم الحضور
lst1.SubItems.Add(CmbWTime.Text) ' فترة الحضور
lst1.SubItems.Add(RichTextBox1.Text) ' ملاحظات
lst1.SubItems.Add("حضر بالميعاد") ' حالة الغياب
lst1.SubItems.Add(LateTime.Text) ' معدل التأخير
ListView1.Items.Add(lst1)
k = k + 1
TxtCode.SelectAll()
txtEmpCode.Text = ""
TxtEmpName.Text = ""

ElseIf TeMAL.Text = "تأخر الموظف" Then
'كود الإضافة إلى الليست فيو
Dim temp As Integer
temp = ListView1.Items.Count()
If temp = 0 Then
Dim i As Integer
Dim lst As New ListViewItem(i)
lst.SubItems.Add(txtEmpCode.Text) 'كود الموظف
lst.SubItems.Add(TxtEmpName.Text) 'اسم الموظف
lst.SubItems.Add(Label9.Text) 'وقت الحضور
lst.SubItems.Add("بالدوام") 'وقت الإنصراف
lst.SubItems.Add(TeMAL.Text) 'حالة الموظف
lst.SubItems.Add(Label5.Text) ' تاريخ الحضور
lst.SubItems.Add(Label8.Text) ' يوم الحضور
lst.SubItems.Add(CmbWTime.Text) ' فترة الحضور
lst.SubItems.Add(RichTextBox1.Text) ' ملاحظات
lst.SubItems.Add("حضر متأخرا") ' حالة الغياب
lst.SubItems.Add(LateTime.Text) ' معدل التأخير
ListView1.Items.Add(lst)
i = i + 1
TxtCode.SelectAll()
txtEmpCode.Text = ""
TxtEmpName.Text = ""
Exit Sub
End If
For j = 0 To temp - 1
If (ListView1.Items(j).SubItems(1).Text = txtEmpCode.Text) And (ListView1.Items(j).SubItems(6).Text = Label5.Text) Then
MessageBox.Show("هذا الموظف لايمكن تسجيلة مرتين", "منظومة الدمرداش المدرسية", MessageBoxButtons.OK, MessageBoxIcon.Error)
TxtCode.SelectAll()
Exit Sub
End If
Next j
Dim k As Integer
Dim lst1 As New ListViewItem(k)
lst1.SubItems.Add(txtEmpCode.Text) 'كود الموظف
lst1.SubItems.Add(TxtEmpName.Text) 'اسم الموظف
lst1.SubItems.Add(Label9.Text) 'وقت الحضور
lst1.SubItems.Add("بالدوام") 'وقت الإنصراف
lst1.SubItems.Add(TeMAL.Text) 'حالة الموظف
lst1.SubItems.Add(Label5.Text) ' تاريخ الحضور
lst1.SubItems.Add(Label8.Text) ' يوم الحضور
lst1.SubItems.Add(CmbWTime.Text) ' فترة الحضور
lst1.SubItems.Add(RichTextBox1.Text) ' ملاحظات
lst1.SubItems.Add("حضر متأخرا") ' حالة الغياب
lst1.SubItems.Add(LateTime.Text) ' معدل التأخير
ListView1.Items.Add(lst1)
k = k + 1
TxtCode.SelectAll()
txtEmpCode.Text = ""
TxtEmpName.Text = ""

ElseIf TeMAL.Text = "إنتهى الدوام" Then
Exit Sub
End If
TxtCode.Clear()
TxtCode.Focus()

تم الحل باللون الاحمر يرجى التجربة

او عليك باضافة

else

exit sub

انسخ هذا الحل واستبدله بالاعلى

If ds.Tables(0).Rows.Count > 0 Then
txtEmpCode.Text = ds.Tables(0).Rows(0)("EmpCode").ToString()
TxtEmpName.Text = ds.Tables(0).Rows(0)("EmpName").ToString()
else

exit sub
End If

**وسام عبدالله الدمرداش** · 10-02-18, 04:16 AM

(10-02-18, 04:13 AM)مصمم الدوادمي كتب :
(08-02-18, 03:27 PM)وسام عبدالله الدمرداش كتب : السلام عليكم ورحمة الله وبركاتة أخواني وأخواتى
أرجوا الافادة فى أي حدث أضع كود الاستعلام عن باركود موظف
مع ملاحظة الاتى
1- أنا أستعلم من جدول الموظفين عن كود الموظف وعن اسمه
2- أقوم بعمليات أخرى على الفورم وأضع ناتج العمليات الاخرى
في listview بعد الاستعلام عن موظف بالتوالى
المشكلة عندى هى أنني عندما أقوم بوضع الكود فى حدث textchanged
تحدث مشكلة وهى أى حركة فى هذا الحدث تنتج ازدواجية فى التسجيل
فهل المشكلة فى الحدث أم الباركود ساضع لكم كود الاستعلام مع صور للتوضيح
لكي تعلموني أين المشكلة.
If Len(Trim(CmbWTime.Text)) = 0 Then
MessageBox.Show("من فضلك حدد فترة الدوام", "منظومة الدمرداش المدرسية", MessageBoxButtons.OK, MessageBoxIcon.Warning)
CmbWTime.Focus()
Exit Sub
End If
con = New SqlConnection(cs)
con.Open()
Dim strQ As String = String.Empty
Dim cmd0 As SqlCommand
Dim da As SqlDataAdapter
Dim ds As DataSet
strQ = " Select EmpCode,EmpName from Employees where EmpCode='" + TxtCode.Text + "'"
cmd0 = New SqlCommand(strQ, con)
da = New SqlDataAdapter(cmd0)
ds = New DataSet
da.Fill(ds, "Employees")
If ds.Tables(0).Rows.Count > 0 Then
txtEmpCode.Text = ds.Tables(0).Rows(0)("EmpCode").ToString()
TxtEmpName.Text = ds.Tables(0).Rows(0)("EmpName").ToString()
else

exit sub
End If
If TeMAL.Text = "لم يبدأ الدوام" Then
Exit Sub
ElseIf TeMAL.Text = "حضـر الموظف" Then
'كود الإضافة إلى الليست فيو
Dim temp As Integer
temp = ListView1.Items.Count()
If temp = 0 Then
Dim i As Integer
Dim lst As New ListViewItem(i)
lst.SubItems.Add(txtEmpCode.Text) 'كود الموظف
lst.SubItems.Add(TxtEmpName.Text) 'اسم الموظف
lst.SubItems.Add(Label9.Text) 'وقت الحضور
lst.SubItems.Add("بالدوام") 'وقت الإنصراف
lst.SubItems.Add(TeMAL.Text) 'حالة الموظف
lst.SubItems.Add(Label5.Text) ' تاريخ الحضور
lst.SubItems.Add(Label8.Text) ' يوم الحضور
lst.SubItems.Add(CmbWTime.Text) ' فترة الحضور
lst.SubItems.Add(RichTextBox1.Text) ' ملاحظات
lst.SubItems.Add("حضر بالميعاد") ' حالة الغياب
lst.SubItems.Add(LateTime.Text) ' معدل التأخير
ListView1.Items.Add(lst)
i = i + 1
TxtCode.SelectAll()
txtEmpCode.Text = ""
TxtEmpName.Text = ""
Exit Sub
End If
For j = 0 To temp - 1
If (ListView1.Items(j).SubItems(1).Text = txtEmpCode.Text) And (ListView1.Items(j).SubItems(6).Text = Label5.Text) Then
If MessageBox.Show("هذا الموظف لايمكن تسجيلة مرتين", "منظومة الدمرداش المدرسية", MessageBoxButtons.OK, MessageBoxIcon.Error) = DialogResult.OK Then
TxtCode.Clear()
TxtCode.Focus()
End If
Exit Sub
End If
Next j
Dim k As Integer
Dim lst1 As New ListViewItem(k)
lst1.SubItems.Add(txtEmpCode.Text) 'كود الموظف
lst1.SubItems.Add(TxtEmpName.Text) 'اسم الموظف
lst1.SubItems.Add(Label9.Text) 'وقت الحضور
lst1.SubItems.Add("بالدوام") 'وقت الإنصراف
lst1.SubItems.Add(TeMAL.Text) 'حالة الموظف
lst1.SubItems.Add(Label5.Text) ' تاريخ الحضور
lst1.SubItems.Add(Label8.Text) ' يوم الحضور
lst1.SubItems.Add(CmbWTime.Text) ' فترة الحضور
lst1.SubItems.Add(RichTextBox1.Text) ' ملاحظات
lst1.SubItems.Add("حضر بالميعاد") ' حالة الغياب
lst1.SubItems.Add(LateTime.Text) ' معدل التأخير
ListView1.Items.Add(lst1)
k = k + 1
TxtCode.SelectAll()
txtEmpCode.Text = ""
TxtEmpName.Text = ""

ElseIf TeMAL.Text = "تأخر الموظف" Then
'كود الإضافة إلى الليست فيو
Dim temp As Integer
temp = ListView1.Items.Count()
If temp = 0 Then
Dim i As Integer
Dim lst As New ListViewItem(i)
lst.SubItems.Add(txtEmpCode.Text) 'كود الموظف
lst.SubItems.Add(TxtEmpName.Text) 'اسم الموظف
lst.SubItems.Add(Label9.Text) 'وقت الحضور
lst.SubItems.Add("بالدوام") 'وقت الإنصراف
lst.SubItems.Add(TeMAL.Text) 'حالة الموظف
lst.SubItems.Add(Label5.Text) ' تاريخ الحضور
lst.SubItems.Add(Label8.Text) ' يوم الحضور
lst.SubItems.Add(CmbWTime.Text) ' فترة الحضور
lst.SubItems.Add(RichTextBox1.Text) ' ملاحظات
lst.SubItems.Add("حضر متأخرا") ' حالة الغياب
lst.SubItems.Add(LateTime.Text) ' معدل التأخير
ListView1.Items.Add(lst)
i = i + 1
TxtCode.SelectAll()
txtEmpCode.Text = ""
TxtEmpName.Text = ""
Exit Sub
End If
For j = 0 To temp - 1
If (ListView1.Items(j).SubItems(1).Text = txtEmpCode.Text) And (ListView1.Items(j).SubItems(6).Text = Label5.Text) Then
MessageBox.Show("هذا الموظف لايمكن تسجيلة مرتين", "منظومة الدمرداش المدرسية", MessageBoxButtons.OK, MessageBoxIcon.Error)
TxtCode.SelectAll()
Exit Sub
End If
Next j
Dim k As Integer
Dim lst1 As New ListViewItem(k)
lst1.SubItems.Add(txtEmpCode.Text) 'كود الموظف
lst1.SubItems.Add(TxtEmpName.Text) 'اسم الموظف
lst1.SubItems.Add(Label9.Text) 'وقت الحضور
lst1.SubItems.Add("بالدوام") 'وقت الإنصراف
lst1.SubItems.Add(TeMAL.Text) 'حالة الموظف
lst1.SubItems.Add(Label5.Text) ' تاريخ الحضور
lst1.SubItems.Add(Label8.Text) ' يوم الحضور
lst1.SubItems.Add(CmbWTime.Text) ' فترة الحضور
lst1.SubItems.Add(RichTextBox1.Text) ' ملاحظات
lst1.SubItems.Add("حضر متأخرا") ' حالة الغياب
lst1.SubItems.Add(LateTime.Text) ' معدل التأخير
ListView1.Items.Add(lst1)
k = k + 1
TxtCode.SelectAll()
txtEmpCode.Text = ""
TxtEmpName.Text = ""

ElseIf TeMAL.Text = "إنتهى الدوام" Then
Exit Sub
End If
TxtCode.Clear()
TxtCode.Focus()

تم الحل باللون الاحمر يرجى التجربة

او عليك باضافة

else

exit sub

انسخ هذا الحل واستبدله بالاعلى

If ds.Tables(0).Rows.Count > 0 Then
txtEmpCode.Text = ds.Tables(0).Rows(0)("EmpCode").ToString()
TxtEmpName.Text = ds.Tables(0).Rows(0)("EmpName").ToString()
else

exit sub
End If

الف شكر أخى مشعل لساني عاجز عن الشكر تم الحل

دخول
إسم المستخدم
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة

المواضيع المحتمل أن تكون متشابهة .
الموضوع :		الكاتب	الردود :	المشاهدات :	آخر رد
	[سؤال] سؤال ترددت قبل نشرة:طابعة الباركود لماذا تطبع أكثر من ليبل فارغ قبل السليم	dr.programming	1	515	20-04-25, 09:26 PM آخر رد: Kamil
	كيف ايجاد أعلى رقم بعد علامة محددة.لحقل الباركود	new_programer	6	476	20-01-25, 02:11 AM آخر رد: new_programer
	استعلام على حقل date	العيدروس	2	241	19-11-24, 02:25 PM آخر رد: العيدروس
	استدعاء من جدولين داخل اداه FlowLayoutPanel برجاء الافادة للضرورة جداً	modymody300894	7	644	15-11-24, 11:02 AM آخر رد: modymody300894
	كيف اضيف Where لجملة استعلام *SELECT بها جدولين	moh61	13	1,260	25-06-24, 05:22 PM آخر رد: moh61
	[SQL] عمل استعلام من جدولين	mostafabebo	2	447	14-06-24, 09:03 PM آخر رد: mostafabebo
	الباركود بيطلع فارغ عند الطباعة	new_programer	2	565	29-05-24, 03:59 AM آخر رد: new_programer
	اريد طباعة الباركود من غير ظهور نافذة المعاينة	new_programer	1	535	23-05-24, 03:55 AM آخر رد: new_programer
	استعلام الذين فات تاريخ التسديد 3 أيام أو اكثر	محمد خيري	5	625	17-05-24, 02:38 AM آخر رد: محمد خيري
	استعلام select عن مجموعة بيانات	Adel27213	1	629	15-03-24, 01:11 AM آخر رد: justforit