Moosak

أهلا بك أخي يوسف ... 🙂 جربت الكود أكثر من مرة وبيفتح عندي ال My Computer على طول في خطوة واحدة .. كيف كتبت الكود أنت ؟

مرجع قيم ماشاء الله 🌼 من زمان نفسي أتعلم عن ال OOP و الكلاس موديول لكن حاسس نفسي ما ملحق 😅🖐 شكرا أخي @athal1 على النقل والمشاركة 🙂🌷

ضع هذا السطر على أمر عند النقر للزر : Shell "explorer shell:MyComputerFolder", vbNormalFocus 🙂

العفو معلمنا العود 😊🌷 الآن صارت أجمل بمرورك 🌼

وعليكم السلام ورحمة الله وبركاته ..🙂 فعلا النسخة قديمة وتحتاج لتحديث يتوافق مع تطورات النسخ الجديدة للواتسأب ..

سعيد جدا لسعادتك بها 😄✌ .. وهناك تحديث مهم لها أيضا قادم في الطريق .. إن شاء الله 😊🌷 التحديث القادم تم إضافة كتابة أكواد ال DB.OpenRecordset للجداول .. قادمة في الطريق العقل المفكر والمبدع المتميز يتكلم .. وناسي أنه هو اللي مكسر الدنيا 😎 هذا واحد من أحلامي ✌ ياليت أحصل فرصة وأعمل درس في جماليات تصاميم النماذج يا ترى هل فيه حد مهتم بهذا الموضوع ؟؟

وعليكم السلام 🙂 عدل كود فتح التقرير هكذا : DoCmd.OpenReport "rprepnu2", acViewPreview, , "[lagnano] >= " & Nz(Me.tt1, 0) & " And [lagnano] <= " & Nz(Me.tt2, 0), acNormal lagna2.accdb

السلام عليكم ورحمة الله وبركاته هذا تحديث بسيط ومهم في نفس الوقت على هذه الأداة الجميلة 🙂 ( عون المثابر في الحصول على أسماء العناصر (الإصدار 3.0)) كما علمتم هذه الأداة صممتها بفضل الله في أكسس تقوم بإحضار وسرد أسماء العناصر لك لكي تستطيع نسخها ولصقها في أي مكان تريد بكل سهولة ويسر 🙂 شخصيا أستفدت كثيرا منها وسهلت علي الكثير من الجهد وقلصت من وقت العمل بحمد الله وفضله. :: ما الجديد في النسخة 3.0 :: تم إضافة خانة في الأخير خاصة بالجداول فقط .. : وهي عند اختيار الجدول يتم كتابة جمل SQL أستعلامات أساسية للجدول المختار مع ذكر أسماء حقول الجدول مع مراعاة أنواع الحقول وكتابتها بشكل سليم في الكود .. طبعا الأداة ستعطيك الجمل الاستعلامية الأربعة SELECT, INSERT INTO, UPDATE ,DELETE والكود الناتج جاهز للصقه مباشرة في محرر الأكواد VBA .. عليك فقط أن تقوم ببعض التعديلات الطفيفة كإزالة الحقول الزائدة أو الغير مستهدفة وكذلك تحديد الشرط Where في حال التحديث أو الحذف مثلا . :: لقطة للنسخة 3.0 :: وهذا مثال على جمل ال SQL الناتجة : ' SELECT statement Dim sqlSelect As String sqlSelect = "SELECT [ID], [First Name], [Last Name], [Gender], [Age], [Email], [Phone], [Education], [Occupation], [Salary], [StaffNumber], [IsActive], [DOB]" sqlSelect = sqlSelect & vbCrLf & " FROM [SampleTable]" '============================================================ ' INSERT INTO statement Dim sqlInsert As String sqlInsert = "INSERT INTO [SampleTable] ([ID], [First Name], [Last Name], [Gender], [Age], [Email], [Phone], [Education], [Occupation], [Salary], [StaffNumber], [IsActive], [DOB])" sqlInsert = sqlInsert & vbCrLf & " VALUES (" & var_ID & ", '" & var_FirstName & "', '" & var_LastName & "', '" & var_Gender & "', " & var_Age & ", '" & var_Email & "', '" & var_Phone & "', '" & var_Education & "', '" & var_Occupation & "', " & var_Salary & ", " & var_StaffNumber & ", " & IIf(var_IsActive, -1, 0) & ", #" & var_DOB & "#)" '============================================================ ' UPDATE statement Dim sqlUpdate As String sqlUpdate = "UPDATE [SampleTable]" sqlUpdate = sqlUpdate & vbCrLf & " SET [ID] = " & var_ID & ", [First Name] = '" & var_FirstName & "', [Last Name] = '" & var_LastName & "', [Gender] = '" & var_Gender & "', [Age] = " & var_Age & ", [Email] = '" & var_Email & "', [Phone] = '" & var_Phone & "', [Education] = '" & var_Education & "', [Occupation] = '" & var_Occupation & "', [Salary] = " & var_Salary & ", [StaffNumber] = " & var_StaffNumber & ", [IsActive] = " & IIf(var_IsActive, -1, 0) & ", [DOB] = #" & var_DOB & "#" sqlUpdate = sqlUpdate & vbCrLf & " WHERE [SomeField] = SomeValue" '============================================================ ' DELETE statement Dim sqlDelete As String sqlDelete = "DELETE FROM [SampleTable]" sqlDelete = sqlDelete & vbCrLf & " WHERE [SomeField] = SomeValue" الشرح القديم للأداة على اليوتيوب 🙂 متابعة ممتعة 😊👌🏼 ولا أستغني عن آراءكم وملاحظاتكم .. 🙂 لتحميل الملف :

وعليكم السلام ورحمة الله وبركاته .. حيا الله بمهندسنا العود @jjafferr 😃🖐 هذي اللخبطة تحصل لما يكون الكود فيه نص عربي وتجى تنسخه لما يكون مؤشر اللغة على الإنجليزي >>> وهذا عندك مثال للتجربة 🙂 : Function GetFileExt(strPath As String) As String ' ÏÇáÉ ááÍÕæá Úáì ÅãÊÏÇÏ ÇáãáÝÇÊ ãÚ ÇáäÞØÉ Dim strFile As String strFile = Right(strPath, Len(strPath) - InStrRev(strPath, "\")) GetFileExt = Right(strFile, Len(strFile) - InStrRev(strFile, ".") + 1) End Function

جرب تبحث هنا 🙂 : https://arbfonts.com/naskh-arabic-fonts/page/15?preview=الجمهورية+الجزائرية

تلخيص جميل جدا .. 🙂 رزقك الله بنوته جميلة .. 👩 .. تتربى في عزك على الطاعة .. 🌷

صوت الضمير 😊🖐️ أمال كل الدوشة اللي عملتها جوة دي تسميها أيه ؟؟ 🙃

سلمت يمناك مولانا @ابو جودي 😃🖐 ... إضافة مميزة وتنسيق يدل على جمال وإتقان صاحبه 😎✌ تم إضافة النسخة الجديدة بتنسيقات وتحسينات المعلم المبدع @ابو جودي

هذي الصرخات هي اللي مجننتنا 😂 من الأشياء اللي لاحظتها على نسخة الأوفيس 365 أن هذولا السطرين ما يشتغلوا معاي .. ولا أدري أيش السبب !!! ولذلك بحثت عن بديل .. فكان ما رأيت وبصراحة ما كثرت من البحث .. أول ما لقيت هذي الأكواد وجربتها أعتمدتها على طوووووول 😅🖐

أنت ناقد جيد ما شاء الله عليك 😅🖐 1- الأول تم تطبيقه بناءا على اقتراحك 🙂 . 2- الثاني : لا أدري 😁👊 جرب وأخبرنا ..

اعرض الملف ⚙🛠🎁 أداة لإصلاح وتعديل النصوص العربية التالفة في الأكواد .. من > ÇáÓáÇã Úáíßã إلى > السلام عليكم :: السلام عليكم ورحمة الله وبركاته :: نظرا لوجود مشكلة عند نسخ النصوص العربية في أكواد VBA وخصوصا عندما تكون لغة النظام معينة على اللغة الإنجليزية .. لذلك قمت بتصميم هذه الأداة لتقوم بإصلاح العبارات العربية التالفة في الكود وإرجاعها إلى أصلها ... مثال : ÇáÓáÇã Úáíßã >>>> تعود لأصلها : السلام عليكم وهذه صورة للأداة : صاحب الملف Moosak تمت الاضافه 04/22/25 الاقسام قسم الأكسيس  

شكرا جزيلا بحجم السماء مهندسنا العزيز @Foksh 😊👏 كفيت ووفيت .. تحفة راااائعة وإضافة قيمة جدا للمكتبة العربية .. جزاك الله عنا كل خير .. وغفر الله لك ولوالديك ولمن تحب 🌹🌷

عمل إبداعي متميز .. من شخص ليس بغريب عليه الإبداع 🙂 فكرة رائعة ومتعددة الخيارات بكل ما يخطر على بال المستخدم .. ماشاء الله عندي مقترحين وهما لايغيران من جمال وروعة العمل : 😁🖐️ 1- بالنسبة لو تم إدخال تاريخ نهاية أصغر من تاريخ البداية .. أقترح أن يتم تبديلهما تلقائيا بدون رسائل خطأ ( يقدم التاريخ الأصغر كتاريخ بداية والأكبر كتاريخ نهاية ) <------ مجرد رأي 😎 2- حبذا لو تضيف خدمة تفقيط التواريخ (وليس الفرق بين تاريخين) ... مثال : 08/04/2024 ------(يصبح)--------> الثامن من شهر إبريل للعام ألفين وأربعة وعشرين للميلاد .. <------ مجرد إقتراح والباقي ما عليه كلام يا سيد المبدعين

هذه محاولتي 🙂 test (MoosaK).accdb

بالفعل أؤيد هذا الرأي 👍🙂 .. والسبب أنك قد تواجه مشاكل كثيرة عند نقل البرنامج من جهاز إلى آخر .. أو عند تبديل نسخة الأوفيس وتغير الأنوية .. ومشاكل أنت في غنى عنها .. أولها هذه المشكلة التي تعرضها الآن 😅

🌹عيدكم مبارك .. وكل عام وأنتم بخير .. تقبل الله منا ومنكم الصيام والقيام وصالح الأعمال 🌹

شكرا يا معلم .. أشتغلت بنجاح 😊👌

السلام عليكم ورحمة الله وبركاته .. كل الشكر والتقدير لك أستاذ @ابو جودي على هذي التحفة الفنية 🙂 أنا جمعت البتاع كله في ملفات لتسهيل التطبيق على الاخوة 🙂 وبعد التجربة لم يتم إنشاء الملف المضغوط وظهرت لي هذه الرسالة من WinRAR : وبعدها : ولكن لا يتم إنشاء الملف !! 🙂 طبعا هذا يحصل في الدوال الثلاث الأولى : وهذه : وهذه : وهذا: وهذا : وهذا : وغيرها ..... 😅🖐🏻 الخلاصة : أنت راجع كل الدوال كلها .. وهناك كم دالة هم اللي أشتغلوا فقط والباقي لا . Automate compression and decompression processes for files and folders.zip

إجعل النموذج في وضع ( نموذج مستمر ) .. وأول ما تختار الوردية بيظهر لك السجل الجديد .. وبعدها تختار الوردية التالية 🙂 : ولضمان عدم إضافة أكثر من 3 ورديات أكتب الكود التالي في حدث عند الحالي للنموذج : والنتيجة 🙂 : قاعدة البيانات2.accdb