Foksh

أخي سيف بدايةً قم بإغلاق هذا الموضوع باختيار افضل إجابة ، ثو أعانك الله بانشاء موضوع جديد . حتى لا تتعرض المواضيع للإغلاق . أما بخصوص عدم قدرتك على رفع الملف المرفق ، قم بالدخول الى الملف واضغط زر ضغط وإصلاح للقاعدة ، فيصبح حجمها أصغر بكثير مما يسمح لك رفع الملف

وعليكم السلام ورحمة الله وبركاته أخي @abo_renad12 ، وأهلا وسهلا بك معنا في عالمنا الصغير 🤗 . بدايةً نرحب بك ونتمنى أن تجد المعلومة التي تبحث عنها هنا . وهذه مشاركتي إن كان ما فهمته صحيح :- Abo Renad.accdb

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

هل هذا طلبك ؟؟ New Microsoft Access Database.accdb يبدو أنني قد فهمت الموضوع بشكل خاطئ ، تفضل أخي الكريم New Microsoft Access Database.accdb

اضبط تنسيق الوقت من إعدادات اللغة والوقت في الويندوز من الكنترول بانل

استناداً إلى ما طلبت ، هذا المديول العام الذي خرجت به :- Public Sub ApplyFilterToSubForm(subFormName As String, filterCriteria As String, captionText As String, JOValue As Integer) On Error Resume Next Dim subForm As Form Forms("NewPara").P_Day.sourceObject = "NewPU" Set subForm = Forms("NewPara").Controls(subFormName).Form If Not subForm Is Nothing Then subForm.TN.caption = captionText subForm.Form.Filter = filterCriteria subForm.Form.FilterOn = True Forms("NewPara").JO = JOValue Forms("NewPara").U_OK.Requery subForm.SetFocus Forms("NewPara").SNormal.SetFocus Else MsgBox "Subform '" & subFormName & "' not found.", vbExclamation End If End Sub وهنا الإستدعاء له في الأزرار الـ 5 في القائمة المنسدلة الخاصة بك :- Public Sub Urine() ApplyFilterToSubForm "P_Day", "[TName]='Urine'", "Urine", 3 Forms("NewPara").Controls("Name_Urine").caption = "All" End Sub Public Sub Stool() ApplyFilterToSubForm "P_Day", "[TName]='Stool'", "Stool", 4 End Sub Public Sub Lipids() ApplyFilterToSubForm "P_Day", "[TName]='Lipids'", "Lipids", 15 End Sub Public Sub Creat() ApplyFilterToSubForm "P_Day", "[TName]='Creatinine'", "Creat", 9 End Sub Public Sub All() Forms("NewPara").P_Day.sourceObject = "NewPp" Forms("NewPara").U_OK.Requery Forms("NewPara").Controls("Name_Urine").caption = "Urine" End Sub وهذا المرفق بعد التطبيق |~ LAB_2024 - JO.zip ~| جرب وأخبرني بالنتيجة 😊

أخي الكريم ، العنوان + الشرح + المطلوب لا يمكن لأحد التنبؤ بما قد نسيته أو تريد إعادة ضبطه . لتلافي اغلاق الموضوع ، قم بالتوضيح المفصل لمشكلتك . وأتمنى أن تجد الحل لجميع مشاكلك . على العموم الملف بتنسيق أكسيس 2003 ، ويوجد به خلل في المكتبات كما في الصورة التالية :- وهذا ملفك بعد التعديل ( Dataaa.accdb )

هل جربت تنصيب اوفيس 2019 أو 2016 ؟

ومساهمة مع الأساتذة جزاهم الله خير ، حسب ما فهمت من الكود 😅 . كود المديول :- Public Function ApplyFilterToSubForm(subForm As Form, filterText As String) subForm.Form.Filter = filterText subForm.Form.FilterOn = True End Function وللإستدعاء من النموذج في حدث عند النقر :- ApplyFilterToSubForm Forms("P_Day"), "[TName]='Urine'" U_Ok.Requery هي الفكرة انك تطبق الفلترة على النموذج الفرعي P_Day من مربع النص TName اللي بتساوي Urine . جرب وأعطيني النتيجة ، أو أرسل مرفقك للتطبيق ، فليست النتيجة واضحة دون مرفق أخي @jo_2010

أعتقد أنه في الوحدة النمطية لا يمكن استخدام التصريح Me إشارة الى عنصر ما داخل النموذج !!

بناءً عليه فإن المشكلة في تحديثات الأوفيس365 لديك. 🤗 سؤال جميل ، وأعتقد أنه ممكن ذلك

أخي @TQTHAMI ، للمحاولة جرب هذا المرفق والكود :- Option Compare Database Option Explicit #If Win64 Then Private Declare PtrSafe Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As LongPtr, ByVal hWnd2 As LongPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPtr Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hWnd As LongPtr, ByVal nCmdShow As Long) As Long #Else Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long #End If Private Const SW_HIDE As Long = 0 Private Const SW_SHOW As Long = 5 Public Sub HideDesktopIcons() Dim hWndProgMan As LongPtr Dim hWndSHELLDLL_DefView As LongPtr Dim hWndSysListView32 As LongPtr hWndProgMan = FindWindow("Progman", vbNullString) hWndSHELLDLL_DefView = FindWindowEx(hWndProgMan, 0, "SHELLDLL_DefView", vbNullString) hWndSysListView32 = FindWindowEx(hWndSHELLDLL_DefView, 0, "SysListView32", "FolderView") ShowWindow hWndProgMan, SW_HIDE ShowWindow hWndSHELLDLL_DefView, SW_HIDE ShowWindow hWndSysListView32, SW_HIDE End Sub Public Sub ShowDesktopIcons() Dim hWndProgMan As LongPtr Dim hWndSHELLDLL_DefView As LongPtr Dim hWndSysListView32 As LongPtr hWndProgMan = FindWindow("Progman", vbNullString) hWndSHELLDLL_DefView = FindWindowEx(hWndProgMan, 0, "SHELLDLL_DefView", vbNullString) hWndSysListView32 = FindWindowEx(hWndSHELLDLL_DefView, 0, "SysListView32", "FolderView") ShowWindow hWndProgMan, SW_SHOW ShowWindow hWndSHELLDLL_DefView, SW_SHOW ShowWindow hWndSysListView32, SW_SHOW End Sub Private Sub Btn_Hide_Click() If Btn_Hide.Caption = "Hide Icon" Then HideDesktopIcons Me.Btn_Hide.Caption = "Show Icon" Me.Caption = " Desktop Icone Hide" Else ShowDesktopIcons Me.Btn_Hide.Caption = "Hide Icon" Me.Caption = " Desktop Icone Show" End If End Sub Hide Icon Desktop - 2.accdb

أخي صالح تواصلت معك على الواتس ، ولكن لم يصلك الحديث ، عل المانع خير ؟ حتى لا يكون هناك تغيير جذري لمشروعك ، فكرتي أنني قمت بإنشاء جدول واحد يتم من خلاله تسجيل جميع المواقف والاجتماعات والنزولات والمواد والدورات ، ومنه تستطيع الفلترة بشكل أفضل وإنشاء الإستعلامات التي تريدها من جدول واحد وليس عدة جداول . هذه محاولتي ، وإن كان هناك طريقة أفضل فأنا أرحب بها وأتعلم منها ، فخبرتي في التقارير أعتقد أنها في ربيع الطفولة 😅 . Mawaqef - 2024.accdb

أرفق مثالك يا صديقي

استكمالاً لما سبق في المشروع 👆 :- قد واصلنا العمل بإجراء بعض التعديلات على التصميم ، والأكواد ، وتم إضافة أفكار جديدة ، وأدعوكم لتجربة النسخة الأولى من البرنامج لنظام الـ 64 بت في الوقت الحالي . تم إضافة الوضع المصغر فوق شريط المهام في الويندوز . ويتحتوي على 3 أزرار ! الزر الذي سيكون له لونين ( الأخضر و الأحمر ) للخيارات والإعدادات . وطبعاً اللونين دلالة على وضعية شريط عرض الوقت للصلاة . ويتم تغيير الوظيفة من الزر التالي . الزر ذو اللونين ( الأخضر أو الأحمر ) لتفعيل وضع الشريط المصغر فوق التطبيقات أو خلفها . زر الإغلاق . تم إضافة نافذة تنبيه عند وقت الصلاة مع تنبيه صوتي يتم اختياره من Settings الإعدادات . إمكانية تفعيل الوضع المصغر حسب الحاجة أو الوضع الشامل من لوحة Settings الإعدادات أيضاً . Salawat.zip

أهلاً وسهلاً بك معنا في عالمنا الصغير ( أوفيسنا ) أخي @rageed1 . شكراً لك مرورك

رغم ان مشكلتك التي وصفتها لم تظهر عندي ولا أعرف ما هي بالضبط حيث بقيت أحرك عجل الماوس حتى اقتربت من شراء واحد جديد ! لكن تفضل عجلة الماوس.mdb

تفضل أخي @mostafaelshnawy5 في الاستعلام الثاني ، وتركت لك الاستعلام الأصلي لمقارنه الفرق حتى في تحديد الشرط ، حيث يجب كتابة كلمة بيع هكذا "بيع" وليس هكذا 'بيع' mm.accdb

ارسل ملفك يا صديقي وأذكر أنك في الاستعلام طلبت نوع الفاتورة "بيع" !!!!!!

الأجزاء كاملة قائمة المشاريع وتافيديوهات على القناة

كمثال استخدم الكود التالي في هذا الحدث ( عند تحريك العجل ) DoCmd.CancelEvent

تمت تجربة المرفق ويعمل بكفاءة ، ممكن تكون المشكلة في نسخة الأوفيس أخي @محمود _ المصري

بعيدا عن المجلد img ، هل هو فعلاً في المسار الواضح في الصورة " J " ؟

جرب في الاستعلام Sql التالي SELECT [كود العميل], [رقم الفاتورة], Count(*) AS عدد_الفواتير FROM [فاتورة] WHERE [نوع الفاتورة] = 'بيع' GROUP BY [كود العميل], [رقم الفاتورة] HAVING Count(*) = 1;

أخي @صالح الصالحي ، أعتذر عن التأخير ، ولكن بداية سأمضي معك خطوة خطوة ، هل هذه النتائج صحيحة ؟ وأرجو منك توضيح في كل موقف ما سيتم عرضه في حال وجود أو عدم وجود قيم New Mawaqef.accdb