تعبئة الرواتب السته تلقائيا

لكم الشكر لقد توصلت للحل واذا في اي استفسار برجع ليكم هذا الكود الذي اضفتله

Private Sub ÊÇÑíÎ_ÇáÇáÊÍÇÞ_ÈÇáÏæÑÉ_AfterUpdate()
If IsNull([ÊÇÑíÎ ÇáÇáÊÍÇÞ ÈÇáÏæÑÉ]) = True Then
    [SMonth1] = ""
    Exit Sub
Else
    [SMonth1] = DateAdd("m", 1, [ÊÇÑíÎ ÇáÇáÊÍÇÞ ÈÇáÏæÑÉ]) - 1
If IsNull([SMonth1]) = True Then
    [SMonth2] = ""
    Exit Sub
Else
    [SMonth2] = DateAdd("m", 1, [SMonth1]) - 1

If IsNull([SMonth2]) = True Then
    [SMonth3] = ""
    Exit Sub
Else
    [SMonth3] = DateAdd("m", 1, [SMonth2]) - 1
If IsNull([SMonth3]) = True Then
    [SMonth4] = ""
    Exit Sub
Else
    [SMonth4] = DateAdd("m", 1, [SMonth3]) - 1
If IsNull([SMonth4]) = True Then
    [SMonth5] = ""
    Exit Sub
Else
    [SMonth5] = DateAdd("m", 1, [SMonth4]) - 1
If IsNull([SMonth5]) = True Then
    [SMonth6] = ""
    Exit Sub
Else
    [SMonth6] = DateAdd("m", 1, [SMonth5]) - 1

End If
End If
End If
End If
End If
End If
End Sub

الاستاذة الفاضلة والاعضاء الكرام

في النموذج الموجود في القاعدة مبني من استعلام الا توجد طريقة لتحرير بياناته ولكم الشكر

اخي الفاضل : خالد

لكي يعمل معك الإستعلام والنموذج وتستطيع التحرير بهما فالطريقة هي استبعاد الجدول tblTrade من الإستعلام فقط

za-datasalary-UP.rar

بالتوفيق