جدول الى جدول

اسهل طريفة :

عادي هتقرأ الجدول الاول في Recordset والجدول الثاني في Recordset

ثم تساوي قيمة الحفل في Recordset الاولى بالحقل الموجود في Recordset الثانية

انا مافهمت؟

زر هذا الرابط

السلام عليكم

المطلوب بطريقه مبسطه

انا عندى جدول اسمه emp عايز انقل السجلات اللى موجوده به

الى جدول اسمه جدول temp

اخ yaco_ara

الحل موجود في الرابط الذي ارفقته لك ..... كان هناك خلال فيه واصلحته

'.I 'F* (*3'D AI EH6H9 '(37 EE' JCHF BE (*9(&) E*:J1'* EF 'D,/HD 'D'HD H69G AI 'D,/HD 'D+'FI

im sorry there is a problem in language (arabic) s

شكرا على المجهود

ممكن ترد الانجليزيه

السلام عليكم اخوانى الاعزاء

ده الحل الاخير والبسيط

"INSERT INTO tablename SELECT * from tablename "

وممكن هنا تنفذ كل انواع البحث والشروط التى تحتاجها

ارجو الدعاء الصالح

و اذا كان الامر لمرة واحدة

يمكنك تحديد الكل و النسخ ثم اللصق ضمن الجدول الجديد

بشرط توافق الاعمدة و انماط البيانات

بالتوفيق اخي

هذا كود النقل ما عليك الا تغير اسم القاعدة واسم الجدول الاول والثاني

وان شاء الله بيكون العمل تمام التمام

Private Sub Command1_Click()
Set rs5 = db1 ADODB.Recordset
rs5.Open "select * from [t1]", CN, adOpenStatic, adLockOptimistic
If rs5.RecordCount < 1 Then
MsgBox ("لا توجد بينات في الجدول!")
Exit Sub
End If

Do While Not rs5.EOF Or rs5.BOF
s = rs5!Date


Set rs56 = db1 ADODB.Recordset
rs56.Open "select * from [t2] where Date ='" & s & "'", CN, adOpenStatic, adLockOptimistic
For u = 0 To rs56.RecordCount - 1
'MsgBox rs56.RecordCount & rs56!Name
rs56.MoveNext
Next
If rs56.RecordCount < 1 Then


 CN.Execute " INSERT INTO t2 SELECT * FROM [t1];"
End If


rs5.MoveNext

Loop

Set rs5 = db1 ADODB.Recordset
rs5.Open "DELETE * from [t1]", CN, adOpenStatic, adLockOptimistic
MsgBox ("تمت عملية النقل بنجاح")

Unload Form4
End Sub

اليك هذا المثل ربما يلبي طلبك لقد قمت ببرمجته سابقا لأحد الاخوه .Copy_Records_To_Other_Table.zip

بالتوفيق ,,,,,,,,,,,,

A7med_prof