طريقة دمج جدولين باستخدام التكرار for

[Mostafa Metwally]

السلام عليكم ورحمة الله وبركاتة

الفكرة

عندى ثلاث جداول جدول للمجموعة وجدول للاصناف وجدول للحركة الدمج

المطلوب

اخذ كل حقل فى الجدول المجموعة ودمجها مع جميع الحقول بجدول الاصناف ووضعها فى جدول الحركة

مثال

فى جدول المجموعة يوجد بها التسجيلات كمثال وليكن 3 ريكورد ( موس ، لوحة مفاتيح ، سماعات )

فى جدول الاصناف وليكن اربع ريكورد ( درجة اول ، درجة ثانية ، درجة ثالثة ،درجة رابعة )

فى جدول الحركة يجب دمج كل ريكورد من المجموعة مع كل صنف مثل ( موس درجة اولى 

الركود الثانى موس درجة ثانية حى موس درجة رابعة

وبعد ذلك يدخل على لوحة المفاتيح

وبعد ذلك سماعات ( سماعات درجة اول - ثانية ثالثة .... سماعات درجة رابعة )

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

test.rar

 

test.rar

Dim db As dao.Database
Dim rs1 As dao.Recordset
Dim rs2 As dao.Recordset
Dim rs3 As dao.Recordset
Dim rs4 As dao.Recordset
Dim rs5 As dao.Recordset
Set db = CurrentDb
Set rs1 = db.OpenRecordset("gro", 2)
Set rs2 = db.OpenRecordset("select count(nsanf) as sss from sanf", 2)
Set rs5 = db.OpenRecordset("select count(ngro) as ggg from gro", 2)
Set rs3 = db.OpenRecordset("tran", 2)
Set rs4 = db.OpenRecordset("sanf", 2)
''''''MsgBox (Val(rs2!sss) + Val(rs5!ggg))
'On Error Resume Next
'rs1.MoveFirst
For i = 1 To Val(rs2!sss)
rs3.AddNew
rs3!tra = rs1!ngro & "  " & rs4!nsanf
rs3.Update
rs4.MoveNext
Next

[ابوخليل]

تفضل  استبدل الكود بهذه الجملة

DoCmd.SetWarnings fals
DoCmd.RunSQL "INSERT INTO tran ( tra ) " & vbCrLf & _
"SELECT [ngro] & "" "" & [nsanf] AS xpr1 " & vbCrLf & _
"FROM gro, sanf"
DoCmd.SetWarnings True

 

[Mostafa Metwally]

15 ساعات مضت, ابوخليل said:

تفضل  استبدل الكود بهذه الجملة

DoCmd.SetWarnings fals
DoCmd.RunSQL "INSERT INTO tran ( tra ) " & vbCrLf & _
"SELECT [ngro] & "" "" & [nsanf] AS xpr1 " & vbCrLf & _
"FROM gro, sanf"
DoCmd.SetWarnings True

تسلم اخى ابو خليل هذا المطلوب ياريت توضح شرح الكود علشان الكل يستفاد مشكور اخى الغالى