jjafferr

اخي الفاضل ahsnko عنوانك مخالف : اصحاب الخبره : ( ترحيل بيانات حقل غير منضم الى جدول خاص به ) قسم الأكسيس Access Access هذا المنتدى مخصص لمشاركات الأكسيس قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف رجاء مراعاة هذه القوانين في المستقبل 🙂 جعفر

اخجلتونا يا جماعة 🙂 خلاص ، وبهذه المناسبة ، العشاء على حسابي الليلة ، والجميع مدعو 🙂 جعفر

استاذ اباجودي 🙂 انت سألت وحصلت اجابات على جميع اسالتك ، وبأمثلة 🙂 الى هنا وانتهى الموضوع 🙂 فأتى الدور ان أسأل انا واستفيد من كلمة قالها اخوي ابو ابراهيم سابقا ، ولم التفت لها حينها ، فسألته ، و رده كان على سؤالي 🙂 فقمت انت بالاستفسار عن هذه الجزئية الجديدة من رد اخوي ابو ابراهيم ، والجواب كان انه يستعمل الاستعلام العادي (والذي قد تكون فيه علاقة بين الجداول) كمصدر بيانات للنموذج ، اي انه لا يستعمل الجداول كمصدر بيانات للنموذج ، وهي نفس الطريقة التي استعملها انا 🙂 يعني سؤالي نوعا ما ، خارج عن موضوعك 😁 جعفر

اخي القاضي ، شكرا جزيلا على جميل كلماتك ، ونسأل الله القبول 🙂 جعفر

هذا عينا الذي اقوم به 100% 🙂 ما المقصود خصوصا بكلمة وصلات الاستعلام يعني وبكل بساطة ، استخدام الاستعلام العادي ، بعد ربط الجداول بعلاقات 🙂 جعفر

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

هل قرأت مشاركتي هناك ؟ هي بالصبط ما تريد 🙂 جعفر

معذرة اخوي ابو ابراهيم : نعم بهذه الطريقة يمكن اخفاء الاستعلام ، كما تم اخفاء الجداول ، ولكن ، هل سيكون تنفيذ الاستعلام اسرع في جعله في قاعدة البيانات الخلفية ، مما لو وضعناه في قاعدة بيانات الواجهه ؟ جعفر

وعليكم السلام : التقرير لا يحترم ولا يستعمل الفرز من الاستعلام/الجدول ، لذلك يجب عليك عمله في التقرير ، لذلك يمكنك عمله في التقرير هكذا : . جعفر

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

قام اباجودي بوضع المثال هنا

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

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

هناك طريقتين: 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 ، بحيث يأخذ بياناته من النماذج التي ترسل التاريخ. جعفر