أخواني الاعضاء
السلام عليكم ورحمة الله وبركاتة
سنبدأ اليوم علي بركة الله بتصميم تقرير من أهم التقارير المستخدمة في نظام المخازن وهو تقرير الاستعلام عن حركة صنف معين
أولاً : - سنقوم بإنشاء استعلام ونضع فيه الجدوال التالية كما هو موضح بالصورة المرفقة

وهذا الاستعلام يتم من خلاله الاستعلام عن حركة الصنف خلال السنه الماليه
قم ببناء تقرير ومصدر بياناتة يعتمد علي هذا الاستعلام . . . بعد تصميمك للتقرير ستجد مجموعة من الحقول مكررة
بمعني ستجد داخل التقرير حقل تاريخ فاتورة الشراء وحقل آخر لتاريخ فاتورة البيع لذلك لعدم تكرار هذه الحقول أيضا أنها تعطينا نفس المعلومة فكل اللي علينا ضم هذه الحقول داخل حقل واحد وذلك عن طريق الكود التالي ....
=[date1] & " " & [date2]
بعد تصميم التقرير سيصبح شكل التقرير كالشكل التالي

أيضا سنحلاظ أننا استعملنا بالتقرير حق محسوب وهو حقل احتساب الرصيد من خلال الكود التالي
=[qty_in]-[qty_out]
ولعمل هذا الرصيد ( رصيد تراكمي ) يمكنك عمل ذلك عن طريق الضغط علي حقل الرصيد كليلك يمين ثم اختيار خصائص الحقل . . . ومن تبويب Data يتم اختيار تجميع الكل أو كما هو موضح بالصورة

والان بعد تصميم التقرير سنذهب سوياً لاستعراض هذا التقرير عن طريق نموذج
سنقوم الان بتصميم نموذج يحتوي علي عدد 2 مربع نص غير منضمين وزر وتحت حدث الضغط علي هذا الزر هذا الكود الذي يستدعي التقرير الحالي
DoCmd.OpenReport "Item_Transaction", acViewPreview, , "[number]='" & Me.T1 & "'"
أيضاً في حقل T1 وهو يرمز لكود الصنف يتم وضع الكود التالي
Private Sub T1_AfterUpdate()
[t2] = DLookup("[Name]", "Names", "Number=[t1]")
If IsNull(DLookup("[number]", "names", "[number]='" & [T1] & "'")) Then
MsgBox " هذا الكود غير موجود بدليل الاصناف", vbCritical
Cancel = -1
End If
End Subوهذا الكود مهمتة استعداء كود الصنف المراد الاستعلام عنه
وعلي سبيل المثال ضع في الحقل الاول رقم واحد ثم اضغط انتر من لوحة المفاتيح سيظهر لك بيان الصنف وعند الضغط علي الزر سيتم فتح تقرير هذا الصنف الحالي المختار . . وكما موضح بالصورة التاليه

بذلك نكون قد انتهينا من عمل تقرير لحركة صنف وهو من أهم التقارير لدينا
مرفق القاعدة بعد آخر تعديل
-waf


.jpg)
.jpg)
.jpg)
.jpg)

