انتقال از یک جدول به جدول دیگر با ثبت تاریخ روز

[foo0z0ool]

دوستان و اساتید عزیز سلام

در فایل پیوست شده تعداد 2 عدد جودل و یک عدد فرم وجود دارد :

جداول

پرسنلی
لیست سیاه

میخواهم در فرم مربوط به جدول پرسنلی با کلیک بروی دکمه لیست سیاه رکورد جاری به جدول مورد نظر انتقال پیدا کنه.

خوب تا اینجای کار همه چیز درست هستش.

اما میخوام هنگامی که فرد مرد نظر انتقال پیدا کرد در جدول TblBlackList تاریخ جاری به هجری شمسی در فیلد DateBlack ثبت بشه چی کار باید بکنم ؟

ممنون میشم اگه فایل ضمیمه رو اصلاح کنید یا کد مورد نظر رو واسم بگید

با تشکر

[Abbas Amiri]

سلام
ازتابع زیر استفاده کنید . لازم به توضیح است وجود تمام فیلدهای جدول پرسنل به همان ترتیب ، در جدول لیست سیاه الزامی است


Function TransferToBlackList(ID As Long) As Boolean
On Error GoTo errBlack
CurrentDb.Execute "INSERT INTO TBlackList SELECT * FROM TPersonal WHERE ID=" & ID
CurrentDb.Execute "UPDATE TBlackList SET DateBlack = Replace(J_JALALDATE(Cstr(Format(date(),'yyyy/mm/dd')),1),'/','') WHERE ID=" & ID
CurrentDb.Execute "DELETE * FROM TPersonal WHERE ID=" & ID
TransferToBlackList = True
Exit Function
errBlack:
'CurrentDb.Execute "DELETE * FROM TBlackList WHERE ID=" & ID
End Function

[hasanhzd]

درود اگه مشکل حل نشد فایل 2003 بدید درستش رو بهتون بدم من2007 ندارم باهاش راحت هم نیستم

[foo0z0ool]

جناب آقای امیری عزیز به دلیل پاره از مسائل امکان انتقال همه فیلدها به جدول لیست سیاه وجود ندارد و نمیتوان دقیقا فیلدهای متناظر با هم را ایجاد کرد و تنها با دستور Rst باید یکی یکی فیلدها را منتقل کرد پس دستور INSERT اینجا کارایی خودش را از دست میدهد

در جدول پرسنل ما 28 فیلد داریم اما در جدول لیست سیاه تنها 15 فیلد ( 1 فیلذ کمتر = 1کیلو بایت حجم کمتر برای دیتا بیس )

[foo0z0ool]

درود اگه مشکل حل نشد فایل 2003 بدید درستش رو بهتون بدم من2007 ندارم باهاش راحت هم نیستم


متاسفانه فایل به فرمت 2003 تبدیل نمیشه

[Abbas Amiri]

سلام درارتباط با پیام خصوصی شما :