اذهب الي المحتوي
أوفيسنا

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

قام بنشر

السلام عليكم

لدي مشكلة حيرتني كثيرا . وهي عندما أريد طباعة تقرير عن طريق زر أمر في نموذج فإنه يغلق البرنامج مباشرة بعد إتمام عملية الطباعة . علما أني أعمل أمر الطباعة عن طريق المعالج ، وهذا في جميع النماذج لدي لجميع التقارير ، أعدت عمل أمر الطباعة عدة مرات بدون فائدة ، كتبت كود الطباعة بنفسي بدون فائدة ، يغلق البرنامج مباشرة ومع بعض النماذج يعطي رسالة " صادف أكسس مشكلة ............. هل تريد إرسال تقرير "

أرجو المساعدة ممن لديه حل لهذه المشكلة .

بقي ان اذكر أن معاينة التقرير ليس فيها أي مشكلة وعند الطباعة من المعاينة أو من التقرير مباشرة لا يكون هناك اي مشكلة .

المشكلة فقط عند الطباعة من النموذج

  • Thanks 1
قام بنشر

أخي الكريم لقد جربت الملف المرفق و لاحظت ما يلي:

باستعمال الأكسس 2003 فرنسي أي أنه عند الاطلاع على الأكواد فاٍن الأسماء المكتوبة بالعربية لا تقرأ أي تظهر علامات اٍستفهام عوض الحروف العربية, و مع ذلك اٍستغل الربنامج بصفة عادية رغم تكرار الطباعة أكثر من مرة لمحاولة اٍظهار الخطأ, و عليه الخلاصة المبدئية أنه يعمل عاديا على أكسس 2003

باٍستعمال أكسس xp يدعم العربية, ا{شتغل البرنامج عاديا في البداية و لكن مع تكرار الطباعة أكثر من مرة ظهرت المشكلة التي تحدثت عنها و يغلق التطبيق مباشرة بعد الطباعة.

حسب رأيي فاٍن السبب يعود اٍلى اٍستعمالك اللغة العربية في تسمية الحقول, ليس هذا فقط بل أنك تركت مسافات أكثر من مرة في التسميات, و هذا يخالف قواعد تصميم قواعد البيانات, فالمتفق عليه أنه عند تصميم قواعد البيانات فيجب اٍستعمال اللغة الأجنبية في تسمية الحقول و الجداول و لو بنطق عربي مثلا مدير يمكن أن نسمي ذلك ب: moudir و في حلة استعمال اٍسم مركب في التسمية مثلا نريد أن نسمي حقلا ما text name فالطريقة السليمة هي text_name أي عدم ترك أي فراغ بين التسميات و هذا لكي لا تعترض مشاكل عند تنفيذ الأكواد من طرف البرنامج.

اٍذا جرب اٍعادة تسمية الجداول و حقولها بالطريقة التي شرحتها لك و سوف لن تعترضك اٍن شاء الله أية مشكلة, و أستعمل خاصية تسمية توضيحية لاٍستعمال التسميات العربية.

أرجو أن أكون قد وضحت.

قام بنشر

اشكرك اخي الكريم على مشاركتك

وأنا معك في ان التسمية باللغة الانجليزية افضل من العربية ، لكني اختلف معك في انها هي سبب هذه المشكلة . فقد عملت برامج عديدة ولم تظهر هذه المشكلة . ولو كان كلامك صحيح لن يتم الفرز بصورة صحيحة وكذلك المعاينة والطباعة عند المعاينة .

وعموما قمت بتطبيق كلامك وغيرت اسماء الحقول والجداول إلى الانجليزية ومازالت المشكلة قائمة .

أرجو منك ومن الاعضاء اهل الخبرة مساعدتي في حل هذه المشكلة . فهي لا تزال قائمة . علما اني استخدم وندوز وافس اكس بي عربي

لكم مني جزيل الشكر

قام بنشر (معدل)

الأخ / أبو عبد الرحمن

لقد قمت بتنزيل وتجربة المثال المرفق ولم أصادف أى مشكلة فيه ... أنا أستخدم Office 2003 .... أعتقد أن المشكلة في الأوفيس لديك ... حاول تحميله مرة أخرى .

تم تعديل بواسطه Access XP
قام بنشر

أرجو من الاٍخوة الذين يستعملون office xp تجربة الملف لنتأكد من المشكلة, office 2003 أنه لا مشكلة به.

قام بنشر

لقد واجهتني المشكلة وأنا أستخدم أوفيس xp .

وقد حاولت جاهدا البحث عن المشكلة طبعاً قمت بتحويل الجداول والحقول إلى اللغة الإنجليزية - طبعاً باستخدام المترجم - وقمت بالتعديل على العلاقات لأن فيه أخطاء وكذلك قمت بسلخ القاعدة إلى قاعدة جديدة ومع ذلك لا زالت المشكلة تخرج لدي فعلاً الأمر غريب وربما نجد الحل عند أهل الخبرة في المنتدى .

وأرفق لكم البرنامج بعد التعديلات ..

bb1.rar

قام بنشر

الاخوة الكرام

تحية طيبة

وبعد فقد جرب البرنامج على الأفس 2000 و 2003 ولم تظهر لي المشكلة إطلاقاً

هذا لعلمكم

تحياتي

قام بنشر

حتى بعد التصحيحات التي قام بها الأستاذ فهد ما زالت المشكلة قائمة خاصة بالنسبة للطباعة مباشرة أي دون معاينة, خاصة بعد الضغط على زر الطباعة أكثر من مرة لطباعة نفس التقرير, أتذر أنني شاهدت أحد الاٍخوة يتحدث عن المشكلة هذه و قال أنه وجد الحل عن طريق الكود التالي و قد قمت بتجربته لكن دون نتيجة و مع ذلك أضعه للمناقشة لأنه يتضمن بعض الأخطاء و لكن ذوي الخبرة ربما يسيتجون حلا منه.

واجهتني هذه المشكلة وبداية تم التغلب على جزء منها بجعل التقرير يظهر PopUp فوق النماذج وبإستخدام زر الفأرة الأيمن يمكن طباعة التقرير ولكن عند توجيه التقرير للطباعة بشكل مباشر تحدث المشكلة التي تحدثت عنها وفي النهاية استخدمت هذا الإجراء لطباعة فاتورة ولم تظهر معي هذه المشكلة مرة أخرى

Sub PrintInvoice_Click()
Dim strDocName As String
strDocName = "Invoice"
Dim I As Integer
I = MsgBox("هل تريد معاينة التقرير ?", vbYesNo, strlbl)
If I = vbYes Then
DoCmd.OpenReport strDocName, acViewPreview, "Invoices Filter"
Else
DoCmd.OpenReport strDocName, acViewPreview, "Invoices Filter"
DoCmd.PrintOut acPrintAll
SendKeys "%{F4}", True
End If
End Sub

أى أن الحل هنا

DoCmd.PrintOut acPrintAll

SendKeys "%{F4}", True

يتم ارسال التقرير على الشاشة للعرض ثم ارساله للطابعة بشكل كمرحلة ثانية ثم غلق التقرير حتى لايشعر بوجوده المستخدم.

مع تحياتي

قام بنشر

الأكسس يغلق تلقائياً بعد طباعة التقرير لأن الخاصيه Pop Up (منبثق) تم تعينها الى Yes (نعم)

جرب تغير الخاصية الى NO (لا) سوف تجد التقرير يتم طباعته بدون مشاكل

اعتقد ذلك من عيوب أكسس 2002 والله اعلم

لأن هذه المشكله لا تحدث مع اكسس 2003

بالنسبة لي حينما اضطر بطباعة تقرير منبثق والجهاز مركب عليه اكسس 2002 .. أقوم بأحد حللين:

الأول : هو عمل نسخة أخرى من التقرير المنبثق ولكن اقوم بتغير خاصية الإنبثاق Pop UP الى No (لا)

وأقوم بطباعته مباشرةً

الثاني : هو عمل معاينه أولاً قبل الطباعة للتقرير ثم الطباعة عن طريق Ctrl+P (وهذا هو الحل الذي أستخدمه في معظم الأحيان)

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