نقل سجل من نموذج الى نموذج اخر

[hany_egg]

السلام عليكم ورحمة الله وبركاته 

مرسل للاخوة المبرمجين داتا بيز اكسس ( للاسف لم يقبلها المنتدى لكبر حجمها )

بها عدد 2 نموذج المطلوب عمل زر لترحيل سجل من كل نموذج للاخر اى امكانية ترحيل سجل من النموذج الاول الى الثانى وايضا من الثانى الى الاول .

حاولت كثير لكننى لم استطيع 

ارجو المساعده حيث ان الموضوع عاجل وشكرا

 

[.Azhar]

تفضل هذا كود لنقل سجل من جدول الى جدول اخر يجب ان تكون الفرومات لكل جدول على حدى .

ماذا اعني بذلك !

عند نقل سجل من جدول لا يمكن نقله لنموذج يتبع نفس الجدول , واذا قمنا بذلك . اذن لماذا نقوم بذلك .

Dim intSeat As Integer
If MsgBox("Click ""Yes""سيتم نقل هذا القيد الى كذا ........ الخ الرسالة ", vbYesNo, "هل تريد نقل القيد ?") = vbYes Then
    intSeat = Me.Seat
    CurrentDb.Execute "Insert into master (*) SELECT  , ,  FROM الجدول الذي كان فيه السجل WHERE Seat = " & intSeat
   CurrentDb.Execute "اسم الجدول الذي سيتم نقل السجل اليه  * FROM اسم الجدول الذي كان فيه السجل WHERE Seat = " & intSeat
    Me.Requery
End If

[mo81177]

ياريت في مثال توضيحي للاستفادة

[.Azhar]

الكود واضح جدا ولا يحتاج لمثال صديقي 

[mccaao]

لا بصراحة يحتاج بعد اذنك طبعا