[ahmed201]

(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

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