ابو جودي

ممكن نعرف ايه المقصود من 2e3 وياريت لو توضح لنا النتيجة المفروض الوصول اليها بالارقام من واقع المثال المرفق

جزاكم الله خيرا باش مهندس كريم

- من فضلك كما تحب ان يلتزم ضيوفك بالآداب عند دخلوهم الى منزلك فعليك أيضا واجبات لابد ان تلتزم بها عندما تدخل ضيفا على احد رجاء الاهتمام بقراء الموضوع الاتي https://www.officena.net/Tips/Questions.htm المحظورات 20. يمنع منعا باتا نشر أية موارد تخالف حقوق الملكية الفكرية بما في ذلك الكتب والكراك وتبادل السيريال، والمخالفة تعرض المشاركة للإلغاء والعضوية للإيقاف.

السلام عليكم ورحمة الله تعالى وبركاته استاذى الجليل ومعلمى القدير و والدى الحبيب استاذ @jjafferr هذا المرفق الأصلى بدون تجميع كل الاكواد فى موديول واحد الملف مضغوط يحتوى على الاتى محاولتى للتحويل من 32 الى 64 بيت ونفس المشكلة عند عمل تصغير قاعدة البيانات بجوار الساعة عند الضغط عليها بالماوس لا تعود تظل في وضع الـ minimizes to system tray ومرفق الملف الأصلى الذى يعمل مع 32 بيت بدون ادنى مشكلة بصراحة انا تعبت وبأفكر ما ابحث تانى عن حل المشكلة جالى صداع مزمن تعديل اخفاء وتصغير الاكسس.zip

يا اخى الله يرضى عليك لو تكرمت ممكن اسم التقرير اللى به المشكلة

طيب بعد اذن اخى الحبيب باش مهندس كريم وبناء على طلبه فى تقديم المساعدة ان امكن المرفق الاتى والخاص بكملة المرور هناك عدد 2 زر امر الاول OK : المفروض ان كانت كلمة المرور صحيحة يتم تمريرها من خلال صندوق الرسائل الى النموذج الثانى No : المفروض ان كانت كلمة المرور صحيحة او خطأ لا يتم تمريرها ولتنفيذ ذلك من خلال الكلاس لابد من اضافة sub routine الى النموذج مع بعض التعديلات على الكود اترككم مع المرفق .. اتمنى لكم تجربة ممتعة 08- Msgbox With Input Password (2).accdb

ممكن مرفق من قاعدة البيانات بالجداول والتقرير اللى حضرتك انشأته

شوف يا سيدى علشان تقدر تعمل الشغل اللى هيتم شرحة لابد من وجود الاتى فى قاعدة بياناتك - الكلاس موديول اللى باسم cTaskDialog - الموديول اللى باسم basGDIPlus_Lib - الموديول اللى باسم basTaskDialogGlobal وانتبه جيدا لا تقم بتغيير اسم الكلاس موديول cTaskDialog لان الاكواد تعتمد على اسم الكلاس موديول فاذا غيرت الاسم لابد من تغييره لنفس الاسم فى الاكواد

طيب ممتار ان شاء الله اساعدك قدر استطاعتى انا الان احلل الاكواد واحاول الفهم وعلى قدر استطاعتى سوف اساعدك

لن اعرض شيئا مستقبلا مما اكتشفته . واعتذر لك يا باش مهندس كريم لن اسبقكم ثانية ولكن كل ما اريد قوله نحن على موعد مع سلسة راااااااائعة جدا انا انتظر بلهفة واشتياق ولكن لى سؤال كيف يمكن التحكم فى صندوق الرسائل بأن يكون اتجاه النص من الجهة اليمنى

وعليكم السلام ورحمة الله تعالى وبركاته أستاذي الجليل ومعلمي القدير و والدى الحبيب أستاذ @jjafferr خيار الألوان يمرر قيمة مربع السرد من صندوق الرسائل الى مربع النص في النموذج ----------- طبعا ممكن عمل الكثير والكثير غير ذلك كل واحد وحسب بنات أفكاره اما فى المرفق الخاص بى انا على زر الامر خروج وضعت كود بناء على الكلاس يستطيع تغيير اسماء ازرار صندوق الرسائل كما انه يتيح لك زيادة عدد الازرار ان اردت واعتقد هناك الكثير والكثير هذا فقط بداية اكتشافى لازلت احاول الدراسة

وعليكم السلام يبدو انه تنتظرنا درر من تلك السلسة اول الغيث قطرة.. وهذه بدايات اكتشافاتي تجدها على زر الامر خروج وانا في انتظار باقي السلسة بشغف يا باش مهندس كريم Msgbox With ComboBox.zip

وممكن استبدالها يا استاذ @عبدالله المجرب بالكود الاتى Public Function SelectFile() On Error GoTo ErrorHandler Dim FileDialog As Object Dim sPath As String Dim sFile As String Set FileDialog = Access.Application.FileDialog(3) With FileDialog .AllowMultiSelect = False .Filters.Clear .Filters.Add "Pic Files", "*.png" .Show .Title = "Please select a File" SelectFile = .SelectedItems(1) End With ExitHandler: Exit Function ErrorHandler: MsgBox "Error Number : " & Err.Number & vbNewLine & "Error Description : " & Err.Description Resume ExitHandler End Function طبعا مع مراعاة تغير الامتداد حسب رغبتك .Filters.Add "Pic Files", "*.png"

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

https://feedbackportal.microsoft.com/feedback/idea/d1a2f3cb-9a4c-ec11-a819-0022484f395d

Make access is more flexible, stable, fast and beautiful Increasing the size and increasing the speed, especially when using on the network, and allowing an increase in the number of users connected at the same time to work with a database .on a local network Certainly everyone wants an increase in the beauty of the interfaces because Access is very poor in that particular part .The problem of stability because sometimes we encounter database corruption The big problem I also hope to solve is the difference in reference numbers according to the versions so that it does not cause this if references with a higher version are used than the .references on another computer if the database is used on a different computer Expand the flexibility of the code editor so that it is easier to use Visual Basic codes more because Access is somewhat poor in that part. Thank you for giving us the opportunity to express the problems we face and the suggestions that we develop in the future to meet our needs in a larger and broader way.

أستاذي الجليل ومعلمي القديـر و والدى الحبيب أستاذ @jjafferr تحية طيبة .. جزاكم الله خيرا على الشرح الوافي الكافي والمفصل وشكر الله لكم على تقديم العون والجهد المبذول في هذا الموضوع المهم رجاء تثبيت الموضوع لأهميته.. الشرح به تفاصيل كثيرة ولن يتم فهمها وحفظها والتعامل معها كما ينبغي من المرة الأولى وأعتقد سوف يكون الموضوع مرجع مهم باستمرار لمن يريد التعامل مع دوال الـ API لتعمل عي كلتا النواتين الـ 23 , 64

هههههههه طيب زي ما يقولوا غلطة الشاطر بألف انا اسف انا فعلا كنت مرهق جدا اثناء التجربة وكتبت اسم الجدول بتلك الطريقة كما تعودت دائما لأنى ابدأ مسميات الجدول دائنا بـ tbl ولذلك كتب اسم الجدول usystblRibbons . شكرا ياباش مهندس كريم واسف على تعب حضرتك نعم بالفعل يا باش مهندس زي ما توقعت انا اللي كان عندي مشكلة في المكتبات اعتقد لأنى الى الان اعمل على نسخة ويندوز 11 بيتا التي كانت تخص المطورين ومكسل اغيرها انا عارف ان دي مكتبة مدمجة وليست خارجية وبالأمس قمت بإزالة أوفيس واستبدلته بنسخة 64 بيت والان المكتبة موجودة وهذه صورة من المرفق بعد تعديلكم عليه طبعا لم استطع التجربة بسبب الدوال 32 إن شاء الله سوف أقوم بالتعديل عليها لتعمل على النواتين وأخبركم حتى تضع الأكواد الجديدة في تطبيقكم ليعمل ان شاء الله مستقبلا على النواتين ولكن لاحظ رقم المكتبة في الصورة عندي 16 كما أخبرتكم يا باش مهندس رقم المكتبة سوف يتغير على كل جهاز تبعا لإصدار الأوفيس الذى تم إعداده على الجهاز فيكون كالاتي الأوفيس 2007 = 12 الأوفيس 2010 = 14 الأوفيس 2013 = 15 الأوفيس 2016 = 16 الأوفيس 2019 = 16 كل الشكر والتقدير يا باش مهندس كريم على تعب حضرتك وتصحيح غلطتي في المرفق وهديتكم القيمة و الأكثر من رائعة وان شاء الله لي عودة في أقرب وقت بعد التعديل على الدوال في الوحدات النمطية لتعمل على النواتين ان شاء الله

انا اسف يبدو أنى لم انتبه جيدا لطلبكم واختلط على الامر وظننت انكم تريدون تشغيل الكود الذى أشرتم اليه في طلبكم

اهلا اهلا اهلا أستاذي الجليل سعيد بمروركم ومشاركتكم أستاذي الان اواجه مشكلة لأنى قمت بتغير الأوفيس الى النواة 64 بيت سأقوم بالتعديلات اللازمة ان شاء الله لأرى ابداعاتكم ولمساتكم

السلام عليكم استأدى الجليل ومعلمي القدير و والدى الحبيب أستاذ @jjafferr ان شاء الله راح ارجع افصل كل شيء في موديول خاص به بالنسبة للتعديلات ان شاء الله راح افهمها.. سلمت اياديكم أستاذي الجليل ولكن هنا في مشكلة اذا تم تصغير قاعدة البيانات بجوار الساعة عند الضغط عليها بالماوس لا تعود تظل في وضع الـ minimizes to system tray وللاسف كان السبيل الوحيد لاغلاق الاكسس من خلال الـ Task Manager

السلام عليكم ورحمة الله تعالى وبركاته اساتذتى الكرام صباح الخيرات حالوت التعديل على قاعدة البيانات المرفقة حتى تعمل على كل من النواتين 32 , 64 ولكن حدثت مشكلة فى السطر الاتى lpPrevWndProc = apiSetWindowLong(hwnd, GWL_WNDPROC, AddressOf fWndProcTray) وبالأخص فى تلك الجزئية من السطر AddressOf fWndProcTray هل هناك حل لذلك القاعدة المرفقة هى القاعدة الأصلية تحسبا ان كان هناك خطأ منى عند محاولة تحويل الاكواد هل اجد من يتصدق على بتحويل القاعدة وحل المشكلة جزاكم الله خيرا لم اقوم بوضع مشاركتى الا بعد عناء طويل مرير من البحث Utilities Hide Ico Minimze To SysTray V.02.zip

رائع جدا استاذى القدير ومعلمى الجليل ما شاء الله

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

لا تحتاج الى عمل وحدة نمطية اكثر من مرة ولا تحتاج الى تكرار الاكواد بدون داعى فقط لابد من إزالة Exit Function وموقعها في الكود بين الروتين الذى يتم تطبيقه على النماذج والروتين الذى يتم تطبيقه على التقارير ولم يتم تغيير الخط فقط في التقارير بسبب الخروج من الروتين بسبب هذا السطر والأفضل من استخدام On Error Resume Next استخدام كود تصيد الأخطاء ErrorHandler لتتمكن من الوقوف على سبب ومكان وتوصيف ورقم الخطأ وتمت التعديلات كالاتي إزالة Exit Function تغيير اسم الروتين العام حتى يتناسب مع الوظيفة التي يقوم بها ليسهل مستقبلا لأى مطور التعامل بسهولة في قاعدة البيانات إضافة كود تصيد الأخطاء ErrorHandler للوقوف على سبب ومكان وتوصيف ورقم الأخطاء حتى يسهل تفاديها إن وجدت أخطاء إضاقة متغير ثابت في أول الكود ليتم وضع اسم الخط فقط مرة واحدة في الروتين من باب المرونة والتسهيل على المطور ملاحظة هامة جدا جدا لابد من تغير اسم الخط الذى قمت انا باستخدامه في الوحدة النمطية وهو Calibri (Detail) باسم الخط الذى تريد أنت التغيير إليه وقمت بوضع هذا التلميح للتذكير في الوحدة النمطية عند المتغير الثابت الذى يحمل اسم الخط <<---------< Font name must be changed here between the quotation marks يتم استدعاء الكود من خلالChange Font.mdb Call ApplyDefaultFont وأخيرا الروتين والذى يتم وضعه داخل وحدة نمطية Function ApplyDefaultFont() On Error GoTo ErrorHandler Const strFontName = "Calibri (Detail)" ' <<---------< Font name must be changed here between the quotation marks Dim frm As AccessObject Dim rpt As AccessObject Dim dbs As Object Dim frm1 As Access.Form Dim rpt1 As Access.Report Dim ctl As Access.Control Set dbs = Application.CurrentProject ' Apply Default Font for All Forms For Each frm In dbs.AllForms DoCmd.OpenForm frm.Name, acDesign Set frm1 = Forms(frm.Name) For Each ctl In frm1.Controls If ctl.ControlType = acComboBox Or _ ctl.ControlType = acCommandButton Or _ ctl.ControlType = acLabel Or _ ctl.ControlType = acListBox Or _ ctl.ControlType = acOptionButton Or _ ctl.ControlType = acTextBox Then ctl.FontName = strFontName 'Debug.Print frm.Name & " > " & ctl.ControlType & " > " & ctl.Name If frm1.DefaultView = 2 Then frm1.DatasheetFontName = strFontName End If End If Next ctl DoCmd.Close acForm, frm.Name, acSaveYes Next frm ' Apply Default Font for All Reports For Each rpt In dbs.AllReports DoCmd.OpenReport rpt.Name, acDesign Set rpt1 = Reports(rpt.Name) For Each ctl In rpt1.Controls If ctl.ControlType = acComboBox Or _ ctl.ControlType = acCommandButton Or _ ctl.ControlType = acLabel Or _ ctl.ControlType = acListBox Or _ ctl.ControlType = acOptionButton Or _ ctl.ControlType = acTextBox Then ctl.FontName = strFontName 'Debug.Print rpt.Name & " > " & ctl.ControlType & " > " & ctl.Name If rpt1.DefaultView = 2 Then frm1.DatasheetFontName = strFontName End If End If Next ctl DoCmd.Close acReport, rpt.Name, acSaveYes Next rpt Set frm = Nothing Set rpt = Nothing Set dbs = Nothing Set frm1 = Nothing Set rpt1 = Nothing Set ctl = Nothing Exit Function ExitHandler: Exit Function ErrorHandler: MsgBox "Error Number : " & Err.Number & vbNewLine & "Error Description : " & Err.Description End Function وهذا مرفق التطبيق لتعم الفائدة ويكون مرجعا سهلا ان شاء الله Change Font.mdb