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

[فراس سعدي]

السلام عليكم كيفية نقل قيمة من فورم الى جدول ثاني عن طريق علاقه او ما شابه 

2222.rar

[محمد أبوعبدالله]

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

تفضل اخي الكريم

    Dim db As Object
    Dim rst As DAO.Recordset
    
    Set rst = CurrentDb.OpenRecordset("FILR")
        rst.AddNew
        rst.Fields(0) = Nz(DMax("[المعرف]", "FILR"), 0) + 1
        rst.Fields(1) = Me.اسم_الموظف
        rst.Fields(2) = Me.Cat4_Sum
        rst.Update
    
    rst.Close
    Set rst = Nothing

2222.rar

تحياتي

[فراس سعدي]

@محمد أبوعبدالله استاذي هذا الكور الرائع يتم من خلاله اضافة من الفورم لكني احتاج تحديث للقيمة من الفورم QFile_1 باللون الاحمر من خلال ربط الجدولFILR  مع الاستعلام  QFile_1ونتاج هذا الربط يتم انشاء  استعلام ثالث  اخر من خلاله يتم تحديث القيم حسب اسم الموظف  

[فراس سعدي]

Up

[د.كاف يار]

تفضل هذا التعديل

 

2222.zip

[فراس سعدي]

احسنت وبارك الله فيك دكتورنا هو المطلوب