الحاق نتيجة استعلام فى جدول معين

[Amr Ashraf]

السلام عليكم

اساتذتى الكرام محتاج مساعدة لالحاق نتيجة الاستعلام الموجود فى المرفق الى الجدول tbl2 كالتالى

CurrentDb.Execute "INSERT INTO tbl2 (ID, In,zdate ) " & _
             "Select (IDStudent, Sum,zdate) " & _
                  "From   Qry"

وطلب اخر مطلوب انه يعمل الحاق لهذه البيانات مرة واحدة فى اليوم 

شكرا جزيلا 

1.rar

[Amr Ashraf]

المطلوب يا اخوان الحاق جميع نتائج الاستعلام فى الجدول المطلوب بترتيب الحقول الموجود بالكود السابق

 

 

[jjafferr]

تفضل

 

انت كنت عاكس استخدام IDStudent مع ID

 

Private Sub Form_Open(Cancel As Integer)
'CurrentDb.Execute "INSERT INTO tbl2 (ID,[In],zdate ) " & _
             "Select (ID, [Sum], zdate) " & _
                  "From Qry"
                  
    CurrentDb.Execute "INSERT INTO tbl2 ( idstudent, [In], zdate ) SELECT ID, [Sum], zdate FROM Qry"
    
    'or
    'DoCmd.SetWarnings False
    '    DoCmd.RunSQL ("INSERT INTO tbl2 ( idstudent, [In], zdate ) SELECT ID, [Sum], zdate FROM Qry")
    'DoCmd.SetWarnings tru
                  
End Sub

 

جعفر

[Amr Ashraf]

1 ساعه مضت, jjafferr said:

تفضل

 

انت كنت عاكس استخدام IDStudent مع ID

 

Private Sub Form_Open(Cancel As Integer)
'CurrentDb.Execute "INSERT INTO tbl2 (ID,[In],zdate ) " & _
             "Select (ID, [Sum], zdate) " & _
                  "From Qry"
                  
    CurrentDb.Execute "INSERT INTO tbl2 ( idstudent, [In], zdate ) SELECT ID, [Sum], zdate FROM Qry"
    
    'or
    'DoCmd.SetWarnings False
    '    DoCmd.RunSQL ("INSERT INTO tbl2 ( idstudent, [In], zdate ) SELECT ID, [Sum], zdate FROM Qry")
    'DoCmd.SetWarnings tru
                  
End Sub

 

جعفر

مشكور استاذى