Foksh

تفضل ، محسن خليل.accdb

استبدل حدث الماكرو ، بحدث VBA إن كانت فكرتك إضافة سجل جديد DoCmd.GoToRecord , , acNewRec

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

ارجو التأكد من الملف المرفق اخي محسن خليل

الفكرة ليست في انتاج الصور الـ 360 .. الفكرة في مساحة النموذج بعد إدراج الصور . أما الفكرة الثانية فهي ما ابحث عنه ؛ وبدعمكم وافكاركم وتوجيهاتكم سنتوصل الى حل بإذن الله

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

أهلاً بأستاذنا الكبير @Moosak ، بارك الله فيك على الإستجابة السريعة 🥰 . أنا أعلم أن اكسيس لا يوفر هذه الخاصية ، ولكن تبادر لذهني تنفيذ الفكرة بشكل برمجي إن كان ممكناً . كفكرة عقارب الساعة مثلاً أنها تدور حول مركز محدد 😉 . اما عند تنفيذ الفكرة الأولى التي ذكرتها فهنا سأحتاج الى قرابة الـ 360 صورة سهم 🥺 . واعتقد ان العمر قد لا يتسع لهذا الوقت في إنشائها وضبطها 😁 .

السلام عليكم ورحمة الله وبركاته ، أخواني وأساتذتي ومعلمينا الأفاضل ، هل من الممكن تحقيق الهدف بأن يتم تدوير صورة معينة عن طريق تحديد زاوية الدوران ؟ هذه صورة توضيحية للمطلوب ، ومرفق معها مثال للتطبيق عليه . Rotate.accdb

لا تنسى إغلاق مواضيعك اخي @sief122 🤗

نسيت التوضيح لك أخي الكريم سيف ، بضرورة تعديل اسم العملة واسم الجزء منها من المديول في آخر الكود

الأمر بسيط أخي @sief122 . انقل الوحدة النمطية N2Q لمشروعك في حدث بعد التحديث لمربع النص the amount ، ضع الكود التالي ( وهذه طريقتي ، وقد يختلف الأسلوب عند بعض الأساتذة ) :- Me.split_the_amount = Nz(KaremNumber([the amount]), 0) والنقطة الأهم عندي وأجدها نقطة ضعف في اسلوبك وهي انك تجعل الأسماء للكائنات والعناصر والحقول تحتوي على فراغات ومسافات

تفضل أخي @sief122 ، إن كان هذا طلبك الجمعية التعاونية.accdb

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

وعليكم السلام ورحمة الله وبركاته أخي @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