Moosak

الله ينور باش مهندس 🙂🌹 أنت العملاق يا بروف

ما شاء الله تبارك الرحمن 😀 من أجمل المواضيع التي أنزلتها أخي @منتصر الانسي .. جزاك الله كل خير .. 😊 مكتبة غنية شاملة واستعراض جميل جدا للأكواد والأمثلة .. تبارك الله ... وسلمت يمناك 🌹 هذه الخدمة تغني عن تصميم عشرات النماذج التنبيهية والإرشادية 🙂

تفضل أخي عبدالعزيز @Abdelaziz Osman 🙂 هذا الاستعلام لو بتشغله في ال VBA : ' DELETE statement | جملة DELETE Dim sqlDelete As String sqlDelete = "DELETE FROM [TABINDX]" sqlDelete = sqlDelete & " WHERE [ID] = " & var_ID ' Execute The Query | تنفيذ الاستعلام CurrentDb.Execute sqlDelete وهذ لو بتشغله كاستعلام أكسس : DELETE FROM [TABINDX] WHERE [ID] = var_ID ولا تنسى أن تضع قيمة ال ID المطلوب حذفه مكان الـمتغير : var_ID ولو بتحذف كافة محتويات الجدول تكتب كذا : CurrentDb.Execute "DELETE FROM TABINDX"

شكرا لك حبيبنا @Foksh على هذا العطاء والإبداعات 🙂 وفقك الله لما يحب ويرضى وجعلك من المقبولين .. وجمعك الله بوالديك وأحبابك في أعالي جنات النعيم 😊🤲

كود جميل ما شاء الله .. لكن عيبه أنه يعمل هند فتح النموذج فقط ولا يتم تغيير الأحجام عند تحريك النموذج أو إعادة تحجيمه أثناء فتح النموذج.

ماشاء الله تبارك الرحمن .. شغل حرفنة 🙂 ياريت لو تضيف تطبيق الألوان على الأزرار بعد ... 🖐🏻️

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

إثراءا للموضوع .. 🙂 كنت أستخدم هذا الكود لفحص الحقول المطلوب التأكد من تعبئتها قبل الحفظ : " كود للتأكد من اكتمال تعبئة جميع البيانات المطلوبة في النموذج قبل الحفظ " هذا الكود يوضع في حدث قبل التحديث للنموذج .. ملاحظة مهمة : يجب وضع علامة * في خاصية Tag لجميع الحقول المطلوب تعبئتها .. ( فقط المطلوبة ) Private Sub Form_BeforeUpdate(Cancel As Integer) On Error GoTo HandleError Dim Ctrl As control For Each Ctrl In Me.Controls If Ctrl.Tag = "*" Then If IsNull(Ctrl.value) Or Ctrl.value = "" Then MsgBox "لا يمكن ترك الحقل " & Ctrl.Name & " فارغا", vbMsgBoxRight + vbCritical + vbOKOnly, "حقل مطلوب" Ctrl.SetFocus Cancel = True Exit Sub End If End If Next Ctrl HandleExit: Exit Sub HandleError: If err.Number <> 0 Then MsgBox err.Number & vbCrLf & err.Description End If Resume HandleExit End Sub :: مكتبة الأكواد الخاصة :: وهنا مواضيع سابقة تتكلم عن نفس الموضوع : 🙂

حركة الإرباك هذه تحصل حتى عندما يكون لديك نموذج آخر وهو مفتوح وعليه تايمر .. وأنت تشتغل على نموذج آخر مش عليه تايمر .. أو حتى وأنت تكتب أكوادك في موديول عام .. هذا ما كان يقصده المعلم العود @jjafferr ... ويظهر أن الكود اللي عملته حضرتك يتصرف بنفس الطريقة التي يتصرفها التايمر المضمن في نماذج الأكسس (حسب ما أفاد المعلم العود ) 🙂

وعليكم السلام ورحمة الله وبركاته معلمنا القدير .. 🙂 🌹 وأنا أحد تلاميذك أسمحلي بأن أطرح فكرتي في هذا الموضوع ( وقد عملت على مشروع مشابه) .. 🙂 أولا : نفترض أن الموظف له فترة دوام محددة (من ضمن القائمة التي ذكرتها) بين تاريخين محددين مثال : 1- شهر رمضان له أوقات دوام مختلفة عن باقي الشهور. 2- الموظف أنتقل من موقع عمل لموقع آخر له فترة دوام مختلفة. 3- الموظف تغيرت ورديته من صباحية إلى مسائية أو العكس. 4- والأمثلة كثيرة ..... ثانيا : نقوم بتصميم جدول فرعي لجدول الموظفين (جدول الورديات) يتم فيه إضافة سجل لكل نوع دوام للموظف حسب نوع الوردية وتحديد الفترة الزمنية (من تاريخ) ---> (إلى تاريخ). ثالثا : تصميم نموذج فرعي يضاف لنموذج الموظفين يتم فيه تعبئة هذه البيانات التي ذكرناها في جدول الورديات . رابعا : يتم احتساب مدة العمل والتأخير والانصراف المبكر وعدد ساعات العمل التي أداها الموظف بناءً على فترة دوامه المذكورة في جدول الورديات . وهذه صور توضيحية حسب المشروع الذي عملت عليه وهو خاص ببرنامج لأحد الاخوة 🙂 : جدول الورديات : نموذج بيانات الموظفين + النموذج الفرعي للورديات ( الورديات التي ليس لها تاريخ نهاية هي ورديات مستمرة حتى تاريخ اليوم ولها اعتبار في كود الحسابات) : صورة مقربة للنموذج الفرعي : القائمة المنسدلة للورديات تأخذ بياناتها من جدول فرعي آخر يتم فيه تسجيل أنواع الورديات والبيانات المتعلقة بها : بعد هذا قمنا بتصميم جملة من الدوال الخاصة بجلب البيانات الخاصة بتفاصيل الورديات من الجداول وتطبيقها على الموظفين وحساب ما يطلب حسابه .. هذا باختصار وسلامتكم 🙂

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

طيب كفكرة ممكن تعمل الساعة لحالها في نموذج فرعي وتعمل الحدث في النموذج الفرعي بدون ما يأثر على أحداث النموذج الرئيسي 🙂 Clock In Sub Form.accdb

<<جبتها لك بالنص>> ************************************** السبب في ظهور كلمة "محذوف" (Deleted) في جدول Access المرتبط بقاعدة بيانات SQL Server غالباً يكون: 📌 مشكلة في تعريف المفتاح الأساسي (Primary Key) في الجدول المرتبط عندما تربط جدول SQL Server بـ Access، فإن Access يعتمد على وجود مفتاح أساسي واضح (أو مجموعة مفاتيح فريدة) لتتبع الصفوف. وإذا لم يكن هناك مفتاح أساسي محدد أو كان التعريف غير دقيق، تظهر هذه المشكلة. ✅ الحل إليك خطوات لحل المشكلة: 🛠 1. تأكد من وجود مفتاح أساسي في جدول SQL Server افتح الجدول في SQL Server Management Studio. تأكد أن هناك حقل أو مجموعة حقول مخصصة كمفتاح أساسي (Primary Key). 🛠 2. احذف الربط في Access وأعد ربط الجدول مع تحديد المفتاح الصحيح: الخطوات: في Access، احذف الجدول المرتبط (فقط الرابط، لا تقلق البيانات الأصلية في SQL Server). من الشريط العلوي في Access: اختر "External Data" → ثم ODBC Database. اختر Link to the data source by creating a linked table. اختر مصدر ODBC المرتبط بقاعدة بيانات SQL. بعد تحديد الجدول، سيطلب منك Access اختيار المفتاح الأساسي. حدد الحقل أو الحقول التي تشكل المفتاح الأساسي الحقيقي للجدول (مثلاً: Vou_Detail_ID أو مجموعة من الحقول مثل Vou_ID + Acc_ID إذا كانت تشكل مفتاح مركب). ⚠️ ملاحظات مهمة: إذا لم يكن الجدول يحتوي على مفتاح أساسي في SQL Server، يمكنك إنشاء View في SQL Server تتضمن مفتاحًا فريدًا مؤقتًا (مثل استخدام ROW_NUMBER() أو NEWID()). في بعض الأحيان تظهر هذه المشكلة إذا تم تعديل الجدول يدوياً في Access أو حدث تعارض في الترميز بين SQL وAccess.

شكرا لك حبيبنا @Foksh على هذي العطية الرائعة 🙂 موضوع قديم متجدد وباب الإبداع فيه والتنوع بحر لا ساحل له 😊🖐 وكل فنان وله بصمته فيه .. والأفكار كثيرة لا يمكن حصرها .. لذلك سأكتفي بالتجربة والاستمتاع بهديتك القيمة 😄🌹 فقط مما واجهني عند الضغط على زر ضبط مسار الحفظ بشكل آلي : .. المفروض ينعمل المجلد تلقائيا أليس كذلك ؟! لذلك زر الحفظ يظهر رسالة الخطأ التالية : أنشأت نسخة خاصة بالأمتداد Dat .. ولكن عند الاسترجاع : ملاحظة : النسخ الخاصة لا يتم حفظ بياناتها في الجدول !! وربما التلقائية كذلك (لم أجرب) .. أم هذا مقصود ؟ والباقي راائع كروعتك 😎👌

ما شاء الله تبارك الرحمن ... تقبل الله وجعله في موازين حسناتكم 🙂🌹 عندي بعض المقترحات التحسينية : 1- تفعيل التنقل بين الآيات والسور عن طريق الكيبورد . 2- تمكين البحث والنسخ للآيات . 3- حبذا لو تضاف طريقة لإظهار الآيات الخاصة بالسورة كلها في الصفحة وليس آية آية .. ( تضاف كخيار إضافي للشكل الحالي )>> وهذه يمكن تحقيقها عن طريق عرضها كتقرير في النموذج القرعي وليس كنموذج لكي تلائم السجلات حجم كل آية . تمنياتي لكم بالتوفيق 🙂