jjafferr

وعليكم السلام 🙂 هذا ابسط استعلام 🙂 يكون عندك استعلامين ، كل واحد يعمل بطريقته وبسجلاته ، الشرط الوحيد هو ان يكون عدد الحقول نفسه لجميع الاستعلامات اللي تريد توحدها 🙂 ودمج الاستعلامات يكون عن طريق الامر Union ، والذي به لا تحصل على سجلات متكررة ، بينما الامر Union All ، يعطيك كل السجلات. مثال: الاستعلام qry_1 فيه الحقول A1 و B1 و C1 ، بينما الاستعلام qry_2 فيه الحقلين iNames (وبه بيانات نفس اللي في الحقل A1) و iSections (وبه بيانات نفس اللي في الحقل C1) يعني الحقل B1 لا يوجد له حقل مشابه في qry_2 : استعلام التوحيد يصبح: Select qry_1.A1, qry_2.B1, qry_1.C1 from qry_1 union all Select qry_2.iName, "" , qry_2.iSection from qry_2 Order By qry_2.iName جعفر

شغلك صحيح ، فقط احذف حقل الاسم من الاستعلام 🙂 جعفر

في النموذج الفرعي عندك حقل باسم Text60 وتسميته "اخر سعر بيع" وفيه نفس المعادلة التي ذكرتها انا اعلاه ، ولكن بدل ان يكون المعيار هو الاسم ، انت عملت المعيار Type وهو الاصح ، لأننا نطلب قيمة مواد. . انت عملت هذا الحقل مخفي ، وانا فقط اظهرته لك : . فالمعادلة صحيحة 🙂 ولكن ، الاستعلام last_sale_price . هل انت محتاج الى حقل الاسم في المجاميع ، يعني هل يهمك آخر قيمة تم بيعها لفلان ، لأن هذا يعمل تكرار بدون سبب !! . جعفر

وعليكم السلام 🙂 تفضل (رجاء مراجعة اسم حقل الاسم) : A = dlookup("[LastOfsale_Price]","last_sale_price","[الاسم] = '" & me.الاسم & "'") ولكنه سيأخذ او قيمة فقط واللي هي 150 ، لذلك يجب ان تعمل فرز صحيح للاستعلام ، حتى تكون القيمة دائما الاولى 🙂 جعفر

ولا يهمك 🙂

رجاء مراجعة هذا الرابط : جعفر

السلام عليكم 🙂 اخي الفاضل ، فتحك مواضيع جديدة ، في حين ان لديك موضوع مفتوح بنفس السؤال: 1. مخالف لقوانين المنتدى: ممنوع نهائيا وبشكل قاطع تكرار الموضوع نفسه أو فتح موضوع جديد للمطالبة برد في موضوع سابق 2.انت تشتت افكارك ، فلكل مبرمج طريقة في البرمجة قد لا تتماشى مع برمجة المبرمج الآخر. هنا الاخ محمد ابو عبدالله لايزال يساعدك ، فرجاء الاستمرار هناك 🙂 جعفر

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

🙂

حياك الله 🙂 نعم لها حل ، استعمل النموذج MainForm بدل Navigation Form ، وتقدر تحذف النماذج الفرعية فيه ، واعمل فيه اللي تريد. او اعمل برنامج جديد ، واعمل النموذج Navigation Form ، واعمل نسخ للكمبوبوكس وبقية الكائنات اللي في النموذج MainForm والصقها في Navigation Form ، ثم اضف النماذج الفرعية. بكلام آخر ، يا يكون عندك النموذج MainForm او Navigation Form 🙂 طبعا ممكن عمل اشكال اخرى ، بس الموضوع يتعقد اكثر 🙂 جعفر

للأسف الشديد ما صار لي الشرف اتعرف عليه ، وما شاء الله نار على علم ، بصماته موجودة ولا تندثر ، ومواضيعه اصيله مو مأخذها نسخ/لصق من مواقع اجنبية (ومو عيب اخذها من مواقع اجنبية والتطوير عليها ، ولكن العيب عدم ذكر المصدر) جعفر 🙂

عملت تعديل بسيط ، بحيث النموذج MainForm يكون النوذج الرئيسي ، ولا تحتاج الى النموذج Navigation Form ، وتقدر تضيف النماذج الفرعية كما تشاء 🙂 جعفر 1154.مساح.accdb.zip

وعليكم السلام 🙂 الآن نظرت الى الموضوع بالكامل ، واضطررت ان اغير الامر ، لأن الامر السابق يصدر تسمية الحقول (باللغة العربية) ، بينما لما نستوردهم ، لما يعمل مقارنة اسماء الحقول بالتي موجودة في الجدول ، يرى انها مختلفة ، فتظهر رسالة تقول بأن الحقل الفلاني غير موجود في الجدول !! هذا الكود الجديد: Private Sub cmd_Delete_Records_Click() Dim strSQL As String strSQL = "DELETE [tbl_Teacher].* FROM [tbl_Teacher];" DoCmd.SetWarnings False DoCmd.RunSQL strSQL DoCmd.SetWarnings True End Sub Private Sub cmd_Export_Click() Dim ImportFileName As String ImportFileName = CurrentProject.Path & "\tbl_Teacher" & ".xls" DoCmd.TransferSpreadsheet acExport, 8, "tbl_Teacher", ImportFileName, True End Sub Private Sub cmd_Import_Click() Dim ImportFileName As String ImportFileName = CurrentProject.Path & "\tbl_Teacher" & ".xls" DoCmd.TransferSpreadsheet acImport, 8, "tbl_Teacher", ImportFileName, True End Sub جعفر 1153.db2.zip

وعليكم السلام 🙂 نعم يوجد ، تفضل : جعفر

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

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

وعليكم السلام 🙂 اخوي احمد ، يجب ان يكون عندك ملف اسمه tbl_Teacher.xls في نفس المجلد الذي يكون فيه برنامجك ، كما انه في خطأ td الكود عندك : بدل ImportFileName = CurrentProject.Path & "tbl_Teacher" & ".xls" اكتب ImportFileName = CurrentProject.Path & "\tbl_Teacher" & ".xls" فيصبح الكود كاملا هكذا: Dim ImportFileName As String ImportFileName = CurrentProject.Path & "\tbl_Teacher" & ".xls" DoCmd.RunSQL ("Delete * From tbl_Teacher") 'هذا السطر يحذف بيانات الجدول DoCmd.TransferSpreadsheet acImport, 8, "tbl_Teacher", ImportFileName, True واذا صادفت مشكلة ، فرجاء اذكر رقم الخطأ (وياريت صورة واضحة منه) ، كما رجاء تخبرنا على اي سطر يقع الخطأ 🙂 جعفر

حياك الله 🙂

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

بدل الكود السابقة ، استعمل : Private Sub Rank_AfterUpdate() If Me.Dirty Then Me.Dirty = False Set rst = Me.RecordsetClone dim s as long S = Me.SERIAL Me.Painting = False Me.Requery rst.FindFirst "[Serial]= " & S Me.Bookmark = rst.Bookmark Me.Painting = True rst.Close: Set rst = Nothing End Sub جعفر

همممم هل mohammmeed هو نفسه mohamed elalfy ؟؟ اذا كان الامر كذلك ، حتى نطلب من الاداردة دمج الاسمين ، فهذا مخالف للقوانين 🙂 جعفر

تفضل المرفق 🙂 1149.crewing - Copy.accdb.zip

وعليكم السلام 🙂 الاستعلام: . النموذج: اضف كود لكي يقرأ النموذج الفرعي بيانات الاستعلام بعد "الخروج من حقل تاريخ الانتساب.الى" (نحن عادة نستخدم حدث بعد التحديث ، ولكني اعرف ان المستخدم سيغير بين التاريخين ، فلا داعي ان يُدخل التاريخ "الى" مرة ثانية) Private Sub srch_JoinDate_To_LostFocus() Me.Sub_MembersDetail_Frm.Form.Requery End Sub 1152.1.AddressSearch.accdb.zip

الحمدلله 🙂

Crew في الحدث بعد التحديث للحقل Rank