الحاق بكود

[النجاشي]

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

عندي نموذج يلحق البيانات بالجدول الثاني حسب رقم الفاتوره شغال  تمام 

ولكن بدي يكون عن طريق كود لانه ما بحب كثر الاستعلامات 

شاكرين لكم احبتي

 

 

الحاق بكود.accdb

[Shivan Rekany]

27 دقائق مضت, ابو زاهر said:

عندي نموذج يلحق البيانات بالجدول الثاني حسب رقم الفاتوره شغال  تمام 

ولكن بدي يكون عن طريق كود لانه ما بحب كثر الاستعلامات

اتفضل اليك الكود
 

Private Sub أمر0_Click()
    Dim sql As String
    sql = "INSERT INTO tndim ( Rjmfatwra, NoEmp, Atarih, Aljmali, Alhasm, Asafi, Alban )" & _
                "SELECT AfwtIar.Rjmfatwra, AfwtIar.NoEmp, AfwtIar.Atarih, AfwtIar.Aljmali, AfwtIar.Alhasm, AfwtIar.Asafi, AfwtIar.Alban FROM AfwtIar " & _
                "WHERE (((AfwtIar.Rjmfatwra)=[Forms]![form_1]![Rjmfatwra]));"
                DoCmd.SetWarnings False
                DoCmd.RunSQL (sql)
                DoCmd.SetWarnings True
End Sub

 

الحاق بكود.accdb

[النجاشي]

4 دقائق مضت, Shivan Rekany said:

اتفضل اليك الكود
 

Private Sub أمر0_Click()
    Dim sql As String
    sql = "INSERT INTO tndim ( Rjmfatwra, NoEmp, Atarih, Aljmali, Alhasm, Asafi, Alban )" & _
                "SELECT AfwtIar.Rjmfatwra, AfwtIar.NoEmp, AfwtIar.Atarih, AfwtIar.Aljmali, AfwtIar.Alhasm, AfwtIar.Asafi, AfwtIar.Alban FROM AfwtIar " & _
                "WHERE (((AfwtIar.Rjmfatwra)=[Forms]![form_1]![Rjmfatwra]));"
                DoCmd.SetWarnings False
                DoCmd.RunSQL (sql)
                DoCmd.SetWarnings True
End Sub

 

الحاق بكود.accdb

ممتاز 

بارك الله فيك استاذي  الغالي ابو محمد

الله يعطيك الصحه والعافيه وكل من تحي يالغالي 

شكرا اليك