پر کردن فلید های با توجه به فیلد های قبلی

[alireza244]

با سلام

من اکسس را تازه شروع کردم

یه برنامه نوشتم

یه فرم دارم که بصورت دیتاشیت هست
میخوام هر وقت که یک رکرود جدید را شروع میکنم یکسری از فیلدها رو با مقادر رکورد قبلی پر کنه و اگر کاربر دوست داشت اونا را تغییر بده وگرنه همون داده ها را ذخیره کنه


با تشکر از شما

[مهدی قربانی]

سلام
دوست عزيز در اين نمونه بعد از وارد كردن كد و نام فرد فيلدهاي job و age بصورت خودكار مقادير ركورد قبلي رو به ارث مي برن اين پروسه با بهره گيري از ركوردست به اجرا در مياد .

[alireza244]

کار نمیکنه
اگه ممکنه در مورد کدش هم توضیح بدهید

[مهدی قربانی]

سلام
دوست گرامي در مورد كار نكردن برنامه رفرنس Microsoft DAO 3.6 Objets Library از منوي Tools / Referenses چك كنيد اگر تيكش فعال نيست اونرو فعال كنيد

در مورد كدهاي استفاده شده :


'براي انتقال اطلاعات آخرين ركورد موجود به ركورد جديد person_name فيلد After Update استفاده از رخداد
Private Sub person_name_AfterUpdate()
' استفاده از ركوردست براي باز كردن جدول و ريختن اطلاعات اون در حافظه
' تعريف متغيير جهت ركوردست
Dim rst As Recordset
' باز كردن ركوردست
Set rst = CurrentDb.OpenRecordset("table1")

' حركت به آخرين ركورد ركوردست يا همون جدول
rst.MoveLast
'و ثبت اونها در ركورد جديد age و job خوندن اطلاعات موجود در فيلدهاي
Me.person_job.Value = rst.Fields("person_job").Value
Me.person_age = rst.Fields("person_age").Value
' بستن ركوردست و تهي كردن حافظه از اطلاعات جدول
rst.Close
Set rst = Nothing

End Sub
‌

[alireza244]

باتشکر

این فرم که میخوام اطلاعات اون تکرار بشه به صرت یک Sub form در یک فرم اصلی قرار داره
وقتی که برنامه را اجرا مینکم از این خط خطا میگیره

Set rst = CurrentDb.OpenRecordset("Dbafande")

Dbafande اسم جدول sub form است

البته این جدول باید برای رفتن به آخرین رکورد با توجه به فیلد کلید که این فرم ها رو بهم ارتباط داده فیلتر بشه

در ضمن من از Access 2007 استفاده میکنم و Microsoft DAO 3.6 Objets Library را پیدا نکردم

[مهدی قربانی]

سلام
پيشنهاد مي كنم اگر براتون مقدوره فايلتون رو اينجا بذاريد تا دقيقتر بررسي و مشكلاتش مشخص بشه .

[mazoolagh]

اگر جدول کلید داشته باشه بدون کدنویسی و با تعیین defaultvalue هم میشه