نجوم المشاركات

بناءً على إقتراح أستاذنا @Moosak تم إضافة ميزة " التسمية التوضيحية - Caption " للحقول . تم إضافة ميزة " التعرف على حقل الترقيم التلقائي " عند وجوده والتخيير بين جعله مفتاح أساسي أو لا . في حال عدم وجود حقل ترقيم تلقائي ، سيتم التنبيه بعدم وجوده وإنشاء حقل جديد ID = AutoNumber ؛ والتخيير أيضاً بإنشائه أو لا . وعند إنشائه سيكون له خاصية مفتاح اساسي PrimaryKey . 💡ملاحظة : في التعديل القادم سيتم إتاحة الفرصة للمستخدم بالتعديل على الحقول قبل إنشاء الجدول كخطوة أخيرة 🤗 TBL Maker.accdb

السلام عليكم اعتذر جدا جدا جدا لكم اساتذتى الافاضل @Moosak , @عمر ضاحى اثناء تجربتى للتعديلات لم اقم الا باضافة حقل واحد لضيق وقتى لذلك لم تظهر المشكلة والان بفضل الله تم تدارك المشاكل وحلها جميعا يرجى الرد بنتيجة التجربة وانتظروا تحديث جديد ان قدر الله لنا اللقاء ان شاء الله Create advanced tables V 2.0.1 .accdb

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

حيلك حيلك يا عم انت رايح فين هههه فرمل و وقف وخد نفس ؛ إنت ما صدقت يا سيد بمزح والله يا محمد مش قصدي كل اللي خطر في بالك مش قلتلك من زمان ما نكشتكش وهزرت معاك هههههههههه

مين قال انه صعب هذه الفكرة الاولى لتعديل المرفق الاساسى والتعديلات كالاتى - من الجدول : tblHolidaySettings يتم تحديد ايام الاجازات الاسبوعية لتغير لونها فى نموذج الـ frmCalendar لتكون باللون الاحمر ويمكن تغير اللون من الكود من السطر HolidayColor = vbRed - تم عدم تفعيل ايام العطلات تبعا للتواريخ الموجودة بالجدول : tblPublicHolidays - تم اضافة Label بأسفل النموذج frmCalendar لعرض تواريخ العطلات واسمائها والغير مفعلة فى النموذج ليكون المستخدم على علم بسبب عدم تفعيل هذه التواريخ calendar V 2.0 .accdb

رحم الله والديك .. وجمعك معهما في الفردوس الأعلى ,, وغفر لنا ولكم ولجميع المسلين

إخواني الأعزاء بعد سلام الله عليكم رحمة الله وبركاته محتاج شاشة رئيسية للبرنامج تكون متقدمة وذات ذوق رفيع

السلام عليكم ورحمة الله وبركاته ، أخواني وأساتذتي ومعلمينا ( دون استثناء ) قمت بتنفيذ فكرة لأنشاء الجداول بطريقة مختلفة عن الطريقة التقليدية التي نعرفها .. إلا أنها ما زالت قيد التطوير الفكرة تعتمد على نموذج واحد فقط يمكّن المستخدم من إنشاء جداوله والحقول التي تحتويها ونوع الحقول بشكل سهل وبسيط . أولاً انقر على الزر " أنشاء حقل جديد ... " ثانياً قم بملئ الحقول ( اسم الجدول ، اسم الحقل ، نوع الحقل ) ، عند اختيار نوع الحقل سيتم إضافة الحقل الجديد الى الـ List Box تسلسلاً حسب الإدخال . عند الإنتهاء من إدخال جميع الحقول وأنواعها ، انقر الزر " إنشاء الجدول ... " ، وهنا سيتظهر رسالة تفيد بأنه ( لابد من وجود حقل مفتاح أساسي ، هل ترغب بتعيين حقل مفتاح أساسي ؟ ) عند اختيار Yes - نعم سيتم تعيين أول حقل كمفتاح أساسي ؛ وإذا تم اختيار No - لا سيتم انشاء الجدول دون مفتاح أساسي . عند إنشاء الجدول سيتم تصحيح عدة نقاط بشكل تلقائي وهي :- إزالة المسافة من اسماء الجداول واستبدالها بـ " _ " . إضافة الجزء "_Tbl" الى اسم الجدول عند انشائه . أيضاً إزالة المسافة من أسماء الحقول واستبدالها بـ " _ " . الملف مفتوح المصدر TBL Maker.accdb بناءً على إقتراحات أستاذي وصديقي @Moosak ، والتعديلات التي تقدم بها صديقي وأستاذي @ابو جودي ، تم دمج وإضافة تعديلات جديدة أرجو أن تنال رضاكم وإعجابكم . تم إضافة ميزة أن يكون في الجدول أكثر من حقل مفتاح أساسي . تم إضافة ميزة التعديل على الحقول أو حذف أحد الحقول قبل إنشاء الجدول من خلال زر " تعديل الحقول " ، وبعد إجراء التعديلات انقر زر " تأكيد التعديل ". تم دمج ميزة حرية إضافة " _Tbl " الى اسم الجدول عند انشائه ( فكرة الأستاذ أبو جودي مع إجراء تعديل بسيط ) - إختياري . تم دمج ميزة أن يكون أسماء الجداول والحقول ( الإنجليزية ) تبدأ بحرف كبير Capital Letter . تم إضافة ميزة فتح الجدول بعد انشائه لرؤية النتيجة أو لإدخال البيانات - إختياري . تم إضافة زر " مفتاح أساسي " لتمكين المستخدم من اختيار الحقول التي يريدها أن تكون مفتاح أساسي . تم إضافة زر " إضافة حقل " لإضافة حقل جديد . تم تعديل التصميم بشكل بسيط ليتناسب مع محتوياته والميزات الجديدة . ✔ لا حاجة لأي مكتبات أو مديولات عند نسخ النموذج لمشروعك والبدء بالإستفادة من ميزاته . ✔ أتطلع لأي أفكار جديدة أو اقتراحات TBL Maker.accdb680 kB · 7 downloads تم تعديل منذ 7 ساعات بواسطه Foksh

شكر وتقدير واحترام من اخيك

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

ماشي يا عم .. بيظهر في المواقع التالية :- 2. وجاري التعديل في نسخة جديدة محسنة بناءً على فكرتك إذا ما عندكش مانع لا سمح الله

انت تعرف أن الوصف ده بيظهر فى النموذج واللا معندكش فكرة

جزاك الله خيرا وبارك الله لك فيما رزقك وأصلح لك البال والذرية.

يعمل جيدا سلمت يداك ومنتظرين الجديد بشوق

لم انتبه لهذا التحديث شغال 100% ما شاء الله يجعله ربنا فى ميزان حسناتك

معلم .. ومنك نتعلم 😇 بس لسه فيه رسائل خطأ بتظهر عند إنشاء الجدول .. وما يكملش .. وهذه تظهر في حال التعليم على الخيار

اللهم امين يا رب العالمين لكن استاذى الكريم @ابو جودي حصل خطأ معي 😁

يعمل بكفاءة ما شاء الله تبارك الرحمن 😎👌 غفر الله لك ولوالديك ورحمهما كما رباياك صغيرا .. 🤲

الله عليك استاذنا @M.Abd Allah فينك من زمااااان جيب لي راسك اقبلها 😘 بارك الله فيك وجزاك الله عني خير شكرا لردك وكذلك انك خصصت من وقتك الثمين لأعطائي الحل حفظك الله ورعاك وزادك الله نورا وعلما

يمكنك وضع الكود التالي في Private Sub Workbook_Open Private Sub Workbook_Open() ' هنا اسماء الاجهزة المسموح للمصنف الاشتغال عليها If Environ("computername") <> "CFAMURAD" And Environ("computername") <> "Officena" Then 'عند عدم تحقق الشرط يتم اظهار الرسالة وغلق الملف Application.DisplayAlerts = False MsgBox " لا يمكنك تشغيل هدا المصنف على هدا الكمبيوتر " & _ vbLf & vbLf & " .......... المرجوا الاتصال", _ vbOKOnly + vbExclamation + vbDefaultButton1 + vbApplicationModal, "معلومات" ThisWorkbook.Close Application.DisplayAlerts = True End If End Sub يستحسن وضع باسوورد لمحرر الاكواد لكي لا يتم التلاعب بالملف فتح المصنف على اجهزة محددة.rar