تغییر در فیلدهای یک فرم

[mnz123456]

لام دوستان در یک جدول یک به چند وقتی می خوام درفرم در فیلدهای جدولی که در طرف 1 قرار داره تغییرات بدم تغییرات ذخیره نمیشه و این ÷یغام خطا را میده بنظرتون باید چه کار کنم
پیغام خطا را در فایل زیپ قرار دادم بنظرتون باید چیکار کنم

[mnz123456]

البته عضو اول به خوبی تغییرات ذخیره می شه ولی برای فیلدهای دیگر این پیغام را میده

[mnz123456]

دوستان سلام
مشکلم را فهمیدم مشکلم در این است که من اعضای صندوق را در برنامه ام با تکه برنامه زیر search می کنم و و در فیلدهای مربوطه قرار میدم حال اینکه با این کار فقط میشه اعضا و مشخصات را دید ولی تغییراتی که بخوایم بدیم ذخیره نمیشه میشه یه راه حلی ارایه بدین که اعضا با مشخصاتشون بیاد و تغییرات هم ذخیره بشه
Private Sub t1_exit(Cancel As Integer)
Set db = CurrentDb
Set rst = db.OpenRecordset("select * from Ozviat where(id_s=" & t1 & ") ")
If rst.EOF Then
MsgBox "عضو یافت نشد"
t1 = Null
t2 = Null
t3 = Null
t4 = Null
t5 = Null
Else
t2.Value = rst.Fields(1)
t3.Value = rst.Fields(2)
t4.Value = rst.Fields(3)
t5.Value = rst.Fields(4)