ابو جودي

______ __ __ ___ .__ __. _______ _______ __ ______ ______ .__ __. / || | | | / \ | \ | | / _____|| ____| | | / | / __ \ | \ | | | ,----'| |__| | / ^ \ | \| | | | __ | |__ | | | ,----'| | | | | \| | | | | __ | / /_\ \ | . ` | | | |_ | | __| | | | | | | | | | . ` | | `----.| | | | / _____ \ | |\ | | |__| | | |____ | | | `----.| `--' | | |\ | \______||__| |__| /__/ \__\ |__| \__| \______| |_______| |__| \______| \______/ |__| \__| تغيير شعار ميكروسوفت أكسس في TASK Manager في النموذج المرفق واستبداله بأيقونة أخرى يتم استدعاء الروتين من خلال وضع الكود الاتى فى حدث عند تحميل نموذج Call Xicon مع مراعاة تغيير البيانات الاتية فى رأس الموديول اسم التطبيق AppName اسم الايقونة بدون الامتداد icoName وتم عمل الكود على ان الايقونة فى نفس مسار القاعدة فى حالة تغيير مكان الايقونة لابد من تغير المسار فى الروتين AppIcon() Const AppName = "www.officena.net" Const icoName = "officenaIco" Public Function AppIcon() AppIcon = CurrentProject.Path & "\" & icoName & ".ico" End Function Public Function AccessIcon() AccessIcon = (SysCmd(acSysCmdAccessDir) & "MSACCESS.EXE") Debug.Print AccessIcon End Function Function AddAppProperty(strName As String, _ varType As Variant, varValue As Variant) As Integer Dim dbs As Object, prp As Variant Const conPropNotFoundError = 3270 Set dbs = CurrentDb On Error GoTo AddProp_Err dbs.Properties(strName) = varValue AddAppProperty = True AddProp_Bye: Exit Function AddProp_Err: If Err = conPropNotFoundError Then Set prp = dbs.CreateProperty(strName, varType, varValue) dbs.Properties.Append prp Resume Else AddAppProperty = False Resume AddProp_Bye End If End Function Function Xicon() On Error GoTo ErrHandler Dim dbs As Object Set dbs = CurrentDb() Dim intX As Integer Const DB_Text As Long = 10 ' AppTitle intX = AddAppProperty("AppTitle", DB_Text, AppName) ' AppIcon Dim Chk Dim MyIcon As String Set Chk = CreateObject("Scripting.FileSystemObject") If Chk.FileExists(AppIcon()) = False Then MyIcon = (SysCmd(acSysCmdAccessDir) & "MSACCESS.EXE") Else MyIcon = AppIcon() End If intX = AddAppProperty("AppIcon", DB_Text, MyIcon) dbs.Properties("UseAppIconForFrmRpt") = 1 Application.RefreshTitleBar exitProc: Exit Function ErrHandler: If Err = 3270 Then Resume Next Else MsgBox Err & Err.Description Resume exitProc End If End Function ---------------------------------------------------------------------

اتقضل يا سيدى 1569184222_GenerateOrReadQRCodeImageV.02.mdb

وعليكم السلام تعتمد طريقتى على الاكواد داخل موديول عام والذى يتم استدعاؤها من خلال وضع الكود الاتى فى حدث عند تحميل نموذج Call Xicon والكود داخل الموديول هو مع مراعاة تغيير البيانات الاتية فى رأس الموديول اسم التطبيق AppName اسم الايقونة بدون الامتداد icoName وتم عمل الكود على ان الايقونة فى نفس مسار القاعدة فى حالة تغيير مكان الايقونة لابد من تغير المسار فى الروتين AppIcon() Const AppName = "Alia Yusr El Din" Const icoName = "4" Public Function AppIcon() AppIcon = CurrentProject.Path & "\" & icoName & ".ico" End Function Public Function AccessIcon() AccessIcon = (SysCmd(acSysCmdAccessDir) & "MSACCESS.EXE") Debug.Print AccessIcon End Function Function AddAppProperty(strName As String, _ varType As Variant, varValue As Variant) As Integer Dim dbs As Object, prp As Variant Const conPropNotFoundError = 3270 Set dbs = CurrentDb On Error GoTo AddProp_Err dbs.Properties(strName) = varValue AddAppProperty = True AddProp_Bye: Exit Function AddProp_Err: If Err = conPropNotFoundError Then Set prp = dbs.CreateProperty(strName, varType, varValue) dbs.Properties.Append prp Resume Else AddAppProperty = False Resume AddProp_Bye End If End Function Function Xicon() On Error GoTo ErrHandler Dim dbs As Object Set dbs = CurrentDb() Dim intX As Integer Const DB_Text As Long = 10 ' AppTitle intX = AddAppProperty("AppTitle", DB_Text, AppName) ' AppIcon Dim Chk Dim MyIcon As String Set Chk = CreateObject("Scripting.FileSystemObject") If Chk.FileExists(AppIcon()) = False Then MyIcon = (SysCmd(acSysCmdAccessDir) & "MSACCESS.EXE") Else MyIcon = AppIcon() End If intX = AddAppProperty("AppIcon", DB_Text, MyIcon) dbs.Properties("UseAppIconForFrmRpt") = 1 Application.RefreshTitleBar exitProc: Exit Function ErrHandler: If Err = 3270 Then Resume Next Else MsgBox Err & Err.Description Resume exitProc End If End Function testIcon.zip

على كل حال جرب المرفق ولى عودة ان كان هناك جدوى 12.accdb

ممكن نعرف ايه المقصود من 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