الإصدار 3 🎁 عون المثابر في الحصول على أسماء العناصر | أداة رائعة للمطورين 🧛🏻‍♂️ || 🎁 الإصدار 3 ✨

[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"

الشرح القديم للأداة على اليوتيوب 🙂 متابعة ممتعة 😊👌🏼

 

ولا أستغني عن آراءكم وملاحظاتكم  .. 🙂 

لتحميل الملف :

 

[ابو جودي]

جزاكم الله خيـــــــــرا

[Foksh]

ما شاء الله ، تحديث جميل للجزئية الهامة عند كتابة جمل SQL ،  

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

 

[ابوخليل]

سبحان الله .. 

كأني لست معكم  في المنتدى هنا .. اول مرة أرى هذه الأداة ..

الأكثر متعة حين اقرأ العنوان وكأني في مكتبة للتاريخ والتراث 

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

الآن : اداتين للخبير والنابغة الفذ الاستاذ موسى الكلباني لا يستغني عنهما اي مبرمج لقواعد بيانات اكسس .. يجب ارفاقهما قبل البدء بتصميم اي مشروع

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

هلا خاطبت الشركة وعرضت عليهم هذا العمل الجميل ...

جزاك الله خيرا وأحسن اليك على بذلك وعطائك .. وحبك لنفع الناس .

[ابو جودي]

9 ساعات مضت, ابوخليل said:

سبحان الله .. 

كأني لست معكم  في المنتدى هنا .. اول مرة أرى هذه الأداة ..

هههههههههه  ما هى دى بركات مولانا ههههههههههه والبخور العمانى 

9 ساعات مضت, ابوخليل said:

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

والدى الحبيب واستاذى الجليل ومعلمى القدير الاستاذ @ابوخليل  ابشر طالما معنا الله ثم مولانا ان شاء الله 

 

وأخيــــــرا الان جاء دورى من نفسي بقه يا مولانا  :  يضاف للمكتبة العامرة

[عمر ضاحى]

الله

الله الله 
اسم الموضوع بيفكرني بكتب العقيدة والدين 😂

سلمت ايديك على التحفه (وكل اعمالك رائعه ما شاء الله)

بص انا عاوز منك تفتح موضوع يخص اختيار الالوان وكيف نختارهم وندمجهم معهم ^_^

 

[Lamyaa]

أداة رائعة جدا .. شكرا لك

[Moosak]

في 11‏/5‏/2025 at 23:09, ابوخليل said:

اول مرة أرى هذه الأداة

سعيد جدا لسعادتك بها 😄✌ ..
وهناك تحديث مهم لها أيضا قادم في الطريق .. إن شاء الله 😊🌷

في 11‏/5‏/2025 at 22:10, Foksh said:

تحديث جميل للجزئية الهامة عند كتابة جمل SQL ،  

التحديث القادم تم إضافة كتابة أكواد ال DB.OpenRecordset  للجداول ..  قادمة في الطريق 

في 12‏/5‏/2025 at 07:22, ابو جودي said:

 ابشر طالما معنا الله ثم مولانا ان شاء الله 

العقل المفكر والمبدع المتميز  يتكلم .. وناسي أنه هو اللي مكسر الدنيا 😎 

في 12‏/5‏/2025 at 08:58, عمر ضاحى said:

انا عاوز منك تفتح موضوع يخص اختيار الالوان وكيف نختارهم وندمجهم معهم ^_^

هذا واحد من أحلامي ✌

ياليت أحصل فرصة وأعمل درس في جماليات تصاميم النماذج 

يا ترى هل فيه حد مهتم بهذا الموضوع ؟؟