منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

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

اجعل العمود رقمي

كود :

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

(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

جزاك الله الف خير

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

ahmed201

سعود

ahmed201

mol

ahmed201