محمد طاهر عرفه

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

على فكرة انا وضعت البرنامج على network drive وجعلت مجلد للبيانات وبه الجداول وجلد آخر للنماذج البيانات فقط هي التي تكون موجودة علي مجلد فى الشبكة أما البرنامج أو الواجهة فتكون علي جهاز كل مستخدم علي حدة و يتم توجيه البيانات الي المجلد ال shared علي الشبكة أي لو عدد 7 مستخدمين ، يكون فيه 7 نسخ من الواجهة علي جهاز كل منهم ، مع نسخة بيانات واحدة فقط علي الشبكة و الجميع يوجهون مسار الجداول المرتبطة اليها

أهلا بك و في انتظار مشاركاتك دائما :d

موقع MS-Access-SQL.Advisor الرابط http://www.advisor.com/dMSAccess001.nsf التعليق منتدي متخصص فى الاكسس و الاس كيو ال

منتدي Tek-Tips Forums for computer professionals الرابط http://www.tek-tips.com/gthreadminder.cfm/.../lev2/4/lev3/27 التعليق منتدي يحوي الأكسس و برامج أخري

منتدي Access VBA central الرابط http://www.accessvba.com/ التعليق منتدي للمستوي المتقدم فى الاكسس

موقع طوني Tony's Main Microsoft Access Page الرابط http://www.granite.ab.ca/accsmstr.htm التعليق أمثلة فى الاكسس و أسئلة متكررة

موقع طوارئ الاكسس الرابط http://www.access-emergency.com/infoe.htm التعليق ماذا تفعل فى حالات عطب قاعدة البيانات و الطوارئ مجموعة من المشاكل و الاخطاء و حلولها و الموقع أيضا يقدم خدمات مدفوعة للمساعدة فى ذلك و مواقع أخري تقدم خدمة المساعدة فى استعادة البيانات http://www.pksolutions.com/services.htm و http://www.repair-access-database.com/ ((( لم أجرب أي منها و لا أعرف مدي مصداقيتها )))

موقع Compuserve ACCESS Design Tips & Code الرابط http://ourworld.compuserve.com/homepages/a...tac-cg/ATip.htm التعليق أمثلة و أسئلة و فوائد و أكواد

موقع روجرز Roger's Access Library الرابط http://www.rogersaccesslibrary.com/ التعليق مئات الامثلة الرائعة لمختلف الاصدارات

موقع Allen Browne's Database and Training for small business and not-for-profit groups الرابط http://users.bigpond.net.au/abrowne1/ و تحديدا http://users.bigpond.net.au/abrowne1/tips.html التعليق موقع لأحد خبراء الأكسيس يحوي أسئلة متكررة و فوائد

موقع جامعة بريستول الرابط http://www.bris.ac.uk/is/services/software...ackages/access/ التعليق صفحة تحوي شروحات و أمثلة

الموقع موقع ميكروسوفت الأسئلة المتكررة http://support.microsoft.com/default.aspx?...d=fh;EN-ME;FAQS قسم الاكسس بال msdn ( شبكة المطورين ) http://msdn.microsoft.com/library/default....tentid=28001718 و من اليسار تحدد الاصدار Access Support Center http://support.microsoft.com/default.aspx?...id=fh;en-us;acc MSDN Code Center http://msdn.microsoft.com/code/ أوفيس 2003 بالعربية http://office.microsoft.com/OfficeUpdate/d...?displaylang=EN التعليق أسئلة متكررة ، أكواد ، ...أمثلة للتنزيل ، .. موقع غني عن النعريف :pp:

تم نقل شرح وضع البرنامج علي الشبكة الي الموضوع المذكور رابطه أعلاه و ذلك لفصل الموضوعان مع تحياتي

يتم نقل جميع الجداول الي ملف قاعدة بيانات منفصل ، يكون به الجداول فقط ، و سنسميه ملف البيانات و ملف آخر به باقي الكائنات و سنسميه ملف الواجهة و يتم تشغيل البرنامج عن طريق عمل ربط للجداول الموجودة فى ملف البيانات الي قاعدة ملف الواجهة و ذلك باختيار اطار الجداول من ملف الواجهة ثم نختار Link Tables و نختار جميع ملفات ملف البيانات و عملية الربط و اعادة التوجيه ، يمكن عملها بطريقة آلية ، كنا سيأتي لاحقا و لنشر التطبيق علي شبكة ، يكون لدينا ملف بيانات واحد موجود فى مكان ما علي الشبكة الداخلية و يستحسن أن يكون علي جهاز الخادم و لكن هذا ليس ضروريا انما يجب وضعه فى جهاز و جعل المجلد shared لجميع المستخدمين المطلوبين علي الشبكة ثم نقوم بالريط أولا يدويا للتجربة قبل أن نشرح الربط الآلي و ذلك بانك من علي جهاز المستخدم تقوم بعمل Link Tables كما ذكرنا لجميع الملفات الموجودة فى ملف البيانات و بذلك سيعمل التطيبق معك كاملا و يكون لدينا عدد ملفات واجهة بعدد المستخدمين ـ و كلهم يتعاملون مع ملف بيانات واحد حسنا ـ و اذا كان لدينا أكثر من ملف بيانات علي جهاز الخادم و نريد تغيير التوجيه اليها من وقت لآخر مثلا يوجد نسخة باك لملف البيانات لكل شهر و تريد طباعة تقرير بناء علي البيانات التي تم حفظها بتاريخ الشهر الماضي ـ، و التي تم تحديث أجزاء منها هذا الشهر و لكنك تريد القديمة :pp: أو الي نسخة احتياطية من الملف أخذتها بالأمس مثلا فأيضا سنبدأ بالطريقة اليدوية ، و هي ما أن تمسح جميع الجداول المرتبطة من ملف الواجهة الي ملف بيانات الشهر الحالي و تعيد الربط الي ملف الشهر الماضي أو أن تذهب الي tools database utitlities LinkedTable manager و تغير وصلات الارتباط و هذا بالطيع يمكن عمله بطريقة آلية ، بطرق كثيرة أحدها الموجودة فى قسم الخلاصة فى هذا الموضوع النسخ الاحتياطي / التصدير / تغيير المسار و كل المطلوب هو كتابة اسم الجداول المطلوب تغيير الرابط ها فى الجدول ( قد لا تكون كل الجداول ) ، ثم اختيار رابط القاعدة المراد التوجيه اليها بالنقر المذدوج علي مربع النص فى النموذج مع تحياتي

هذا الرد لأبو حمود لتنفيذ الموضوع بالكود و يتناول شقين الأول الجمع لكل صفحة على حده و الثاني نقل مجموع الصفحة إلى التي بعدها ( ما قبله ) وفى آخر صفحة محموع الصفحات كلها . بالنسبة للشق الأول من السؤال فهذه إجابته : كود لحساب مجموع رقمي لكل صفحة في تقرير ضع الكود التالي في الوحدة النمطية الخاصة بالتقرير: Option Compare Database Option Explicit Public PageSum As Double Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer) PageSum = 0 End Sub Private Sub تفصيل_Print(Cancel As Integer, PrintCount As Integer) PageSum = PageSum + Reports![اسم التقرير]![اسم الحقل المطلوب جمع بياناته] End Sub أنشى في مقطع تذييل الصفحة مربع نص وسمه txtPageTotal واجعل مصدر عنصر التحكم له : =[ PageSum] بخصوص سؤال الشق الثاني فقد قمت بتجارب حتى وصلت لما أظنه جواب له : 1- في مقطع رأس الصفحة أنشئ مربع نص واجعله مباشرة فوق حقل المبلغ الموجود في مقطع تفصيل واجعل مصدر مصدر عنصر التحكم له : =[PagePreviousSum] 2- في مقطع تذييل الصفحة أنشئ مربعي نص أحدهما باسمtxtPageTotal والآخر باي اسم لايهم ، واجعل مصدر عنصر التحكم للأول : =[PageSum] وللثاني : =[Total]+[txtPageTotal] وفي الوحدة النمطية الخاصة بالتقرير ضع : Option Compare Database Public PagePreviousSum As Double Public PageSum As Double Public Total As Double Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer) PageSum = 0 If Me.Page = 1 Then PagePreviousSum = 0 Total = PagePreviousSum End Sub Private Sub تفصيل_Print(Cancel As Integer, PrintCount As Integer) PageSum = PageSum + Reports![اسم التقرير]![اسم حقل المبلغ] PagePreviousSum =اسم مربع النص ' ضع اسم مربع النص بي [] اذا كان به مسافة End Sub لقد جربت الكود على 21 صفحة مليئة بالأرقام وتنقلت بينها وكانت النتيجة صحيحة . بالنسبة لمربع النص المسمى txtPageTotal فهو يظهر مجموع المبالغ في الصفحة دون أن يجمع معها المجموع السابق فإذا كنت في غير حاجة إليه فقم بإخفائه .

النسخ و اللصق يؤدي الي نسخ الملعلومات أما الربط فلا يوجد ربط مباشر بالمعني المفهوم علي حد علمي و لكن يمكن استخدام اسلوب إدراج الكائنات: insert object Microsoft Excel Work sheet أو من علامةالتبويب الاخري Tab المسماة Create From File تختار ملف الاكسيل و تختار link to file

الملف المرفق به خلاصة عديد من المشاركات التي تمثل خلاصة حول تقويم أم القري و التقويم الهجري و التي قام بتجميعها الأخ حارث و تلاها اضافة الملف umalqura_update.zip كتحديث من الأخ ابوهادي لمشاركته و قد أضفته أيضا الي الملف المرفق UmAlQura_harith.rar

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

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

فهرس الدورة من هنا

هذا مثال من موقع أجنبي يقدم الحل بطريقتين NumberedQuery2k.zip

موقع Trevors MS Access FAQ الرابط : http://easyweb.easynet.co.uk/~trevor/AccFAQ/ التعليق : موقع يحوي العديد من الأمثلة و الاكواد و الاسئلة المتكررة

منتدي DBforums الرابط http://www.dbforums.com/ التعليق : منتدي ضخم به قسم كبير للأكسس و أقسام كثيرة أخري منها الاكسيل و ال Microsoft SQL Server

منتدي Database Journal الرابط http://forums.databasejournal.com/forumdis...y.php?forumid=2 التعليق : منتدي به قسم صغير للأكسس و أقسام أخري مفيدة منها قسم للاس كيو ال و آخر لتصميم قواعد البيانات