hany_egg قام بنشر سبتمبر 22, 2014 قام بنشر سبتمبر 22, 2014 السلام عليكم ورحمة الله وبركاته مرسل للاخوة المبرمجين داتا بيز اكسس ( للاسف لم يقبلها المنتدى لكبر حجمها ) بها عدد 2 نموذج المطلوب عمل زر لترحيل سجل من كل نموذج للاخر اى امكانية ترحيل سجل من النموذج الاول الى الثانى وايضا من الثانى الى الاول . حاولت كثير لكننى لم استطيع ارجو المساعده حيث ان الموضوع عاجل وشكرا
.Azhar قام بنشر سبتمبر 22, 2014 قام بنشر سبتمبر 22, 2014 تفضل هذا كود لنقل سجل من جدول الى جدول اخر يجب ان تكون الفرومات لكل جدول على حدى . ماذا اعني بذلك ! عند نقل سجل من جدول لا يمكن نقله لنموذج يتبع نفس الجدول , واذا قمنا بذلك . اذن لماذا نقوم بذلك . 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
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.