طباعة السجلات نهاية كل شهر تلقائياً

;)

أنشئ ماكرو جديد واختر في الإجراء RunCode وفي الأسفل اكتب :

=طباعة_التقرير_الشهري()

واحفظ الماكرو باسم AutoExec

في الوحدة النمطية العامة ضع :

Public Function طباعة_التقرير_الشهري()
On Error Resume Next
If Day(Date) = 29 Then
        If Date + 1 = 30 Then
        Exit Function
        Else
        GoTo 10
        End If
End If
If Day(Date) = 30 Then
10 If MsgBox("اليوم هو اليوم الأخير من الشهر" & vbCrLf & "هل ترغب في طباعة التقرير .", vbYesNo _
+ vbMsgBoxRight + vbMsgBoxRtlReading + vbQuestion, "طباعة التقرير الشهري") = vbYes Then
DoCmd.OpenReport "اسم التقرير"
MsgBox "نجحت الطريق"
End If
End If
End Function

ولك تحياتي

نسيت أن أقول لك اكتب في الاستعلام تحت حقل التاريخ في معيار السطر التالي :

Month(Date())=Month([التاريخ]) And Year(Date())=Year([التاريخ])

لاحظ أن البيانات المطبوعة هي المكتوبة في الشهر الحالي .

وللجميع التحية