jjafferr

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

حياك الله 🙂 جعفر

هناك طريقتين: 1. اذا كانت الاسطر في الصورة متساوية ، ويمكن عمل المربع حول السطر ، وهذا المربع ينزل بعدد معين لكل سطر ، فيمكن تحريكه برمجيا / مثلا : نضبط المربع على السطر الاول ، ثم ننزله بالاسهم (Arrow keys down) الى ان يحتوي السطر الثاني (مثلا ضغطنا على السهم الاسفل 6 مرات) ، فيجب ان نضغط 6 مرات اخرى حتى نحتوي السطر الثالث ، وهكذا (ولكن وللأسف الاسطر في الصورة غير متساوية ، فلا يمكن استعمال هذه الطريقة ، 2. ان نعمل جدول خاص ، نكتب فيه رقم السطر (المثال على السطر 15) ، ونكتب قيمة TOP المربع ، نضع التقرير في وضع التصميم ، ثم نحركة بواسطة الاسهم ، ولما يحتوي المربع السطر ، نكتب رقم السطر وقيمة TOP ، وهنا يمكننا استخدام هذه الطريقة : . وهذه نتيجة الضغظ على "رقم التسجيل" 4 (للعلم ، جربت اللون الاصفر ولا يبرز ، فاستعملت اللون الاحمر) : . ولأن الصورة في قسم Page Header ، فيجب ان نعمل حدث "عند التنسيق" به : . و الكود في التقرير يأخذ قيمة TOP رقم التسجيل من الجدول ، ثم نضرب الرقم (رقمي بالبوصة * 1440 ، بينما لو كان رقمك بالسنتيمتر فيكون * 567 ) : Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer) Dim rpt_Top As Double Dim rpt_Name As String Dim myWhere As String rpt_Top = DLookup("[rTop]", "tbl_rpt_Rows", "rRow=" & rpt_Row) Me.Box5.Top = rpt_Top * 1440 End Sub . ونكون قد ارسلنا "رقم السجل" من النموذج الفرعي الى المتغير rpt_Row رقم سطر التسجيل : Private Sub أمر180_Click() 'Call MENUFORMS1991 Dim rpt_Name As String Dim myWhere As String rpt_Row = Me.[رقم التسجيل] rpt_Name = "تقرير1" myWhere = "" DoCmd.OpenReport rpt_Name, acViewPreview, , myWhere End Sub . جعفر 1298.سجل.accdb.zip

وعليكم السلام 🙂 ولو اني مالي علاقة بالتصميم ، ولكن سؤالي : 1. النموذج الرئيسي ، 2. ثم النموذج الفرعي1 Main2 ، 3. ثم النموذج الفرعي2 forma3 هل هناك سبب لعمل هذه النماذج الفرعية ؟ . اي معلومات تريد تلوينها ؟ اعطينا مثال. جعفر

بعد التثبيت ، ومن اي قاعدة بيانات : . وطريقة شرحها موضوع متجدد : أدوات مساعدة للتصميم مع الشرح - قسم الأكسيس Access - أوفيسنا (officena.net) جعفر

ما اعرف من وين جاءت هذه الاضافة على الكود !! تم تصحيح الوضع في المرفق هنا 🙂 جعفر 1297.1.2020.mdb.zip رجاء قراءة موضوع الرابط ، والروابط الموجودة هناك ، واذا عندك سؤال محدد ، فلا مانع 🙂 جعفر

اما اداة البحث /الاستبدال ، فيوجد لها شرح هنا جعفر

تفضل ، هذا المرفق : يتأكد ان النموذج swichboard مفتوح (لاحظ انني استخدمت الاسم الموجود في برنامجك) ، ويرسل له التاريخ ، ما دام النموذج swichboard مفتوح ، فيمكنك ان تفتح التقرير من اي نموذج شئت ، او حتى فتحه مباشرة بالنقر المزدوج عليه ، لما تغير التاريخ في اي نموذج ، فتلقائيا يتم تغيير التاريخ في النموذج swichboard . الحقل txtYear موجود 72 مرة في برنامجك : . جعفر 1297.1.2020.mdb.zip

وعليكم السلام 🙂 نعم ، جوابك ، هو قصدي مما قلته انا ، اما TempVars فهو موجود في الاكسس 2007 فما فوق ، وهو جدا مفيد واستعماله جدا سهل ، ولا يحتاج الى موديول لمناداته . جعفر

تفضل النسختين ، accdb و mdb 🙂 جعفر 1289.اوفيسنا.zip

1. وانا كذلك ، لا احبذ استخدامها ، ولكن "وللأسف" لما المبرمج يستخدم نماذج منبثقة ، فيقوم بإغلاق نموذج وفتح نموذج آخر ، فالكلام هنا ان لا تغلق النموذج الرئيسي ، وانما تجعله مخفي ، 2. لأن TempVars غير موجودة في الاكسس قبل 2007 (يعني اذا اكسس 2003 منصب على كمبيوترك ، فانه لا يعرف ما هو TempVars) ، وصيغة المرفق mdb ، مما يوحي ان الاكسس المنصب نسخة قبل 2007 🙂 3. نعم ممكن عمل موديول ، واعطاء القيمة للمتغير هناك ، ثم مناداة المتغير في كل كائنات الاكسس ، ولكن لا يمكن مناداة المتغير مباشرة في الاستعلام ، وانما يجب مناداته عن طريق موديول آخر 🙂 جعفر

هذا تكملة وتوضيح للطريقة التي اقترحتها انا 🙂 جعفر

يجب ان تضيف الحدث التالي في كل نموذج : وان تضيف حدث جديد في كل نموذج Private Sub txtYear_AfterUpdate() Forms!Swichboard!txtYear = txtYear End Sub . جعفر

صعب ان اساعدك بدون ان اعرف رقم الخطأ وتفاصيله !! ولكنه سيكون واحد من اثنين : إما النموذج الرئيسي swichboard غير مفتوح ، وإما ان قيمة الحقل txtYear في النموذج الرئيسي لا تقبل التحديث (الآن وقد ارفقت لنا هذا النموذج ، ارى 1. انك لم تنسخ txtYear الى نموذجك ، وانما الحقل عندك اسمه نص109 ، و 2. ان قيمة الحقل نص109 عندك هي =Year(Date()) اقتراحي لك: 1. التأكد من ان النموذج الرئيسي swichboard دائما مفتوح ، واذا لم تكن متأكد من ذلك ، فيجب ان تتأكد انه مفتوح برمجيا ، 1. انت تحذف جميع مصدر بيانات الحقل txtYear في النموذج swichboard ، بحيث يأخذ بياناته من النماذج التي ترسل التاريخ. جعفر

حتى يعمل البرنامج ، يجب التاكد ان النموذج Swichboard دائما مفتوح ، ولو مخفي 🙂 جعفر 1297.2020.mdb.zip

النموذج Swichboard غير موجود !!

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

الطريقة اللي استعملها انا : دائما يكون عندي نموذج رئيسي مفتوح ولا اغلقه ، فأضع الحقل txtYear هناك (مخفي) ، وارسل له القيمة من اي نموذج آخر ، والمعيار في الاستعلام او التقارير ن تشير الى هذا الحقل في النموذج الرئيسي ، وبهذه الطريقة ، لا يهم اي نموذج يفتح التقرير 🙂 جعفر

اذن عندك اختيارين : ان يكون النموذج FrmCcpReport مفتوح (حتى ولو في وضع مخفي) ، والحقل txtYear تكون فيه السنة ، ثم تفتح التقارير ، وعندد اغلاق التقارير تغلق النموذج ، او ان تغير المعايير ، فلا تشير لذلك النموذج القديم ، وانما تشير الى النموذج الجديد ، وتعمل فيه الحقل txtYear جعفر

وهل في الاستعلام معيار او قيمة تشير الى النموذج FrmCcpReport وفيه الحقل txtYear ، او قد تكون الاشارة من التقرير نفسه !! جعفر

وعليكم السلام كريمو 🙂 الظاهر ان الاستعلام مصدر بيانات احد التقارير فيه معيار يشير الى النموذج FrmCcpReport وفيه الحقل txtYear . جعفر

فيك الخير والبركة سيدنا الفاضل 🙂 واخواننا الصعايده على راسنا 🙂 جعفر

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

وعليكم السلام 🙂 هذا الكلام كله لا علاقة له بنسخة الاكسس التي قمت بتنصيبها على جهازك ، وانما له علاقة بصيغة قاعدة بياناتك ، accdb او mdb . نسخ الاكسس سابقا (الى النسخة 2003) كانت تستخدم نظام JET ، كانت تستخدم DAO بإصداراته ، برنامج منفصل عن النظام ، ولكن الاكسس من النسخة 2007 فأعلى ، يستخدم نظام ACE ، وقد دمج DAO في نظامه ، فبدلا عن اختيار DAO ، اختار Microsoft Office xx.x Access database engine Object Library كما هو موضح في الصورة (xx.x يعتمد على نسختك ، انا نسختي 2010 اي 14.0) ، اذا كانت قاعدة بياناتك بصيغة accdb : . بينما اذا كانت قاعدة بياناتك بصيغة mdb ، فـ DAO لا يزال موجود : . جعفر

اوامر نموذج عرض ورقة البيانات تختلف قليلا عن النماذج العادية ، فلا يوجد عرض للكائن ، ولكن يوجد عرض للعمود/الحقل : تنقر باليمين على العمود/الحقل ، ثم تختار Field Width ، فنرى ان امر العرض ليس width ، وانما ColumnWidth . بينما الارتفاع RowHeight ، لا علاقة له بالعمود/الحقل وانما بالنموذج الفرعي شخصيا : . وعلى هذا الاساس ، النموذج التالي : . يصبح . عندما يكون الامر : Private Sub أمر2_Click() 'ذا كان النظام عندك: ' 'بالسنتيمتر ، فيجب ان تضرب الرقم * 576 ' 'بالبوصة ، فيجب ان تضرب الرقم * 1440 ''من فوق Me.frm_2.Top = 0 * 1440 ' ''من اليسار Me.frm_2.Left = 0.199 * 1440 '1.7 ''العرض Me.frm_2.Width = 6.185 * 1440 ' ''الارتفاع Me![frm_2].Height = 1.7 * 1440 'Me.Refresh Me![frm_2]![nNumbers].ColumnWidth = 2.5 * 1440 Me![frm_2].Form.RowHeight = 0.75 * 1440 'Call أمر1_Click 'Me.Refresh End Sub جعفر