مشكلة في قيمة متغير عند الطباعة

[ابوخليل]

السلام عليكم

في المثال المرفق  :

عند فتح التقرير  للمعاينة ثم قفله  تبقى قيمة المتغير  ثابتة = 48

ولكن بمجرد  فتح التقرير للطباعة تصبح قيمة المتغير = صفر

ما السبب في ذلك ؟ ، وكيف يمكن الاحتفاظ بقيمة المتغير لما بعد الطباعة

Oq.rar

[jjafferr]

وعليكم السلام اخوي ابو خليل

 

برنامجك شغال 100% وحسب طلبك

 

جعفر

[صالح حمادي]

لم ألاحظ أي خطأ في المرفق

البرنامج عندي يشتغل عادي

[Shivan Rekany]

السلام عليكم ورحمة الله وبركاته

عند فتح البرامج وقبل ان نضغط على زر ( طبع ) و نضغط على زر ( قيمة المتغير ) النتيجة = 0

3 ساعات مضت, ابوخليل said:

عند فتح التقرير  للمعاينة ثم قفله  تبقى قيمة المتغير  ثابتة = 48

نعم سيكون النتيجة = 48

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

اي بدل هذا الكود

Private Sub zer1_Click()
rgm = DMax("Hrk_ID", "tblHaRas")
DoCmd.OpenReport "resarf", acViewPreview
End Sub

استخدمت هذا

Private Sub zer1_Click()
rgm = DMax("Hrk_ID", "tblHaRas")
DoCmd.OpenReport "resarf", acViewNormal
End Sub

وضغط على قيمة المتغير هم بيطلع النتيجة = 48

اي لا ارى اي مشكلة

 

[ابوخليل]

الاستاذ جعفر والاستاذ صالح اجابتهم مختصرة  

والاستاذ شفان جابها بالتفصيل

طيب انا عندي اذا كان الامر طباعة تنقلب قيمة المتغير الى صفر 

 

[ابوخليل]

توصلت للمشكلة وحلها

المشكلة في الخطأ الحاصل ، والغريب ان هذا الخطأ يمسح الذاكرة

والحل هو معالجة الخطأ  بكود من صناعة اكسس :

On Error GoTo Errx_Click
rgm = DMax("Hrk_ID", "tblHaRas")
    Dim stDocName As String
    stDocName = "resarf"
    DoCmd.OpenReport stDocName, acNormal
Exitx_Click:
    Exit Sub
Errx_Click:
    MsgBox err.Description
    Resume Exitx_Click

لاني في مثالي السابق  استخدم فقط سطر امر الطباعة فقط

ولاحظت ان هذا قد يحدث في بعض الاحيان بسبب او بآخر من أكسس والداليل انه عندكم  لم يظهر

[Shivan Rekany]

20 ساعات مضت, ابوخليل said:

توصلت للمشكلة وحلها

والحمد لله

20 ساعات مضت, ابوخليل said:

المشكلة في الخطأ الحاصل ، والغريب ان هذا الخطأ يمسح الذاكرة

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

 

20 ساعات مضت, ابوخليل said:

والحل هو معالجة الخطأ  بكود من صناعة اكسس :

هذا جيد

ونشكرك

 

[jjafferr]

السلام عليكم

 

وهذه اجابتي بالتفصيل:

عملت زر للطباعة

.

واكواد النموذج اصبحت

Private Sub cmd_print_Click()
    
    DoCmd.OpenReport "resarf"
End Sub

Private Sub zer1_Click()
rgm = DMax("Hrk_ID", "tblHaRas")
'DoCmd.OpenReport "resarf", acViewNormal
DoCmd.OpenReport "resarf", acViewPreview
End Sub


Private Sub zer2_Click()
text1 = rgmharaka()
End Sub

.

وعملت التالي:

معاينة ، قيمة المتغير = 48 ، طباعة ، قيمة المتغير = 48 ،

فارسلت لك الرد ، بأن برنامجك شغال 100% وحسب طلبك

 

اما الآن ، فاستعملت كودك ، والنتائج نفسها

ولا ارى ان المشكلة في الكود !!

خليني انزل مرفقك الجديد واجرب فيه ، واعود لك ان شاء الله

 

--------------------------------------------------------------------------------------------------------

اخوي ابو خليل ، القيت نظرة على الرابط ، واذا به مقطع فيديو ،

وكنت تحاول فيه حفظ مقطع صوتي ، وعند إلغائه تطلع لك رسالة خطأ .

 

اذا كنت تعتمد على احد مكتبات الاكسس الخاصة (يعني غير المتداولة يوميا) ، او استخدمت شيء من هذا القبيل: Public Web As Object في وحدة نمطية ،

وفي حدث "تحميل النموذج" عملت كود كالتالي:

Set Web = Me.objIE.Object

فالقيمة ستكون في البرنامج ، ولكن حالما تظهر لك رسالة الخطأ ، فالقيمة تُحذف من الذاكرة ، إلا اذا عالجت اصطياد الخطأ برمجيا (يعني البرنامج يتعامل معه انه لا يوجد خطأ ولا يتوقف الكود) 

 

جعفر

[ابوخليل]

منذ ساعه, Shivan Rekany said:

والحمد لله

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

النافذة تظهر لان الطابعة هي طابعة وندوز  وانا اطبع التقرير كصورة

اقتباس

خوي ابو خليل ، القيت نظرة على الرابط ، واذا به مقطع فيديو ،

وكنت تحاول فيه حفظ مقطع صوتي ، وعند إلغائه تطلع لك رسالة خطأ .

هذا برنامج تسجيل سطح المكتب وكنت اسجل خطوات العمل من اجل اريكم النتيجة  والمشكلة الحاصلة

ورسالة الخطأ كانت تظهر ولم  اهتد لسببها او مصدرها من الأمس الا بعد رفع الفيديو الساعة

النتيجة :

اولا : ان اي خطأ  يحصل  ما لم تضع له معالجة داخل الحدث فإنه سيتسبب في محو قيم المتغيرات من الذاكرة

ثانيا : سبب ظهور الخطأ عند الطباعة  هو وجود مستند آخر مطبوع  وعالق في الذاكرة اي لا يمكن استبداله او حذفه

فانا عند الحفظ في مربع الحوار  اوافق على اللصق والاستبدال فهنا يحصل التعارض

كلامكم في محله ان المثال لا يوجد به مشكلة

شكرا لكم احبتي وجزاكم الله خيرا