[ahmed201]

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