Moosak

السلام عليكم ورحمة الله وبركاته هذا تحديث بسيط ومهم في نفس الوقت على هذه الأداة الجميلة 🙂 ( عون المثابر في الحصول على أسماء العناصر (الإصدار 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

أضف هذا السطر قبل كود تعيين الحالة هكذا : If IsNull(Me.نهاية_التاريخ) Then Exit Sub

تفضل 🙂 ra1.accdb

وعليكم السلام ورحمة الله وبركاته 🙂 وكل عام وأنتم بصحة وعافية .. تفضل الحل .. ra1.accdb

بدون الحاجة لأي تدخل برمجي أعتقد أنه بإمكانك إعادة تنسيق وتظبيط تنسيق التقرير وتضغير الحقول والخطوط لتلائم حجم ال A4 مباشرة 🙂 وهذه تجربتي : base_A.accdb

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

شكرا جزيلا أستاذ @kkhalifa1960 مجهود رائع 🙂

جوابا على السؤال قلت سابقا : الكود يقوم بتغيير الرقم الذي في حقل الحالة .. لذلك وبسبب الفرز الذي عملناه سابقا على النماذج سيعود الكتاب تلقائيا للجهة الصادرة منه بعد أن تنتهي منه الجهة الوارد إليها .. 🙂