[ahmed201]

انا استخدمات هذه الكود لكن لم يعمل معاي ارجو المساعد اخوتي الكرام في هذه الكود وجزاكم الله الف خير وبارك الله فيكم

كود :

For I = 1 To MSFlexGrid1.Rows - 1
If RS.State = adStateOpen Then RS.Close
sql = "SELECT * FROM [Table1] WHERE [id]='" & Trim(MSFlexGrid1.TextMatrix(I, 0)) & "'"
RS.Open sql, DB, adOpenStatic, adLockOptimistic
If RS.RecordCount > 0 Then
RS! [n2] = [n2] - " & Val(Trim$(MSFlexGrid1.TextMatrix(I, 3))"
DoEvents
End If
Next