ابو جودي

شوف يا سيدى علشان تقدر تعمل الشغل اللى هيتم شرحة لابد من وجود الاتى فى قاعدة بياناتك - الكلاس موديول اللى باسم 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

طيب مبدئيا انا قمت بعمل بعض التعديلات الطفيفة جدا على الكود لأنه كان يتوقف بعد تغيير خطوط النماذج بسبب Exit Function قمت بإزالتها قمت بتغيير اسم الروتين العام حتى يتناسب مع الوظيفة ليسهل مستقبلا لأى احد معرفتها إضافة كود تصيد الأخطاء لمعرفة التوصيف والرقم المناسب لأى خطأ حتى يسهل تفاديه إضاقة متغير ثابت في اول الكود ليتم وضع اسم الخط فقط مرة واحدة ملاحظة هامة جدا جدا لابد من تغير اسم الخط الذى قمت انا باستخدامه في الوحدة النمطية وهو Calibri (Detail) باسم الخط الذى تريد أنت التغيير إليه وقمت بوضع هذا التلميح للتذكير في الوحدة النمطية عند المتغير الثابت الذى يحمل اسم الخط <<---------< Font name must be changed here between the quotation marks يتم استدعاء الكود من خلال 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

اهلا اهلا اهلا اهلا أخي الحبيب وأستاذي الجليل يعلم الله اشتاقت نفسى الى لقياكم فإني احبكم في الله اسال الله تعالى ان يجمعني وإياكم على خيـر دئما أستاذي الجليل.. اعتذر ان تأخرت عليكم في الرد أستاذي ولكن العتب على النظر سامحني

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

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

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

شكر الله لكم وزرقكم خير الدنيا والاخرة من وجهة نظرى المتواضعة والله اعلم على الترتيب C# فيجوال بيزك دوت نت ويلزم للتعامل معهما Sql

طيب يا دكتور ممكن مرفق من القاعدة الاصلية انا وضعت فكرتى حسب المرفق الموجود