دخول

**وسام عبدالله الدمرداش** · 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

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

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

المواضيع المحتمل أن تكون متشابهة .
الموضوع :		الكاتب	الردود :	المشاهدات :	آخر رد
	استعلام select عن مجموعة بيانات	Adel27213	1	214	15-03-24, 01:11 AM آخر رد: justforit
	ارجو الافادة للضرورة	mohamed sabry	1	111	13-01-24, 03:37 AM آخر رد: Taha Okla
	ارجو المساعدة فى شاشة طباعة الباركود	new_programer	10	583	09-01-24, 08:41 PM آخر رد: new_programer
	اريد طباعة الباركود المحدد فقط مع الكمية	new_programer	5	450	09-01-24, 08:40 PM آخر رد: new_programer
	سؤال فى برمجة جهاز الباركود	خالد كامل1	6	483	05-01-24, 12:25 AM آخر رد: HALIM ELEULMA
	Barcode Maker - صانع ملصقات الباركود	waataanys	6	526	27-11-23, 08:09 PM آخر رد: waataanys
	استعلام من عدة جداول لقاعدة بيانات اكسس	Adel27213	12	1,093	09-11-23, 05:27 PM آخر رد: justforit
	[VB.NET] من يقدر يعمل لي استعلام يحقق طلبي ؟	أبو خالد الشكري	5	422	09-11-23, 02:25 PM آخر رد: أبو خالد الشكري
	مشكله فى جهاز قراءة الباركود	خالد كامل1	1	359	03-11-23, 06:42 AM آخر رد: Taha Okla
	مشكله عند طباعه الباركود الكتابة تظهر بهتة في خيال والنقاط قريبه من بعض غيرت الفونت	ahmedhhh2	11	800	30-09-23, 08:31 AM آخر رد: atefkhalf2004