ابوخليل

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

توصلت للمشكلة وحلها المشكلة في الخطأ الحاصل ، والغريب ان هذا الخطأ يمسح الذاكرة والحل هو معالجة الخطأ بكود من صناعة اكسس : 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 لاني في مثالي السابق استخدم فقط سطر امر الطباعة فقط ولاحظت ان هذا قد يحدث في بعض الاحيان بسبب او بآخر من أكسس والداليل انه عندكم لم يظهر

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

السلام عليكم في المثال المرفق : عند فتح التقرير للمعاينة ثم قفله تبقى قيمة المتغير ثابتة = 48 ولكن بمجرد فتح التقرير للطباعة تصبح قيمة المتغير = صفر ما السبب في ذلك ؟ ، وكيف يمكن الاحتفاظ بقيمة المتغير لما بعد الطباعة Oq.rar

تمام واحيانا يكون الخلل بسبب نموذج او تقرير معين لذا يجب الملاحظة بدقة متى واين يحدث الخلل

رائع شكرا لك

لو ارفقت مثالا صغيرا للتطبيق لرجوت لك ان تحصل على اجابة وافية بالنسبة لي فانا استخدم كود تجاوز الخطأ داخل التقرير

معذرة .. اقصد بــ ايام العطل : يومي الجمعة والسبت

الاستاذ صالح يبدوا انه يفوتك بعض المتابعات ؛ هنا حاولت اناقش مع السائل بعض ما يفكر به ولكن يبدوا انه لم يعجبه النقاش فلم يرد وبادر بفتح هذا الموضوع

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

من اجل الخروج من الحدث بعد الرسالة لا بد تكتب امر انهاء الاجراء جرب عدل واكتب العبارة exit sub التي بين الرسالة ونهاية الشرط msgbox"لايوجد صورة" Exit sub End If

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

انا عدلت على الكود الموجود حيث استخدمت الدالة اعلاه للاستدلال على الايام وداخل الدوارة تمكنت من تجاهل يومي الجمعة والسبت وايضا عند تسجيل تاريخ البداية لا يسمح بتاريخ يوافق العطلة ولكني توقفت عند القيمة الكلية للدوران حيث استعصى التعديل عليها من داخل الدوارة بمعنى ان النتيجة ستظهر صحيحة ولكن ايام العطل ستكون ضمن الحسبة في الحقل F اي اذا اردت ان تسجل 10 ايام صافية يجب ان تعرف كم جمعة وسبت موجودة ضمنها ثم تضيفها الى العدد في الحقل F test4.rar

اخي الكريم لا تستخدم كلمات محجوزة في النظام خاصة Date تفضل تم عمل المطلوب :الدالة ادناه ترجع برقم اليوم داخل الاسبوع باعتبار الاحد=1 افتراضيا Weekday(date) انظر في مصدر بيانات النموذج الفرعي test2.rar

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

ابدا غير صحيح .. يجب ان تختفي تأكد تغير myPic الى اسم حقل الصورة عندك

On Error GoTo ErrHandler myPic.Picture = "E:\Qar2018\sd.JPG" ErrHandler: If err.Number = 2220 Then myPic.Picture = "" 'هنا يتجاهل المسار والصورة msgbox"لايوجد صورة" End If

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

هات كل اللي يجول في نفسك واشرح لنا الفكرة ليه تريد تحذف الجداول ؟ ما السبب ؟

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

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

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

يعني تريد مثل عمل كشوف المرتبات ؟ بحيث ممكن تبقى كما هي في الشهر القادم وقد يتغير بعضها

اجعل لكل صفحة نموذجا فرعيا او مصدرا يخصها

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