تغيير تاريخ الطباعة من التقرير الى حقل فى النموذج

[محمد احمد لطفى]

فى هذا النموذج عند الطباعة يظهر مربع حوارى لادخال شهر الطباعه أريد تغييره الى خلية فى النموذج .

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

 

Test Print 1001.rar

[kanory]

استبدل هذا الجزء ....

Vl = InputBox("ادخل التاريخ")

بهذا الجزء ......

Vl = Forms!test1!tx4

 

[محمد احمد لطفى]

جزاك الله خيراُ أستاذى @kanory

يظهر خطأ

 

[Moosak]

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

جزاك الله خيراُ أستاذى @kanory

يظهر خطأ

 

اسم التقرير مكتوب خطأ  تأكد من كتابته بشكل صحيح 🙂 

[محمد احمد لطفى]

أستاذ @Moosak

مكتوب صح 

 

Test Print 1001.rar

 

 

عملت 
On Error Resume Next

طبع النموذج نفسه
 

5-2022.pdf

تم تعديل يونيو 15, 2022 بواسطه محمد احمد لطفى

[kanory]

منذ ساعه, محمد احمد لطفى said:

جزاك الله خيراُ أستاذى @kanory

يظهر خطأ

 

امسح اسم التقرير الموجود في الكود واعد كتابته لان به مسافة غير مرئية

ولا يكثر من استخدام
On Error Resume Next

[محمد احمد لطفى]

اسم التقرير مكتوب صح 

لما أغير 

 

Vl = Forms!test1!tx4

 

الى 
 

Vl = InputBox("ادخل التاريخ")

 

بيشتغل

[محمد احمد لطفى]

[Moosak]

23 ساعات مضت, Moosak said:

اسم التقرير مكتوب خطأ  تأكد من كتابته بشكل صحيح 🙂

[محمد احمد لطفى]

تم تغير الاسم وو مازلت المشكلة قائمة

[Moosak]

55 دقائق مضت, محمد احمد لطفى said:

تم تغير الاسم وو مازلت المشكلة قائمة

شغالة معي تمام .. 👍🏼

فقط أضف هذين السطرين لزر الطباعة :

Private Sub أمر43_Click()

If IsNull(Me.tx3) Or Me.tx3 = "" Then: MsgBox "يرجى كتابة عدد النسخ": Me.tx3.SetFocus: Exit Sub
If IsNull(Me.tx4) Or Me.tx4 = "" Then: MsgBox "يرجى كتابة التاريخ": Me.tx4.SetFocus: Exit Sub

DoCmd.OpenReport "Q1", acViewPreview, , , acHidden
DoCmd.PrintOut , , , , [tx3]
    
End Sub

 

[محمد احمد لطفى]

جزاك الله خيراً أستاذى @Moosak 

[Eng.Qassim]

بصراحة لم افهم شيئا استاذ @محمد احمد لطفى

ماهي علاقة التاريخ الذي تدخلة للطباعة بالتاريخ الموجود في Q1

انا حاولت ادخل تاريخ اليوم للطباعة فيظهر لي خطأ لان التاريخ غير موجود في استعلام Q1

ربما لاني لم اتجول بالبرنامج

[محمد احمد لطفى]

أستاذى @Eng.Qassim

كذلك فى برنامجى لا يعمل حتى الان 

المقصود بتاريخ الطباعة تاريخ الشهر اذا كتبت 5-2022 سيظهر السجلات فى شهر 5 سنة 2022 الموجودة فى النموذج فقط 

حاولت العمل على نموذجى و مازال يأتى رسالة خطأ 2501 

* الاكواد الى فى النموذج 
1 - ملى تلقائى للسجلات فى النموذج
2 - صفحة فارغة بين كل صفحتين

تم تعديل يونيو 16, 2022 بواسطه محمد احمد لطفى