ابوخليل

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

السموحة اخوي موسى اذاً هي للمطورين زادكم الله علما ونفع بكم

انا جربت المثال : يعمل على أكمل وجه وبدون أخطاء العمل جميل واحترافي وفيه الكثير من الافكار والفوائد ولكن لي وجهة نظر .. حول الحاجة الفعلية العملية لمثل هذه الأفكار . بعيدا عن الكثير من الادوات ارى لو تم تصميم المثال على النحو التالي : - استبعاد الكثير من الادوات غير الضرورية من نماذج وغيرها والاكتفاء بنموذج واحد هو نموذج البداية ( الدخول ) فقط فقط على اساس ان الامثلة تعليمة ميسرة - الاكتفاء بقاعدة بيانت خلفية واحدة تكون بجانب الواجهات ويتم الارتباط بها آليا عند تشغيل البرنامج كل مرة يقلع فيها البرنامج - تعديل النسخة الاحتياطية بحيث تكون عبارة عن تاريخ وووقت ( Now ) فقط كرقم مثل هذا التنسيق : 202607080253 .. السنة والشهر واليوم والساعة والدقيقة ... ويمكن تركها كتاريخ صريح على نموذج البداية اربعة ازرار : النسخة الاحتياطية / الارتباط بآخر نسخة / الارتباط بنسخة محددة / العودة أو الارتباط بالنسخة الاساسية عند اختيار الارتباط بآخر نسخة يبحث اكسس في مجلد النسخ عن آخر تاريخ ويرتبط بها عند اختيار الارتباط بنسخة محددة يفتح مربع الحوار على مجلد النسخ لاختيار القاعدة المناسبة عند اختيار العودة يرتبط اكسسس بالقاعدة الاساسية التي بجانبه هذه الازرار يمكن نقلها لأي مكان يراه المبرمج .. ولكني في البداية قلت انه مجرد مثال تعليمي مبسط .. وعلى اعتبار غالب برامج اكسس تعتمد على قاعدة جداول واحدة

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

بحول الله وقوته ولطفه .. تروح وترجع بالسلامة .. وبعيون زرقاء اليمامة

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

شكرا لك استاذنا ومعلمنا القدير ولكننا نريد حلا نموذجيا افضل .. والتعديل على عملك الأول الجميل .. بدون الاستعانة بالتقارير الفرعية

مشاركة مع اخي ابو البشر تفضل تم التعديل وتحقيق مطلبك Database2.rar

جزاك الله خيرا .. جبرت بخاطر اخيك

أدبا .. العمل لك ؟ ومن اناملك يكون اجمل

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

في مقطع الجنس اليست هي التي تفصل الذكر عن الأنثى ؟ ( بحكم ان العمود صفحة مستقلة ) هذا ما لفت انتباهي ام ان المسؤول غير ذلك ؟

do not keep Group togther

تم معالجة المسألة بحيلة ارجاع مقطع التفصيل الى = صفر rpt.Section(acDetail).Height = 0 المرفق ادناه تطبيق للكود اعلاه تم ايقاف الاجراء الخاص بالتعديل على النموذج والاكتفاء بما يخص التقارير استخدمت مكتبة وورد من اجل جلب جميع خطوط النظام لذا نلاحظ بطأ قليلا عند فتح الفورم ... وعلاجه هو في عمل دالة خاصة يتم فيها انتقاء خطوط حسب الرغبة وقابلة للاضافة والحذف xsaadx4.rar

نعم استاذي هو ما تفضلت به ولكن باستبعاد استخدام Api ودوشة 32 و 64 حتى لو اردنا عرض جميع خطوط النظام فمكتبة وورد تفي بالغرض هذه الدالة لوحدها تكفي على النحو التالي .. ولكن مسألة ارتفاع الحقل بحاجة الى اعادة نظر حسب تصوري لمراعاة مقطع التفصيل عند التصغير والتكبير يعني اعتقد يجب ان يكون هناك توافق طردي بينهما Sub ApplyGlobalFormatting(ByVal MyFont As String, ByVal MySize As Integer, ByVal RowHeight As Integer) Dim db As DAO.Database Dim doc As DAO.Document Dim frm As Form Dim rpt As Report Dim ctl As Control Set db = CurrentDb On Error Resume Next '---------------------------------------------------- For Each doc In db.Containers("Forms").Documents DoCmd.OpenForm doc.Name, acDesign, , , , acHidden Set frm = Forms(doc.Name) For Each ctl In frm.Controls If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Or ctl.ControlType = acListBox Or ctl.ControlType = acLabel Then ctl.FontName = MyFont ctl.FontSize = MySize End If ctl.Height = RowHeight Next ctl DoCmd.Close acForm, doc.Name, acSaveYes Next doc '------------------------------------------------------- For Each doc In db.Containers("Reports").Documents DoCmd.OpenReport doc.Name, acDesign, , , acHidden Set rpt = Reports(doc.Name) For Each ctl In rpt.Controls If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Or ctl.ControlType = acLabel Then ctl.FontName = MyFont ctl.FontSize = MySize End If ctl.Height = RowHeight Next ctl DoCmd.Close acReport, doc.Name, acSaveYes Next doc Set db = Nothing End Sub '---------------------------------------------------- Private Sub btnApply_Click() Call ApplyGlobalFormatting(Me.cmbFonts.Value, Me.txtSize.Value, Me.txtHeight.Value * 567) MsgBox "تم تطبيق التنسيقات بنجاح!", vbInformation End Sub