تغییر مقدار یک فیلد با VBA

[amirmazyaki]

با سلام

می خواستم بدونم چطوری میشه با کدهای ویژوال بیسیک مقدار یک فیلد دلخواه (آی دی اون فیلد رو دارم) رو تو هر کدوم از جدول های فایل اکسسم تغییر بدم
به طور مثال با زدن یک دکمه فردی که با آی دی 100 تو جدول user قرار داره اسمش از amir به ali تغییر پیدا کنه

[amp_1356]

سلام

Dim str As String
str = "SELECT * FROM User WHERE [ID] = 100"
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset(str)
With rs
.Edit
.Fields("Nam") = "ali"
.Update
End With
rs.Close
db.Close
Set db = Nothing

ان شا الله مشکل حل خواهد شد