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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طلب طريقة معرفة عدد الصفوف الفرغه في عمود معيين MSFlexGrid ahmed201 7 174 08-01-21, 11:31 PM
آخر رد: سعود
  طريقة عرض اي عمود يتم تحديده في MSFlexGrid ahmed201 3 176 07-01-21, 03:54 PM
آخر رد: ahmed201
  طريقة تصميم برنامج حضور ونصراف بصمه ahmed201 0 56 06-01-21, 11:47 AM
آخر رد: ahmed201
  المساعدة في اضافة كلمة مرور لقاعدتي البيانات fahad fbs 2 293 01-12-20, 01:26 AM
آخر رد: fahad fbs
  طلب طريقة عمل جدولين في نفس التقرير ahmed250 0 423 24-08-20, 03:23 AM
آخر رد: ahmed250
  طريقة استخراج إنتهاء الاشتراك لعملاء ahmed250 2 344 17-08-20, 11:42 AM
آخر رد: ahmed250
  طلب طريقة استخدم طابعة بطابقة في الفيجوال بيسك6 ahmed250 2 379 07-08-20, 09:51 AM
آخر رد: ahmed250
  [سؤال] كيف يتم اضافة اطار الى صفحة تقرير اكتف ريبورت ؟ ناجح احمد 3 563 26-07-20, 10:08 PM
آخر رد: ناجح احمد
Heart [سؤال] مساعده كيفية اضافة محتوى ملف نصي txt على المشروع؟ eapda 2 540 22-06-20, 03:52 PM
آخر رد: eapda
  مشكلة في اضافة الي قاعدة بيانات اكسس ahmed250 0 385 13-06-20, 10:27 AM
آخر رد: ahmed250

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


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