ویرایش اطلاعات یک تیبل که دارای فقط یک رکورد هست بوسیله فرم Unbound

[abdoreza57]

سلام

من تیبلی دارم که مشخصات کلی مثل نام کارگاه و غیره را در خود ذخیره میکنه لذا این تیبل تنها یک رکورد خواهد داشت حال برای ویرایش برخی از فیلدها مجبورم از آنبوند استفاده کنم

این جدول یه کلید اولیه داره بنام PassPerson ، تکست باکس صوری مخفی UrecordId با مقدار پیش فرضی که برابر PassPerson هست و این سه فیلد موجود تو کدها همونهایی هست که تصمیم دارم با اون فرم آنبوند گزینه جدید را جایگزین قبلی (حالا هر چی بوده یا اصلا خالی باشه ) کنم
سرانجام راهکاری که به ذهنم رسید این کد هست که متاسفانه خطا میگیره !!!
قطعا تو شرایط گفته شده راه ساده تر و بهتری وجود داره که اگه راهنمایی کنید خوشحال خواهم شد
دوستان و اساتید گرامی اگه لطف کنند ایراد کارم را هم بگند ممنون میشم


Private Sub sav_Click()

Dim dbi As Database
Dim rsti As Recordset
Set dbi = CurrentDb
Set rsti = dbi.OpenRecordset("SELECT * FROM Tbl_Spec WHERE PassPerson=" & UrecordId.Value & ";")
DoCmd.SetWarnings 0
rsti.Edit
rsti.Fields("UserTitle1") = Me.text10
rsti.Fields("adress") = Me.text12
rsti.Fields("tel") = Me.text14

Me.text10.Value = Null
Me.text12.Value = Null
Me.text14.Value = Null
End Sub

خدا نگهدار

[Abbas Amiri]

سلام
حداقل موردی که از ظاهر کدها مشخصه ، بعداز هر AddNew یا Edit در رکوردست بایستی rs.Update هم نوشته بشه.