مساعدة .. كيفية تثبيت أحد السجلات بنموذج الادخال لإمكانية بيانات جديدة واضافية بباقي السجلات

[wknaoomi]

كل عام وانتم جمعيا اعضاء منتدانا الكريم.

طلب المساعدة في كيفية تبيث سجل معين بالنموذج أو الصفحة لإمكانية ادخال بيانات اخري دون الخروج والدخول لاختيار نفس السجل .

موضّح بالمرفق .. مع الشكر والتقدير .

حصر.rar

[ابوخليل]

السلام عليكم

لن تستطيع الاضافة مجددا في كل مرة حتى تفصل هذه البيانات في جدول مستقل فرعي ثم تربط بينهما بعلاقة رأس لاطراف

ثم تنشء نموذجا فرعيا يستند الى هذا الجدول

[wknaoomi]

نموذج فرعي ... فعلا أعتقد انه هذا حل مناسب ... اشكرك جداً أخ " ابوخليل " وشكرا لمنتدانا الكريم

[عبد الفتاح كيرة]

لعل سؤالى فى نفس الموضوع

فى حالة وجود علاقة رأس برأس

يوجد رقم التلميذ فى الجدول الأول

و رقمه فى الجدول الثانى أيضا

ما الطرق التى نتبعها

عند إدخال رقم طالب جديد

بحيث يسجل رقمه فى الجدولين معا

وشكرا

[عبد الفتاح كيرة]

وجدت هذا الكود لكنه يحتاج لشرح

dim rsI as recordset, rsR as recordset, rsF as recordset, rsD as recordset

dim db as database, anFD as long, anR as long

set db=currentdb()

set rsI=db.openrecordset("FlatInputTable")

set rsR=db.openrecordset("tbl_Record")

set rsF=db.openrecordset("tbl_Forecast")

set rsD=db.openrecordset("tbl_Forecast_Detail")

while not rsi.eof

rsr.addnew

rsr!Product = rsi!Product

anR = rsr!RecordId

...

rsr.update

rsd.addnew

rsd![Month] = rsi![Month]

anFD = rsd!ForecastDetailID

rsd![Value] = rsi![Value]

rsd.update

rsf.addnew

rsf!RecordId = anR

rsf!ForecastDetailID = anFD

rsf![Value] = rsi!FYF

rsf.update

rsi.movenext

wend

[wknaoomi]

اين الشرح من فضلك .. للاستفادة