پركردن جدول با استفاده از ركوردست [بایگانی]

saeid80

چهارشنبه 14 مهر 1389, 14:02 عصر

با سلام خدمت اساتيد محترم !
جدولي دارم كه مي خواهم فيلد zx آن با اعداد زوج پر شود چگونه اينكار با استفاده از ركوردست امكان پذير است.

با تشكر

amirzazadeh

چهارشنبه 14 مهر 1389, 20:16 عصر

با سلام خدمت اساتيد محترم !
جدولي دارم كه مي خواهم فيلد zx آن با اعداد زوج پر شود چگونه اينكار با استفاده از ركوردست امكان پذير است.

با تشكر
سلام
لطفا فايل ضميمه رو ببينيد:

Private Sub Command0_Click()
Dim rs As DAO.recordset
Dim x As Integer
Set rs = CurrentDb.OpenRecordset("tb1", dbOpenDynaset)
Do Until rs.EOF
x = x + 2
rs.Edit
rs.Fields("zx") = x
rs.Update
rs.MoveNext
Loop
MsgBox "opration completed"
End Sub
...........................
موفق باشيد