تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طريقة اضافة قيمه للموظف بشرط
#1
سلام عليكم اخوتي الكرام ممكن طريقة اضافة قميه الي موظف بشرط ان يكون العمود اصغر من10 
علي سبيل المثل موظف عند قيمة العمود 7 والموظف الثاني قيمة العمود 6 عايز لما اضغط علي زيدة الموظف يتم زيدة العمود +1 بحيث يكون الموظف الاول 8 والموظف الثاني 7 الي ان يصل الي 10 هناك يتوقف  انا جربت الكود ولكن لم يعمل معاي
كود :
If rs.State = adStateOpen Then rs.Close
Dim a, b As Integer
b = 10
sql = "SELECT * FROM [Table2] WHERE [n22]<='" & Trim(b) & "'"
rs.Open sql, db, adOpenStatic, adLockOptimistic
If rs.RecordCount > 0 Then
rs.MoveFirst
a = 1
rs![N22] = rs![N22] + Val(Trim$(a))
DoEvents
rs.Update
End If
كود :
اذكرو الله سبحان الله وبحمده *سبحان الله العظيم
الرد }}}
تم الشكر بواسطة:
#2
اذا كان العمود رقمي فلا تكتب علامة التنصيص "
الرد }}}
تم الشكر بواسطة:
#3
(28-12-20, 07:07 AM)سعود كتب : اذا كان العمود رقمي فلا تكتب علامة التنصيص "

العمود نصي ولم تعمل معاي هذه الطريقه
كود :
اذكرو الله سبحان الله وبحمده *سبحان الله العظيم
الرد }}}
تم الشكر بواسطة:
#4
اجعل العمود رقمي
كود :
If rs.State = adStateOpen Then rs.Close
Dim a As Integer, b As Integer
b = 10
a = 1
sql = "SELECT * FROM [Table2] WHERE [n22] < " & b
rs.Open sql, db, adOpenStatic, adLockOptimistic
If rs.RecordCount > 0 Then
   rs.MoveFirst
   Do Until rs.EOF
       rs![N22] = rs![N22] + a
       rs.MoveNext
   Loop
End If

اذا كنت تريده نصي
كود :
If rs.State = adStateOpen Then rs.Close
Dim a As Integer, b As Integer
b = 10
a = 1
sql = "SELECT * FROM [Table2] WHERE VAL([n22]) < VAL('" & b & "')"
rs.Open sql, db, adOpenStatic, adLockOptimistic
If rs.RecordCount > 0 Then
   rs.MoveFirst
   Do Until rs.EOF
       rs![N22] = Val(rs![N22]) + a
       rs.MoveNext
   Loop
End If
الرد }}}
تم الشكر بواسطة: ahmed201
#5
(28-12-20, 02:26 PM)mol كتب : اجعل العمود رقمي
كود :
If rs.State = adStateOpen Then rs.Close
Dim a As Integer, b As Integer
b = 10
a = 1
sql = "SELECT * FROM [Table2] WHERE [n22] < " & b
rs.Open sql, db, adOpenStatic, adLockOptimistic
If rs.RecordCount > 0 Then
   rs.MoveFirst
   Do Until rs.EOF
       rs![N22] = rs![N22] + a
       rs.MoveNext
   Loop
End If

اذا كنت تريده نصي
كود :
If rs.State = adStateOpen Then rs.Close
Dim a As Integer, b As Integer
b = 10
a = 1
sql = "SELECT * FROM [Table2] WHERE VAL([n22]) < VAL('" & b & "')"
rs.Open sql, db, adOpenStatic, adLockOptimistic
If rs.RecordCount > 0 Then
   rs.MoveFirst
   Do Until rs.EOF
       rs![N22] = Val(rs![N22]) + a
       rs.MoveNext
   Loop
End If
جزاك الله الف خير
كود :
اذكرو الله سبحان الله وبحمده *سبحان الله العظيم
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] اضافة الصور الى ملف واسترجاعها بدون قاعدة البيانات haitham Muhammed 3 417 24-01-24, 01:51 PM
آخر رد: haitham Muhammed
  [vb6.0] طريقة تصدير بيانات الداتا ريبورت datareport لصيغة pdf hamada salah90 6 1,479 19-01-24, 07:59 PM
آخر رد: hamada salah90
  سؤال بخصوص الحلقات التكرارية / اضافة درجة بشروط haiderkh 14 4,068 19-01-24, 02:39 PM
آخر رد: cls
Question [vb6.0] كيف يمكن برمجة عدد السجلات واستعراض السجلات بشرط رقم الموظف ؟ Microformt 3 196 09-01-24, 01:05 AM
آخر رد: Taha Okla
  اريد طريقة تصدير بيانات الاكتف ريبورت لملف اكسل scsi7000 0 299 03-11-23, 10:41 AM
آخر رد: scsi7000
  اريد طريقة لطباعة مستند مكون من صفحتين علي ورقة وحدة من الجهتين scsi7000 2 371 25-10-23, 07:38 PM
آخر رد: scsi7000
  اضافة سجل جديد عن طريق الDataGrid اسلام الكبابى 2 951 05-07-23, 01:15 PM
آخر رد: محمد ابو ايمن
  طريقة حماية البرنامج برقم المعالج layan2000 76 99,436 09-06-23, 09:20 PM
آخر رد: fouadhdfouad
  اهدي اليكم طريقة اتصال واستيراد واضافة موظف في جهاز البصمة ahmed1900 2 806 13-05-23, 12:55 PM
آخر رد: scsi7000
  طريقة عمل QR BARCODE VB6.0 hannileo 12 7,462 10-10-22, 11:54 PM
آخر رد: mohammed_atallah

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم