ابوخليل

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

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

من اجل الخروج من الحدث بعد الرسالة لا بد تكتب امر انهاء الاجراء جرب عدل واكتب العبارة 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

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

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

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

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

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

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

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

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

السلام عليكم ورحمة الله اخواني الاكارم : يكثر طرح اسئلة حول النسخ الاحتياطي او نسخ الملفات ونقلها من مكان الى آخر وتغيير اسمها ولا شك ان المنتدى يزخر بالكثير من الامثلة وحيث ان غالب الامثلة تشتمل على كائنات واكواد طويلة يصعب فهمها على المتعلم المبتدىء ؛ اليكم مثالا مختصرا صغيرا يفي بالغرض ويقوم بالمهمة . التطبيق يشتمل على قاعدة بيانات وبجانبها قاعدة الجداول ومجلد للحفظ نسخ قاعدة الجداول جديد.rar

?

حبيبنا ابو ياسين الكود السابق : CopyFile CurrentProject.path & "\db1.mdb", "D:\Data.txt" ينسخ الملف اللذي بجنب قاعدة البيانات والذي اسمه db1.mdb الى قرص D بمسمى آخر وبامتداد آخر يمكنك تسميه بالذي تريد وحتى بدون امتداد وبهذه الصفة : CopyFile "C:\db1.mdb", "D:\Data.mdb" ينسخ من مكان الى مكان آخر وبمسمى مختلف

عذرا .. لم افهم شي

طريقة عمل المبرمج الصحيحة وتجنب المتاعب : اولا يجب تقسيم قاعدة البيانات الى : 1- واجهات 2-قاعدة خلفية تشتمل على الجداول من المتعارف عليه غالبا ان القاعدة الخلفية (الجداول) غير قابلة للتحديث ومن غير المتصور ان يجرى عليها اي تعديل لذلك يحسن بالمبرمج ان يزيد في الجداول بعض الحقول التي يتوقع الحاجة اليها مستقبلا خاصة اذا كان البرنامج طور الاستخدام لاول مرة والا فإن الاصل عدم المساس بقاعدة البيانات اما الواجهات فيمكن التحديث يوميا بالزيادة و النقص والتنسيق ونحوة كزيادة تقارير او نماذج ولا حرج ، وفي النهاية ترسل الى المستخدم ليلصقها في مجلد البرنامج ويوافق على اللصق والاستبدال .

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

هذه الدالة FileCopy تنسخ اي ملف من وجهة الى وجهة أخرى ولها معاملين : FileCopy path1,path2 مثال : CopyFile CurrentProject.path & "\db1.mdb", "D:\db1.mdb"

تفضل يمكنك بهذا الكود تصدير جدول محدد الى قاعدة بيانات اخرى وسيتم استبداله اذا كان بالمسمى نفسه DoCmd.TransferDatabase acExport, "Microsoft Access", "d:\b.mdb", acTable, "tbl2", "tbl2", False