تعديل على حقل فرعى

[tiger wanted]

بسم الله الرحمن الرحيم مرسل لكم ملف فيه اسماء موظفين ونسبة الزيادة على كل مرتب وملحق به نموذج فرعى اريد عمل حساب يضع المرتب فى الجدول الفرعى بعد اضافة النسبة الموجودة فى الرئيسى على ان يتم الامر تلقائيا على كل السجلات بمعنى ان ينفذ الامر فى السجل الرئيسى ثم ينتقل الى السجل الثانى اتوماتيك وهكذا وشكرا لكم

update.accdb

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

السلام عليكم

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

سيتم تحديث حقل sallary + الزيادة المذكورة في حقل percent

Private Sub Command13_Click()
    DoCmd.GoToRecord acDataForm, Me.Name, acFirst
    
    mySQL = "Select * From sub"
    Debug.Print mySQL
    
    Set rst = CurrentDb.OpenRecordset(mySQL)

    For i = 1 To Me.RecordsetClone.RecordCount
    
        rst.Edit
        rst!sallary = rst!sallary + (rst!sallary * Me.percent)
        rst.Update
        rst.MoveNext
        DoCmd.RunCommand acCmdRecordsGoToNext

            Next
            
        If Me.CurrentRecord = Me.RecordsetClone.RecordCount Then Exit Sub
        DoCmd.GoToRecord acDataForm, Me.Name, acFirst
            
    rst.Close: Set rst = Nothing
    Me.Child9.Requery
    
End Sub

update.accdb

تحياتي

[husamwahab]

مشاركة مع استاذي العزيز محمد أبوعبدالله

حسب فهمي لطلب الاخ tiger wanted

update-100.rar

[tiger wanted]

اشكرك جزيل الشكر حل رائع بالفعل ادعو ان يزيدك الله من فضله واشكرك