PDA

View Full Version : سوال: حذف ركوردهاي يك جدول با استفاده از جدول ديگر



MOR_MS
جمعه 16 تیر 1391, 18:28 عصر
سلام و خسته نباشيد
من دوتا جدول به نام A1 و A2 دارم كه در هردو اطلاعات زيادي است ميخوا با استفاده از كد يا هر چيز ديگر اطلاهات جدول A1 را كا در جدول A2 مشترك است بطور يك جا حذف گنم و اطلاعات A2 دست نخورده بماند
در جدول A1 علاوه بر اطلاعات مشترك اطلاعات ديگري است كه نمي خوام حذف بشه

Abbas Amiri
جمعه 16 تیر 1391, 18:59 عصر
بدون هیچ گونه اطلاعی از وضعیت اشتراکات دوجدول نمیتوان راهنمایی کرد . آیا دوجدول کلید اصلی دارند دراینصورت آیا رکوردهای مشترک در دوجدول با مقادیر یکسان در فیلد اصلی میباشند . با فرض اینکه ربطی به کلید اصلی ندارد رکوردهای مشترک الزاما باید چه فیلدهایی با مقادیر یکسان داشته باشند تا بتوان آنها را مشترک نامید : نام فیلد(ها) و نوع آن(ها) را ذکر کنید.

MOR_MS
جمعه 16 تیر 1391, 20:59 عصر
باسلام
همانطور كه گفتم فيلدها مشتركند يعني تمام ايتمهاي انها يكي است كه ميشه توي كد ان براي انجام عمليات استفاده كرد كه بعنوان كليد اصلي هم هست

Abbas Amiri
جمعه 16 تیر 1391, 21:35 عصر
اگر فرض کنیم نام فیلد کلید اصلی جداول PK باشد روال زیررا دریک ماژول کپی و درهرجایی خواستید آنرا صدا بزنید


Sub DeleteDuplicatedRecords()
Dim sSQL As String
sSQL = "DELETE * FROM A1 WHERE PK IN (SELECT PK FROM A2)"
CurrentDb.Execute sSQL
End Sub