jjafferr

تفضل يا سيدي ، تم حذف الحقول المحسوبة في الجدول 🙂 color.zip وقد تستفيد من الخطوة التي قمت بها : =IIf(IsNull([Forms]![3_JO_Search]![txtSearchText]),[اسم المريض],Replace([اسم المريض], [Forms]![3_JO_Search]![txtSearchText], "<b><font color = red >" & [Forms]![3_JO_Search]![txtSearchText] & "</font></b>"))

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

عمل واضح ، ومرتب ، وجميل 👍 بتوسيع الكود الاعلاه ، نحصل على : Function chk_De_Select(ctl As Control) If Len(Me.X & "") = 0 Then MsgBox "رجاء اختيار اسم المستخدم" Me.X.SetFocus Me.X.Dropdown GoTo Exit_chk_De_Select End If Dim rs As DAO.Recordset Dim ctl_N As String Try_Again: Set rs = Me.Subformusers.Form.RecordsetClone ctl_N = Replace(ctl.Name, "chk_", "") If rs.RecordCount = 0 Then DoCmd.SetWarnings False DoCmd.OpenQuery "qry_Append_Forms" DoCmd.SetWarnings True Me.Requery GoTo Try_Again Else rs.MoveFirst While Not rs.EOF rs.Edit If ctl.Value = True Then rs(ctl_N).Value = True Else rs(ctl_N).Value = False End If rs.Update rs.MoveNext Wend End If Exit_chk_De_Select: End Function ونناديه من اي من المربعات هكذا (لاحظ اسماء المربعات لتتماشى مع اسماء الحقول) : Private Sub chk_canAdd_AfterUpdate() Call chk_De_Select(Screen.ActiveControl) End Sub Private Sub chk_candelete_AfterUpdate() Call chk_De_Select(Screen.ActiveControl) End Sub Private Sub chk_canedit_AfterUpdate() Call chk_De_Select(Screen.ActiveControl) End Sub Private Sub chk_canopen_AfterUpdate() Call chk_De_Select(Screen.ActiveControl) End Sub وهذا استعلام الالحاق : وللمستخدم الجديد ، انقر على اي من المربعات الاربعة ، واستمر من هناك 🙂 ---------------------------------------------------------------------------------------------------------- ولكن نموذج الشايب لا يُعلى عليه 🙂 جعفر 1565.تفعيل خانة الاختيار.accdb.zip

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

ايش رايك بهذا الكود على الطاير: Dim rs As DAO.Recordset Set rs = Me.Subformusers.Form.RecordsetClone if rs.recordcount=0 then rs.addnew 'هنا نضيف السجلات rs.update else rs.MoveFirst While Not rs.EOF rs.Edit If Me.Check25 = True Then rs!canopen.Value = True Else rs!canopen.Value = False End If rs.Update rs.MoveNext Wend end if rs.Close

لا يا جماعة ، المسألة يجب ان تبدأ بالحاق في اول مرة ، ثم تحديث في المرات التالية 🙂 وكذلك فاتحة خير 🙂

السلام عليكم 🙂 تقريبا جميع الوحدات النمطية خضعت للتغيير 🙂 رجاء تجربة جميع الازار 🙂 1566.اخفاء واظهار كائنات الاكسس.accdb.zip

وهنا ستجد طريقة تعديل الكود ليعمل على النواتين: و

وعليكم السلام 🙂 المشكلة ليست في هذا السطر ، وانما في تصريح مكتبة الوندوز SetWindowsHookEx جرب واعمل هذا التغيير : #if win64 then public Declare PtrSafe Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As LongPtr, ByVal hmod As LongPtr, ByVal dwThreadId As Long) As LongPtr #else public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long #endif

السلام عليكم 🙂 مجرد اقتراح ، وعملته ببرنامج الصور 🙂 بما ان عدد التخصصات قد يزيد ، ولا تتسع له الصفحة ، فاقترح ان يكون تقريرك بالطول ، هكذا (طبعا بتعديل المسميات والارقام 🙂 ) :

هذا الميدان لك ، تفضل 🙂

هممم طيب جرب الآن 🙂 ابدأ الكتابة مباشرة ، وبدون عمل اي شيء آخر ، ثم استخدم الاسهم في اختيار السجل ، وعند الاحتيار انقر على احد الزرين: TAB او ENTER . 1564.مشكلة استخدام السهم في البحث.accdb.zip

وعليكم السلام 🙂 بالفأرة ، هل هذا الذي تريده ؟ جعفر 1564.مشكلة استخدام السهم في البحث.accdb.zip

حياك الله 🙂 اضفت ملاحظات على المشاركة اعلاة لتوضيح الكود 🙂

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

الله يسلمك ويعافيك اخوي قاسم 🙂

تفضل يا سيدي 🙂 النموذج والاستعلام هكذا : . وزر "عرض التقرير" يحتوي على هذا الكود في حدث النقر: Private Sub cmd_Preview_Click() Dim varItem As Variant Dim myWhere As String myWhere = "" ' Loop through the selected items in the ListBox For Each varItem In Me.lst_XX.ItemsSelected ' Add each selected item to the string myWhere = myWhere & "'" & Me.lst_XX.ItemData(varItem) & "', " Next varItem ' Remove the trailing comma and space from the string myWhere = Left(myWhere, Len(myWhere) - 2) 'هذه الفقرة الاخيرة بتعطينا المواد التي تم اختيارها بهذا التنسيق: 'الإقتصادية', 'الادارية', 'التربوية' DoCmd.OpenReport "qry_Section_Gender_Count", acViewPreview, , "[Section] in (" & myWhere & ")" 'والامر النهائي يصبح هكذا: 'DoCmd.OpenReport "qry_Section_Gender_Count", acViewPreview, , "[Section] in ('الإقتصادية', 'الادارية', 'التربوية')" End Sub . والنتيجة: جعفر 1563.baseNN.accdb.zip

عفوا ، بس على اي اساس يختار لك الاختيار الاخير ؟ انت عندك ، والاحصاء اصلا غير موجود !!

وعليكم السلام 🙂 اسهل طريقة : 1. عمل نسخة من الاستعلام qry_Section_Gender_Count ، ولنسميه qry_Section_Gender_Count_2 2. في الاستعلام qry_Section_Gender_Count_2 ، نعمل تغيير في المعيار لكي نشير الى الحقل X4 في النموذج ، 3. نجعل الاستعلام qry_Section_Gender_Count_2 مصدر لبيانات التقرير 🙂 . جعفر 1563.baseNN.accdb.zip

نعم ، ولكن اذا وضعت الكود في قسم التفصيل من التقرير ، فالتقرير سوف ينادي الكود بعدد سجلات التقرير ، مما يجعل التقرير بطيء نوعا ما ، وخصوصا اذا استعملت اكثر من امر من عائلة Dlookup , Dsum واخواتها ، لذا تستطيع الرجوع لهذا الرابط لمعرفة كيفية قراءة مجموعة اوامر من عائلة Dlookup , Dsum واخواتها دفعة واحدة: . واذا كانت عندك مجموعة اوامر من عائلة Dlookup , Dsum واخواتها في استعلام ، فيمكنك تفكيكها واعادة عملها كاستعلام مستقل وسريع هكذا : جعفر

تفضل =DSum("[SumOfSumOftotal_retail_sell_vat]","[qry_sales_sub_vat_total]","[Sales_Invoice_No]= " & 2) =Dsum ("اسم الحقل المطلوب بياناته" , "اسم الاستعلام او الجدول" , "المعيار" )

وعليكم السلام 🙂 خير ان شاء الله

السلام عليكم 🙂 لنا الشرف بالتعامل مع الخبير @دروب مبرمج 🙂 شكرا اخوي ابو ابراهيم ، وشكرا اخوي ابوخليل 🙂 جعفر

وعليكم السلام 🙂 نعم ، قد يوجد هناك حل بتغيير اعدادت الاستعلام الى . واذا استعملت هذا الاستعلام في نموذج ، فيجب تغيير اعدادات النموذج كذلك 🙂 ولكن هناك نقطة جدا مهمة يجب الالتفات لها ، وهي عند حذف سجل ، فستحذف معلومات بقية الجداول المرتبط كذلك !!

بس معادلتي مميزة بهذه الطريقة 😁