اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


hany_egg

الردود الموصى بها

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

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

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

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

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
رابط هذا التعليق
شارك

  • 2 weeks later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information