الإصدار 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:

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

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

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

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

[hanan_ms]

 يوجد اخطأ يا موسى  

1- كود او دالة تتعرف على نوع الحقل اذا كان للمرفقات او حقل مفتاح اساسي يتغير كود من SQL الى DOA 

ما يشتغل وكود فحص كل حقل في SQL

الى فارغ استبدل كل من Null 

 

2-تعرف على علاقات الجدول وضبط النموذج اذا كان نموذج فرعي 

3.4.To 7

 ( هدية بسيطة طورها وصلة في الى الرابع هذي الاولى شغال ( ياخذ كافة العلاقات الجداول ويحفظها في الجدول عند اعادة ربط الجداول يعيد اعادة ربط العلاقات

 

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

Objects List 3.0.rar

[hanan_ms]

[hanan_ms]

للتعدين على العملات يوجد منتجات تكثيف الطاقة كأنك مشغل مصباح يحول مثال 1000 الى 100000 عن طريق المكثف او المحرك اشتر عدد مناسب من المنتاجات وتأكد ان التعدين يكون مخالف فقط لاستهلاك العالي للكهرباء فقط حسب الدولة والحل الثاني تشتري شقة في الخارج اذا كنت متقاعد وسهلة ولا اعتقد ولا يوجد قاعدة بيانات او برنامج يساعد على العملية وتنصح الكثير تجنب ماي سكول او اوريكل او الاوراكل اي اتصال انترنت مضيف للقاعد بيانات في مستقبل سيكون ممنوع مخالف وجريمة تعدي على البيانات لإمكانية بيع للطرف الثالث واعتقد الحلول اتفاقية مع المؤسس وشراء ترخيص ولكن الحل هو نطاق المحلي مع قدرة AI 

[hanan_ms]

احدى انواع المخلفات :

(مخالفات غسيل البيع يقوم المستهل بشراء سلع بتقسيط ثم ينتظر بضع اشهر للشركة للحصول على المبلغ كامل مع مخالفة( دخول طرف آخر لمشاركة البيانات وتعاقد للتحصيل  

في امور سوف تتغير في الاشهر المقبلة وتعديل عليها اما الغاء نشاط التحصيل نهائيا سوف يلغا او يعدل علية مع اتفاقية البيانات مع تأكد من عدم استغلالها  بطريقة غير شرعية وسوف تتغير ادوات لا يمكن حجز مركبات او منع سفر سوف يكون حجز البنوك على المبلغ القسط الذي كان متفق علية الى الانتهاء فقط ويمنع طلب المبلغ كامل لو من البداية اشتراه ويوجد بعض التعديلات على صلاحية التنفيذ لا يوجد مبرر لاي اجراءات اذا كان موظف ولدية راتب او مقيم ولدية راتب 

ننتظر الانتهاء من الحروب واجازة صيفية