ورود

View Full Version : كپي كردن تعدادي ركورد در جدول ديگر



iman2023
شنبه 29 تیر 1387, 07:00 صبح
سلام. من دوتا جدول با ساختار يكسان دارم. حالا سوالم اينه كه چطور مي تونم تعدادي ركورد با شرايط خاص رو از جدول اول تو جدول دوم كپي كنم؟

ehsan_y
شنبه 29 تیر 1387, 07:06 صبح
سلام
اول دو ركوردست از دو جدولت درست مي كني بعد شروع مي كني به چك كردن تك تك ركوردهاي جدول مبنا درصورتي كه شرط لازم رو داشت يه ركورد جديد تو جدول دوم درست مي كني و كپي مي كني اونجا . اگه كدهاشو رو هم خواستي بگو بذارم .

iman2023
شنبه 29 تیر 1387, 07:22 صبح
اگه اين لطفو كني ممنون ميشم.

mahdif123
شنبه 29 تیر 1387, 07:50 صبح
با سلام

دوست عزيز به اين تايپيك يك نگاهي بينداز .

http://barnamenevis.org/forum/پایگاه-داده-ms-access/112246-حذف-ركورد.html

----------------------------
مطالعه كتاب را فراموش نكنيد .

ehsan_y
شنبه 29 تیر 1387, 07:54 صبح
Set db = CurrentDb
Set rst1 = db.OpenRecordset("جدول 1")
Set rst2 = db.OpenRecordset("جدول 2")
x = rst1.RecordCount

'-- اگه شرط اين باشه كه مثلاً فرد متاهل باشه و يه فيلد به نام تاهل توي جدول 1 داشته باشيم

for i=1 to x
if rst.Fields("tahol").Value = -1 then

rst2.AddNew
rst2.Fields("نام فيلد از جدول 2").Value = rst1.Fields("نام فيلد از جدول 1").Value
.
.
.
rst2.Update
end if
next i