Foksh

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

الشكر لله وحده أخي @Zooro1 على ما أنعم علينا من فضله وعلمنا ما لم نعلم أنت كمصمم للبرنامج يجب أن يكون لديك نسخة غير مقفلة ( Accde ) ، إحتياطاً لأي تعديلات أو تحديثات ، أو في أسوء الظروف تلف قاعدة البيانات الأمامية .

وعليكم السلام ورحمة الله وبركاته أخي @Zooro1 .. بالنسبة لي ومن وجهة نظري ، يجب أن يكون المشروع مقسماً ( قاعدة بيانات أمامية للنماذج والمديولات ... الخ ) و ( قاعدة بيانات خلفية للجداول فقط ) . أيضاً وجود نسخة مفتوحة المصدر ( Accdb ) من آخر تعديل تحسباً وإحتياطاً لأي طارئ . وأعتقد أيضاً وجود فكرة النسخة الإحتياطية هام في بعض الأحيان ( حسب طبيعة المشروع ) . الإبتعاد عن إرفاق الملفات ( صور أو ملفات Pdf ... إلخ ) كمرفقات داخل قاعدة البيانات ، بل الإستعانة عنها بالمسارات وحفظ المرفقات في مجلدات خارج قاعدة البيانات . برأيي هناك أيضاً فكرة وجوب زر ( ضغط وإصلاح ) لقاعدة البيانات يتم عمله على الأقل كل اسبوع مرة واحدة ( وليس بشكل دوري ومتكرر كثيراً ) . هذه النقاط التي تحافظ على نشاط قاعدة البيانات وعدم إتلافها .

أخي الكريم ، ليس المشكلة في عدد الأعمدة الموجودة في الجدول ، وإنما في التقرير !! إذا لم تكن جميع الأعمدة والحقول مهمة لعرضها في التقرير ، فقد تضطر إلى بناء التقرير بفكرة مختلفة عن فكرة الأعمدة التي تتصورها حالياً ,, عموماً ابدأ بإنشاء الجداول أولاً مراعياً مايلي ليصبح الأمر أسهل عليك أثناء بناء الإستعلامات والأكواد .. تجنب قدر الإمكان استخدام مسميات باللغة العربية لأسماء الحقول في الجداول . تجنب استخدام الرموز الغريبة في الأسماء للحقول . تجنب استخدام المسافات في أسماء الحقول والجداول واستبدلها بـ " _ " إشارة Under Score . تجنب استعمال اسماء حقول مستخدمة ومحجوزة من برنامج أوفيس كمثال ( Date , Name , From , To, .... إلخ ) . فهذه الإسماء يستخدمها أكسيس في أكوادة ودواله والمسميات الخاصة به . لا تبدأ اسم الجداول أو الحقول برقم . حاول أن يكون في كل جدول حقل مفتاح أساسي إنشاء العلاقات بين الجداول والربط فيما بينها . هذا ما يحضرني فيما يخص إنشاء الجداول والحقول في الوقت الحالي .

شكراً لتحاوبك معنا . اولاً تستطيع التعديل على البوست خلال 8 ساعات إن لم مخطئاً. ثانياً بالنسبة لطلبك فأنت تحتاج المساعدة في بناء مشروع كامل متكامل حسب ما فهمت من طلبك ، وهذا سيعتمد على أوقات الفراغ لدى الإخوة والأساتذة الذين يتابعون موضوعك. واختصاراً للوقت ، حاول جاهداً إنشاء الحداول على الأقل ( حتى لو كانت غير صحيحة من ناحية التصميم ) ، ولكن اجعل حجر الأساس يأتي بيديك أولاً وستجد الكثير من المساعدات في الردود. ثالثاً اجعل طلبك مقسماً في عدة مواضيع ، يعني اولا تأسيس الجداول ، وبعد الانتهاء منها افتح موضوع جديد للطلب الثاني ، وهكذا 🤗

اخي الكريم أهلاً وسهلاً بك معنا ،، بداية لا مانع من استخدامك أي لغة تريدها في برنامجك ، ولكن اللغة الكردية وإن لم أكن مخطئا السورانية قد لا تجد من يحاول تنفيذ الفكرة التي طلبتها . أعتقد أن هناك حل من اثنين إما كتابة المعطيات باللغة العربية أو الإنجليزية !! هذا من وجهة نظري ولست محكوماً بها 😇 تقبل تحياتي لك 💐

ما شاء الله أستاذنا الكبير @Barna ، عمل جميل وتحوير الأكواد والأفكار خطوة ذكية 🤗

كيف ذلك 🤔 ⁉️ الأصل في التأسيس سلامة منظومة إنشاء البيانات ، فلا يمكن على سبيل المثال أن يكون لمواطنين إثنين نفس الرقم الوطني أو القومي !! وكذلك الأمر للرقم السري .... إلخ. كلام سليم لا غبار عليه ، وللأسف الشديد سيجد النتيجة النهائية غير مرضية مما سيقوده لتلافيها مجبراً لا طوعاً حسب فكرته ، أو الرجوع لنقطة الصفر وإعادة النظر في طريقته وإعادة هيكلتها وتصويبها. في نهاية المطاف لك جزيل الشكر على تعبك ومجهودك العظيم معلمي الفاضل على ما قدمته من تطويع الأفكار حسب رغبة صديقنا الأخ أسعد 😇 وفيما يخص هذه النقطة ، سيترتب عليه وضع شروط أكثر لتحديد وتمييز الطالب الفلاني من بين الاربعة الذين لهم نفس رقم الجلوس عند الاستعلامات والبحث .

متابع بصمت روعة الأستاذ @ابوخليل والأخ @2saad في المناقشة والحلول المقترحة من معلمي الحبيب ابو خليل 🥰

تفضل أخي الكريم ، الأمر يسير ان شاء الله ، الق نظرة على الكود التالي ، وأعتقد ستعرف كيفية عمل فكرتك Private Sub cbo3_AfterUpdate() Me.CN.Value = Me.cbo3.Column(3) Me.TCN.Value = Me.cbo3.Column(4) Me.R.Value = Me.cbo3.Column(5) End Sub وهذا ملفك بعد التعديل محاولة2.accdb

بعد التجربة للطريقتين ، لا يوجد البطئ الذي تتحدث عنه أخي الكريم , هلا قمت بتوضيح المشكلة بشكل منطقي أكثر !!!!

سأكشف لكم عن سر 👀 كنت قد بدأت منذ عدة أيام بإنشاء طريقة تساعد على عمل قوائم مختصرة للنماذج ، ولكنها أخذت مني وقتاً وجهداً كبيرين ، وتوقفت عند مرحلة إعادة تجميع الأفكار 😇 💡 قريباً النسخة الأولى 💡

لديك أكثر من خيار ,, الأول ان تقوم بإرفاق ملف ليتم التطبيق عليه .. ثانياً تقدر تحط الأكواد في حدث عند التحميل ، هذا يعتمد على طريقة تصميمك للنموذج

اخي الكريم / أختي الكريمة أولاً لتلافي اغلاق اي موضوع غير متقيد بقوانين المنتدى ، أرجو منك مستقبلاً الإهتمام بطريقة نشر المواضيع الخاصة بك بحيث يتم ارفاق ملف لتطبيق العمل عليه . الآن لنفترض أن الحقول تم تسميتها بالشكل التالي لتسهيل كتابة الأكواد :- الرقم = ID اسم الفاكهه = Name_F الوزن = Wazn اسم الجدول = Hanen الآن سيتم انشاء 3 مربعات نص ( على سبيل المثال = Text1 , Text2 , Text3 ) لعدد الحقول التي وزنها أكبر من 6 كيلو Me.Text1.value =DCount("*", "Hanen", "[Wazn] > 6") لعدد الحقول التي وزنها بين 4 و 6 كيلو Me.Text2.Value = DCount("*", "Hanen", "[Wazn] BETWEEN 4 AND 6") لعدد الحقول التي وزنها أقل من 2 كيلو Me.Text3.Value = DCount("*", "Hanen", "[Wazn] < 2")

ما شاء الله أستاذة @hanan_ms ،، جمعتي كل الدوال الخاصة بالأمر DoCmd.RunCommand بنجاح .. عمل جميل وفكرة حلوة قد تساعد البعض في الوصول الى مناطق معينة في آكسيس دون عناء البحث عنها

لا اعلم ان كان الذي فهمته صحيح أم لا ,, تفضل هذا التعديل البسيط 101.accdb

تم إصلاح بعض الأخطاء البرمجية ( تحسين أداء ) ، وإضافة ميزة التعرف على لغة أوفيس ( عربي - إنجليزي ) فقط . بحيث :- يتم التعرف على اللغة في واجهة أوفيس للمستخدم بحيث تظهر أسماء أنواع الحقول باللغة الإنجليزية إذا كان إصدار أوفيس باللغة الإنجليزية ، وخلاف ذلك تظهر القائمة المنسدلة لأنواع الحقول باللغة العربية . TBL Maker.accdb

عمل جميل جدا ، تسلم إيديكي على هذا العمل ، لي ملاحظة ، وهي ظهور الفرق بين تاريخين -5 شهر ، أو العدد بالايام -170.. هل هذا منطقي ؟؟؟؟

أهلا وسهلاً اخي الكريم معنا في عالمنا المتواضع ,, ارجو منك مستقبلاً ان تهتم أكثر بقوانين المنتدى بحيث :- تقوم بشرح المطلوب بشكل واضح و وافي ، وإرفاق ملف ليتم التعديل عليه وضمان النتيجة . جرب هذا الكود من أحد ملفاتي :- Function GetMotherboardSerialNumber() As String Dim wmiObject As Object Dim item As Object Dim computerName As String Dim motherboardUUID As String Set wmiObject = GetObject("winmgmts:\\") For Each item In wmiObject.ExecQuery("SELECT * FROM Win32_ComputerSystemProduct") computerName = item.Name motherboardUUID = item.UUID Next item GetMotherboardSerialNumber = computerName & ", " & motherboardUUID End Function واستدعي النتيجة في أي مربع نص من خلال :- Me.TextBox = GetMotherboardSerialNumber()

كلامك سليم مهندسنا الغالي .. تم تعديل الخلل في المرفق

حبيبي يا استاذ عمر ده من زووء حضرتك

للجزء الأول من طلبك ، عليك تحديد شرط لتحديث قيمة في الجدول وستكون الحقل ID استبدل السطر DoCmd.RunSQL "UPDATE Table1 SET Table1.[Case] = '" & Date & "';" بالسطر التالي DoCmd.RunSQL "UPDATE Table1 SET Table1.[Case] = '" & Date & "' WHERE Table1.ID = " & Me.ID & ";" الجزء الثاني غير واضح بالنسبة لي .. ماذا تريد بعد ان يتم حذف التاريخ من الحقل !!!!!!

في حدث عند النقر:- me.text1.value = date

بناءً على إقتراحات أستاذي وصديقي @Moosak ، والتعديلات التي تقدم بها صديقي وأستاذي @ابو جودي ، تم دمج وإضافة تعديلات جديدة أرجو أن تنال رضاكم وإعجابكم . تم إضافة ميزة أن يكون في الجدول أكثر من حقل مفتاح أساسي . تم إضافة ميزة التعديل على الحقول أو حذف أحد الحقول قبل إنشاء الجدول من خلال زر " تعديل الحقول " ، وبعد إجراء التعديلات انقر زر " تأكيد التعديل ". تم دمج ميزة حرية إضافة " _Tbl " الى اسم الجدول عند انشائه ( فكرة الأستاذ أبو جودي مع إجراء تعديل بسيط ) - إختياري . تم دمج ميزة أن يكون أسماء الجداول والحقول ( الإنجليزية ) تبدأ بحرف كبير Capital Letter . تم إضافة ميزة فتح الجدول بعد انشائه لرؤية النتيجة أو لإدخال البيانات - إختياري . تم إضافة زر " مفتاح أساسي " لتمكين المستخدم من اختيار الحقول التي يريدها أن تكون مفتاح أساسي . تم إضافة زر " إضافة حقل " لإضافة حقل جديد . تم تعديل التصميم بشكل بسيط ليتناسب مع محتوياته والميزات الجديدة . ✔ لا حاجة لأي مكتبات أو مديولات عند نسخ النموذج لمشروعك والبدء بالإستفادة من ميزاته . ✔ أتطلع لأي أفكار جديدة أو اقتراحات TBL Maker.accdb