تقييم الموضوع :
  • 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
جزاك الله الف خير
كود :
اذكرو الله سبحان الله وبحمده *سبحان الله العظيم
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طريقة حماية البرنامج برقم المعالج layan2000 75 61,518 26-03-21, 08:03 PM
آخر رد: محمد بن عطية
  اهدي اليكم طريقة الاتصال بقاعدة البيانات عن طريقة المشاركه بدون تعديل كود الاتصال ahmed201 1 202 25-03-21, 11:35 AM
آخر رد: رضوان الجماعي
  طلب طريقة تعامل مع جهاز حضور وانصراف البصمه ahmed201 0 91 23-03-21, 02:18 AM
آخر رد: ahmed201
  طلب طريقة معرفة عدد الصفوف الفرغه في عمود معيين MSFlexGrid ahmed201 7 347 08-01-21, 11:31 PM
آخر رد: سعود
  طريقة عرض اي عمود يتم تحديده في MSFlexGrid ahmed201 3 279 07-01-21, 03:54 PM
آخر رد: ahmed201
  طريقة تصميم برنامج حضور ونصراف بصمه ahmed201 0 185 06-01-21, 11:47 AM
آخر رد: ahmed201
  المساعدة في اضافة كلمة مرور لقاعدتي البيانات fahad fbs 2 397 01-12-20, 01:26 AM
آخر رد: fahad fbs
  طلب طريقة عمل جدولين في نفس التقرير ahmed250 0 524 24-08-20, 03:23 AM
آخر رد: ahmed250
  طريقة استخراج إنتهاء الاشتراك لعملاء ahmed250 2 449 17-08-20, 11:42 AM
آخر رد: ahmed250
  طلب طريقة استخدم طابعة بطابقة في الفيجوال بيسك6 ahmed250 2 487 07-08-20, 09:51 AM
آخر رد: ahmed250

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


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