حفظ التقرير باسم المعلم

[أبوبسمله]

32 دقائق مضت, فايز.. said:

يمكن خاف أقول ( عروسة ) 

تقبل الله منا ومنك 

بانتظارك

ههههههه يمكن

اللهم آمين منا ومنكم ان شاء الله

اخى واستاذى @kha9009lid جزاك الله خيرا ع التنبيه فلم الاحظه الا الان ولعل ذلك لان التقرير مينى على الجدول Stationary_Table مباشر فلا تتم تصفيته

اخى ومعلمنا @jjafferr جزاك الله خيرا

[kha9009lid]

اخي احمد فيه طريقة بسيطة لاضهار من استلموا مواد فقط

وفي حالتنا يمكن تعديل مصدر القائمة المنسدلة لاسم المعلم بحيث نقوم بوضع حقل في الاستعلام قيمته تساوي

 Nz(DCount("[Product]";"Stationary_Table";"[Teacher]='" & [Teacher] & "'");0)

وفي المعاير لهذا الحقل يكون اكبر من صفر

وبالتالي يضهر لنا فقط المعلمين الذين صرفوا المواد اما من لم يصرف فلا يكون ضمن القائمة

والتعديل يكون في التصفية بحيث يتم طباعة من تم اختياره

تحياتي لك

 

[أبوبسمله]

اخى خالد

قمت بالتعديل على المرفق بتعديل عادى وجعل التقرير مبنى على استعلام داخلى واضافه المعيار له الاسم المختار من النموذج سوف اجرب ما تفضلت به

ولكن هناك مشكله رساله الخطأ 2501 سوف احاول معها

جازكم الله خيرا اخوانى واساتذتى

A_Library1.rar

[عفرنس]

4 دقائق مضت, kha9009lid said:

اخي احمد فيه طريقة بسيطة لاضهار من استلموا مواد فقط

وفي حالتنا يمكن تعديل مصدر القائمة المنسدلة لاسم المعلم بحيث نقوم بوضع حقل في الاستعلام قيمته تساوي

 Nz(DCount("[Product]";"Stationary_Table";"[Teacher]='" & [Teacher] & "'");0)

وفي المعاير لهذا الحقل يكون اكبر من صفر

وبالتالي يضهر لنا فقط المعلمين الذين صرفوا المواد اما من لم يصرف فلا يكون ضمن القائمة

والتعديل يكون في التصفية بحيث يتم طباعة من تم اختياره

تحياتي لك

 

أين يتم وضع الكود . أستاذ خالد ؟؟ في التقرير ؟؟ 

[عفرنس]

الأخ @أحمد الفلاحجى بعد تعديلك الأخير وفي حال اختيار معلم لا يوجد له بيانات يمكن طباعتها من زر فتح pdf  تظهر هذه الرسالة 

[أبوبسمله]

نعم اخى فايز لقد ذكرت ذلك بالاعلى انه يوجد مشكله الخطأ 2501 عند الالغاء

ومرفق التعديل الذى ذكره اخى خالد @kha9009lid جزاه الله خيرا

 

A_Library2.rar

[kha9009lid]

بعد التعديل انتهت المشكله

لم اختبر المشكلة هل انتهت اخي احمد

الان متوجه للعمل

[عفرنس]

@أحمد الفلاحجى @kha9009lid 

شكر الله لكما سأجرب بعد التعديلات البرنامج وأوافيكم بالنتائج .. 

 

[أبوبسمله]

3 دقائق مضت, kha9009lid said:

بعد التعديل انتهت المشكله

لم اختبر المشكلة هل انتهت اخي احمد

الان متوجه للعمل

ربنا يعينك ويوفقك اخى خالد فى رعايه الله نعم بالتاكيد

جزاك الله خيرا

[عفرنس]

4 دقائق مضت, أحمد الفلاحجى said:

ربنا يعينك ويوفقك اخى خالد فى رعايه الله نعم بالتاكيد

جزاك الله خيرا

الأستاذ @أحمد الفلاحجى @kha9009lid 

لا زال هناك مشكلة في عملية التقرير المحفوظ  ذكرتها سابقا . وهي باختصار  : 

يحفظ التقرير باسم كل معلم >>  لكن لما تفتح التقارير المحفوظة تجد أن المحتوى هو لمعلم واحد فقط ..  أي لم يحفظ التقرير الفعلي للمعلم . 

[kha9009lid]

جرب المرفق

وقبل الطباعة اخذف النسخة المحفوظة مسبقا

 

A_Library1.rar

[أبوبسمله]

10 دقائق مضت, kha9009lid said:

جرب المرفق

وقبل الطباعة اخذف النسخة المحفوظة مسبقا

A_Library1.rar 449.52 kB · 1 تنزيلات

جزاك الله خيرا اخى خالد

10 دقائق مضت, kha9009lid said:

جرب المرفق

وقبل الطباعة اخذف النسخة المحفوظة مسبقا

A_Library1.rar 449.52 kB · 1 تنزيلات

جزاك الله خيرا اخى خالد

[أبوبسمله]

قمت بالتعديل ايضا ع المرفق الذى به الخطأ 2501 عند الغاء الاجراء

ارجو رؤيه التعديلات اخوانى واساتذتى @jjafferr و @kha9009lid  وهل هناك ملاحظات

جزاكم الله خيرا

Private Sub f1_Click()

On Error GoTo Err_f1_Click
Dim X As String
X = Me.ZTeacher2.Column(0) & ".pdf"
If Len(Dir(CurrentProject.Path & "\" & X, vbDirectory)) <> 0 Then
  
    If MsgBox("هناك ملف محفوظ من قبل هل تريد استبداله", vbYesNo + vbDefaultButton2 + vbMsgBoxRight, "تنبيه") = vbNo Then
        DoCmd.CancelEvent
    Else
        DoCmd.OutputTo acOutputReport, "تقرير المصروفات فردي1", "PDFFormat(*.pdf)", CurrentProject.Path & "\" & X
    End If

Else
     DoCmd.OutputTo acOutputReport, "تقرير المصروفات فردي1", "PDFFormat(*.pdf)", CurrentProject.Path & "\" & X
     
Exit_f1_Click:
    Exit Sub

Err_f1_Click:
    If Err.Number = 2501 Then
        Resume Next
    Else
        MsgBox Err.Description
        Resume Exit_f1_Click
    End If
End If
End Sub

 

A_Library1_1.rar

[عفرنس]

8 دقائق مضت, أحمد الفلاحجى said:

قمت بالتعديل ايضا ع المرفق الذى به الخطأ 2501 عند الغاء الاجراء

ارجو رؤيه التعديلات اخوانى واساتذتى @jjafferr و @kha9009lid  وهل هناك ملاحظات

جزاكم الله خيرا

Private Sub f1_Click()

On Error GoTo Err_f1_Click
Dim X As String
X = Me.ZTeacher2.Column(0) & ".pdf"
If Len(Dir(CurrentProject.Path & "\" & X, vbDirectory)) <> 0 Then
  
    If MsgBox("هناك ملف محفوظ من قبل هل تريد استبداله", vbYesNo + vbDefaultButton2 + vbMsgBoxRight, "تنبيه") = vbNo Then
        DoCmd.CancelEvent
    Else
        DoCmd.OutputTo acOutputReport, "تقرير المصروفات فردي1", "PDFFormat(*.pdf)", CurrentProject.Path & "\" & X
    End If

Else
     DoCmd.OutputTo acOutputReport, "تقرير المصروفات فردي1", "PDFFormat(*.pdf)", CurrentProject.Path & "\" & X
     
Exit_f1_Click:
    Exit Sub

Err_f1_Click:
    If Err.Number = 2501 Then
        Resume Next
    Else
        MsgBox Err.Description
        Resume Exit_f1_Click
    End If
End If
End Sub

 

A_Library1_1.rar 564.43 kB · 0 تنزيلات

أخي  @أحمد الفلاحجى.. لماذا إذا ضغطت زر معاينة قبل الطباعة يعطيني رسالة لا يوجد بيانات يمكن طباعتها ؟؟ علما البيانات موجودة .. 

فيه شي أثر على شيء  . 

[أبوبسمله]

اها معلش اخى فايز

عدله من Me.ZTeacher2.Column(1)  الى Me.ZTeacher2.Column(0)

Private Sub Command14_Click()
On Error GoTo Err_Command14_Click

    Dim stDocName As String
Me.Visible = False
'    stDocName = "مجموع المصروفات لكل معلم"
'    DoCmd.OpenReport stDocName, acPreview
DoCmd.OpenReport "مجموع المصروفات لكل معلم", acViewPreview, , "Teacher = '" & Me.ZTeacher2.Column(0) & "'"

Exit_Command14_Click:
    Exit Sub

Err_Command14_Click:
    MsgBox Err.Description
    Resume Exit_Command14_Click
    
End Sub

بالتوفيق اخى فايز

[عفرنس]

@jjafferr @kha9009lid @أحمد الفلاحجى 

الحمد لله رب العالمين 

أساتذتي الفضلاء شكر الله لكم .. أصبحت الأمور على خير ما يرام .. 

 

[kha9009lid]

بالتوفيق اخي والشكر لله سبحانه ثم لاخي الاستاذ @أحمد الفلاحجى جزاه الله خير

[أبوبسمله]

6 دقائق مضت, kha9009lid said:

بالتوفيق اخي والشكر لله سبحانه ثم لاخي الاستاذ @أحمد الفلاحجى جزاه الله خير

الشكر لله ثم لكم اخوانى واساتذتى @kha9009lid و @Shivan Rekany و @jjafferr جزاكم الله خيرا

 

[Shivan Rekany]

في ٦‏/٤‏/٢٠٢٠ at 09:26, jjafferr said:

اخي @Shivan Rekany طالت الغيبة ، والحمدلله شفنا لط طلّه 🙂

نعم اخي الحبيب

تمنيت تن تحصل على الوقت لكي اجلس على النيت وافتح الموقع لكن ماكان بيدي الوقت

لكن حصلنا الوقت بسبب وباء كورونا

اللهم اشفي كل مريض

تحياتي لكم جميعا

تم تعديل أبريل 8, 2020 بواسطه Shivan Rekany

[أبوبسمله]

1 دقيقه مضت, Shivan Rekany said:

نعم اخي الحبيب

تمنيت تن تحصل على الوقت لكي اجلس على النيت وافتح الموقع لكن ماكان بيدي الوقت

لكن كما يقول مصائب قوم عند قوم فوائد ... 🤭 حصلنا الوقت بسبب وباء كورونا

اللهم اشفي كل مريض

تحياتي لكم جميعا

اللهم آمين وعافانا الله واياكم وجميع المسلمين ونسال الله الهدايه لنا ولجميع البشر