Foksh

هل جربت تنصيب اوفيس 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

بص يا عمي الحج !! من وجهة نظري انت اعتمدت لما سبقت وذكرته - على استخدام الـ Tag علشان تحدد وتعرف سلوك العناصر في النموذج اللي هي الأزرار . وهي فعلاً ممكن مرونة ممتازة في تحديد مجموعة تتبع مسار معين دون الحاجة لذكر اسمائها والدخول في دوامة الأكواد المتكررة ده من وجهة نظري طبعاً ، وانا يمكن بلبس نضارة الأيام دي

فعلاً هذا يعتمد على الهدف من جملة الحذف هل الهدف صف ، أم قيمة معينة

هلا ارسلت مرفق بسيط لرؤيته ؟

أستاذنا @ابو جودي ، أهلاً بعودتك يا صديقي .. عجبتني الفكرة إنك تعمل حفظ لتفاصيل الأزرار عند حدث في الحالي وإنك تستدعيها مرة تانية عند النقر 👌

غريب ، هذا هو كود الأستاذ @محمد احمد لطفى ، من جهازي ما هو اصدار الويندوز والأوفيس لديك ؟ 20240506_170555.zip

الكود يعمل معي على نسخة ويندوز 10 وإصدار أوفيس 64 ، ولكن يبدو انك بحاجة لإضافة PtrSafe لتحويل الكود للعمل على إصدار 64 . والشكر للأستاذ @محمد احمد لطفى على فكرته الجميلة وهذه فكرته لا أتعدى عليه ولا أحصد ثمر مجهوده الثمين ، وإنما بلمستي Hide Icon Desktop.accdb

خرجت مع أختها دي IIf(IsNull([YourTextBoxt]),0,([YourTextBox])