محمد أبوعبدالله

وعليكم السلام ورحمة الله وبركاته اخي الكريم بارك الله فيك ارفق مثال به الثلاث جداول فقط ليتم التعديل عليه فبدون مرفق سيطول الشرح وتصعُب المسألة تحياتي

وعليكم السلام ورحمة الله وبركاته المنتدى ما شاء الله زاخر بمثل هذه البرامج يمكنك اخي الكريم استخدام خاصية البحث لتجد العديد من هذه البرامج تحياتي

بكل تأكيد تفضل اخي الكريم ConferenceDB.rar تحياتي

بالاضافة الى ما تفضل به استاذنا الفاضل @husamwahab تعلمت من استاذتنا هنا في المنتدى تقسيم الكود لمعرفة اين الخطأ بسهولة واليك حلين مختلفين للموضوع احذف علامة التنصيص من احدهما ليعمل الكود Private Sub cboConfDate_Exit(Cancel As Integer) ' rs = "Select * From Conference_Q" ' rs = rs & " WHERE ConfStDate =#" & Format(Me.cboConfDate.Value, "mm/dd/yyyy") & "#" ' ' Debug.Print rs ' ' Set rst = CurrentDb.OpenRecordset(rs) ' Me.SubConf_Frm.Form.RecordSource = rs ' Me.SubConf_Frm.Form.Requery ' ' '============================الحل الثاني ========================================== ' ' myCriteria = "ConfStDate =#" & Format(Me.cboConfDate.Value, "mm/dd/yyyy") & "#" ' Debug.Print myCriteria ' ' Me.SubConf_Frm.Form.Filter = myCriteria ' Me.SubConf_Frm.Form.FilterOn = True End Sub Private Sub cboConfName_AfterUpdate() ' rs = "Select * From Conference_Q" ' rs = rs & " WHERE ConfNo =" & Me.cboConfName.Column(0) ' ' Debug.Print rs ' ' Set rst = CurrentDb.OpenRecordset(rs) ' Me.SubConf_Frm.Form.RecordSource = rs ' Me.SubConf_Frm.Form.Requery ' ' '============================الحل الثاني ========================================== ' ' myCriteria = "ConfNo = " & Me.cboConfName.Column(0) ' Debug.Print myCriteria ' ' Me.SubConf_Frm.Form.Filter = myCriteria ' Me.SubConf_Frm.Form.FilterOn = True End Sub تحياتي

بالتوفيق اخي الكريم تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم قاعدة البيانات.rar تحياتي

وعليكم السلام ورحمة الله وبركاته استخدم دالة mid Mid([Year_name];8;4) تحياتي db1(1).rar

وعليكم السلام ورحمة الله وبركاته مرحبا اخي الكريم للاسف بعد تحويل قاعدة البيانات الى mde و accde لا يمكن التراجع او التحويل الى mdb او accdb كذلك لا يمكن التعديل على النماذج والتقارير والوحدات النمطية الجداول ما هي الا محزن للبياتات ويمكنك حاليا الوصول اليها سواء بالادراج او الحذف او التعديل عن طريق النماذج اما التعديل على تصميمها فلن يفيدك كثيراً والله اعلم تحياتي

السلام عليكم ورحمة الله وبركاته مرحبا اخي الكريم أرصدة الفترة السابقة ( اجمالي الوارد ) =DSum(" [الوارد] ";"q_rased";"fatoradate <= [fatoradate] ") أرصدة الفترة السابقة ( اجمالي المنصرف) =DSum(" [المنصرف] ";"q_rased";"fatoradate <= [fatoradate] ") أرصدة الفترة بين تاريخين ( اجمالي الوارد ) =Nz(DSum("[الوارد]";"q_rased";"[fatoradate] between#" & Format([Forms]![frm_rased]![txt_d1];"yyyy/mm/dd") & "#and #" & Format([Forms]![frm_rased]![txt_d2];"yyyy/mm/dd") & "#")) أرصدة الفترة بين تاريخين ( اجمالي المنصرف) =Nz(DSum("[المنصرف]";"q_rased";"[fatoradate] between#" & Format([Forms]![frm_rased]![txt_d1];"yyyy/mm/dd") & "#and #" & Format([Forms]![frm_rased]![txt_d2];"yyyy/mm/dd") & "#")) رصيد.rar تحياتي

بالتوفيق اخي الكريم وجزاك الله خيرا لدعواتك واسأل الله لي ولك وللجميع القبول والتوفيق تحياتي

لماذا الإغلاق والفتح من جديد ؟ اسأل عن السبب لذلك ... ما الذي يجعلك تحتاج الى الإغلاق والفتح من جديد ؟ برجاء التوضيح تحياتي

هو فعلا يحدث ذلك عند الضغط على زر اضافة تظهر البيانات فوراً في النموذج الفرعي هل لديك مشكلة في ظهور البيانات ؟ لذلك تحتاج الى الاغلاق والفتح من الجديد تحياتي

تم Sub_2.rar تحياتي

تفضل اخي الكريم UPP-Sub.rar تحياتي

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

وعليكم السلام ورحمة الله وبركاته اكيد مع المبدع @jjafferr ستجد الحل باذن الله تحياتي

الحمد لله بسيطة جدا هنا نقوم بتعطيل كود الحذف UPP-Sub.rar جرب من جديد تحياتي

السلام عليكم ورحمة الله وبركاته تم تعديل المثال من البداية وباختصار ايضاً وتم دمج كود تجاهل المسافات تم اضافة Function changesearch(Mytxt) As String Dim tempstr As String tempstr = Nz(Mytxt, "") tempstr = ReplaceChar(tempstr, "أإآاء") tempstr = ReplaceChar(tempstr, "ةته") tempstr = ReplaceChar(tempstr, "ىي") tempstr = ReplaceChar(tempstr, "وؤ") changesearch = tempstr End Function Private Function ReplaceChar(W As String, c As String) As String Dim R As Byte Dim S As String, i As String For R = 1 To Len(W) i = Mid(W, R, 1) If InStr(c, i) > 0 Then S = S & "[" & c & "]" Else S = S + i End If Next R ReplaceChar = S End Function وفي حدث عند الخروج تم اضافة Private Sub Mysearch_Exit(Cancel As Integer) Dim newsearch As String newsearch = changesearch(Me.Mysearch) M = "SELECT * FROM Customer WHERE CusName Like '*" & PartOfName(newsearch, 1) & "*" & PartOfName(newsearch, 2) & "*" & PartOfName(newsearch, 3) & "*" & PartOfName(newsearch, 4) & "*" & PartOfName(newsearch, 5) & "*" & PartOfName(newsearch, 6) & "*';" Me.CustomerFind_subform.Form.RecordSource = M Me.Mysearch.SetFocus End Sub UP-adv find test_2.rar تحياتي

نبدأ من البداية 1- هل تريد اضافة البيانات في الجدول ؟ 2- هل تريد اضافة البيانات الى النموذج الفرعي ؟ اذا كانت الاجابة لا ... كيف يمكن التعديل عليها وهي غير ظاهرة في النموذج ؟ !!! 3 - كيف تؤيد عملية الحذف ؟ ما المعيار الذي عليه يتم حذف السجل ؟ تحياتي

الحمد لله وجزاك الله خيرا اخي الكريم بالتوفيق يا رب تحياتي

تفضل اخي الكريم UP-Sub_2.rar تحياتي

حسناً اخي الكريم بما ان النموذج الفرعي أساساً مبني على الجدول فمن الطبيعي أن اضافة البيانات تكون في الجدول وتظهر في النموذج الفرعي يوجد اكثر من حل للمشكلة وان شاء اله نختار الاسهل والابسط تم انشاء استعلام حذف يقوم بحذف السجل الذي لا تضع علامة صح على 5 checkbox وفي حث عند الخروج يتم تشغيل الاستعلام وفي حالة وجود أي checkbox لا يوجد عليه علامة صح يتم حذف السجل كما يمكنك التعديل على الاستعلام حسب رفغبتك جرب واعلمني بالنتيجة UP-Sub_2.rar تحياتي

بالاضافة الى ما تفضل به استاذنا الفاضل @صالح حمادي واستاذنا الفاضل @sandanet تفضل اخي الكريم ضع هذا الكود في قاعدة بيانات رقم 1 Private Sub أمر11_Click() Dim XApplication As Access.Application Set XApplication = CreateObject("Access.Application") ' مسار قاعدة البيانات المراد فتحها XApplication.OpenCurrentDatabase (CurrentProject.Path & "\database2.accdb") XApplication.UserControl = True ' لفتح قاعدة البيانات على نموذج محدد XApplication.DoCmd.OpenForm "مراجعين" End Sub وهذا ما ذكره لك استاذنا الفاضل @صالح حمادي Application.FollowHyperlink CurrentProject.Path & "\database2.accdb" تحياتي

؟؟؟ واساسا النموذج الفرعي مبني على الجدول انا تهت فعلاً

بالتوفيق اخي الكريم تحياتي