اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

الفكرة

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

المطلوب

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

مثال

فى جدول المجموعة يوجد بها التسجيلات كمثال وليكن 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

 

رابط هذا التعليق
شارك

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

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


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

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

 

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information