مساعده مهمه في نقل بيانات

[goldposition]

السلام عليكم في النموذج المرفق المطلوب تسجيل اخر وظيفه من نموذج table2 حقل الوظيفه المرقى عليها الى نموذج table1 حقل الوظيفه الحاليه حسب اخر تاريخ لشغل الوظيفه وشكرا

Database1.rar

[jjafferr]

وعليكم السلام 

 

عملت استعلام للجدول Table2 ، بحيث يعطي نتائج السجل تنازليا (التاريخ الجديد يكون اول السجلات) حسب الحقل "تاريخ شغل الوظيفه":

.

وجعلت هذا الاستعلام كمصدر للنموذج Table2 ،

وفي الحدث الحالي للنموذج Table1 ، نكتب هذا الكود:

Private Sub Form_Current()

    If Me.[الوظيفه الحاليه] <> Me.Table2![الوظيفه المرقى عليها] Then
        Me.[الوظيفه الحاليه] = Me.Table2![الوظيفه المرقى عليها]
        DoCmd.RunCommand acCmdSaveRecord
    End If
    
End Sub

 

جعفر

350.Database1.accdb.zip