اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

السلام عليكم

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

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

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

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

Oq.rar

  • Like 1
قام بنشر

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

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

  في 9‏/1‏/2018 at 09:58, ابوخليل said:

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

Expand  

نعم سيكون النتيجة = 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

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

 

قام بنشر

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

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

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

 

قام بنشر

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

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

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

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

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

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

  • Like 1
قام بنشر
  في 9‏/1‏/2018 at 13:52, ابوخليل said:

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

Expand  

والحمد لله

  في 9‏/1‏/2018 at 13:52, ابوخليل said:

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

Expand  

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

 

  في 9‏/1‏/2018 at 13:52, ابوخليل said:

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

Expand  

هذا جيد

ونشكرك

 

قام بنشر

السلام عليكم:smile:

 

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

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

858.Clipboard01.jpg.2f9413382f674ad376dfa2ed0f0ef896.jpg

.

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


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% وحسب طلبك:smile:

 

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

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

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

 

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

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

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

 

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

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

Set Web = Me.objIE.Object

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

 

جعفر

قام بنشر
  في 9‏/1‏/2018 at 14:01, Shivan Rekany said:

والحمد لله

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

Expand  

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

  اقتباس

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

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

Expand  

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

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

النتيجة :

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

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

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

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

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

 

  • Like 2

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information