منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
طريقة اضافة قيمه للموظف بشرط - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : طريقة اضافة قيمه للموظف بشرط (/showthread.php?tid=37309)

طريقة اضافة قيمه للموظف بشرط - ahmed201 - 28-12-20

سلام عليكم اخوتي الكرام ممكن طريقة اضافة قميه الي موظف بشرط ان يكون العمود اصغر من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


RE: طريقة اضافة قيمه للموظف بشرط - سعود - 28-12-20

اذا كان العمود رقمي فلا تكتب علامة التنصيص "

RE: طريقة اضافة قيمه للموظف بشرط - ahmed201 - 28-12-20

(28-12-20, 07:07 AM)سعود كتب : اذا كان العمود رقمي فلا تكتب علامة التنصيص "

العمود نصي ولم تعمل معاي هذه الطريقه

RE: طريقة اضافة قيمه للموظف بشرط - mol - 28-12-20

اجعل العمود رقمي
كود :
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


RE: طريقة اضافة قيمه للموظف بشرط - ahmed201 - 29-12-20

(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
جزاك الله الف خير