درج از يك جدول به جدول ديگر با فيلدهاي متفاوت

[q.bigdeli]

با سلام

جدول table1 به صورت table2 در table2 اضافه گردد، table2 خالي است كه با محتويات جدول 1 پر مي شود
9371093711 table1 داراي فيلدهاي id , number
tbable2 داراي فيلدهاي num1, num2 , num3
خروجي table2 مي باشد

[mma_ok]

از فایل پیوست میتونید راهنمایی بگیرید

[abdoreza57]

سلام

خوب این چه کاریه ؟؟ همان اطلاعات را تو تیبل بانک منتقل کن !!!!!!!!

[q.bigdeli]

با سلام

در جدول table1 فيلد كليدي نداريم در واقع ركودهاي با يك فيلد يكسان گروهبندي شده و باقي فيلدها به صورت سطري قرار مي گيرند نتيجه بايد يك ركورد با فيلد مشابه و فيلدهاي غير مشابه در يك سطر قرار گيرند

[q.bigdeli]

با اين كد مشكلم حل شد
Private Sub Command0_Click()

Dim rs As DAO.Recordset
Dim rs1 As DAO.Recordset
DoCmd.SetWarnings False
Set rs = CurrentDb.OpenRecordset("table1")
Set rs1 = CurrentDb.OpenRecordset("table2")
DoCmd.RunSQL ("delete * from table2")
P: rs1.AddNew
a = rs.Fields("id")
rs1.Fields("id") = rs.Fields("id")
rs1.Fields("n1") = rs.Fields("number")
i = 2
While Not rs.EOF = True
rs.MoveNext

l: If rs.Fields("id") = a Then
rs1.Fields("n" & i) = rs.Fields("number")
rs.MoveNext

i = i + 1
GoTo l
Else
rs1.Update
GoTo P
End If

Wend
rs1.Close
Set rs1 = Nothing
MsgBox "ÚãáíÇÊ ÇäÊÞÇá ÑßæÑÏÇäÌÇã ÔÏ", vbExclamation + vbYes, "ÇÚáÇä"
Exit Sub
DoCmd.SetWarnings True
End Sub