Foksh

لا تحتار وإنت في منتدانا 😊 اذا استطعت انسخ قاعدة البيانات واخذف الأمور الخاصة واترك فقط الفورم المسؤول عن كود النسخ الاحتياطي ، وأرسله.

هل يوجد حقل للوقت في الجدول ؟؟ اذا كان لا ، فهنا تحتاج هذا الحقل وسيكون مفيداً لك في البحث والاستعلام.

تفضل أخي الكريم هذا التعديل البسيط ، تم الأخذ بعين الإعتبار الإضافة أو التعديل ، وستلاحظ ذلك أثناء التطبيق . تم الاستغناء عن المديول القديم والماكرو ايضاً . 88.accdb

مشاركة مع الأستاذ @محمد السيسي تفضل أخي @moho58 ، كان السبب أعتقد أن الكود لم يقوم بإنشاء المجلد Backup من تلقاء نفسه ، تم التعديل وحل المشكلة . هذا المرفق تم تعديله . Backup 2024.zip

تفضل أخي ، لعلي أكون قد فهمت طلبك جيداً هذه طريقتين ، واحدة استخدمت فيها Dmax ، والأخرى استخدمات فيها تاريخ اليوم الحالي Date مطعم وجبات.zip

لعدم توافر شبكة لتجربة الكود ، ولكن تفضل بتجربته هذا الكود ، وأعطاء النتيجة . Private Sub Form_BeforeUpdate(Cancel As Integer) Dim recordID As Integer Dim strSQL As String Dim rs As Recordset ' استخراج معرف السجل الحالي recordID = Me.Recordset.Fields("ID").Value ' قم بتغيير "ID" إلى اسم الحقل الخاص بمعرف السجل ' التحقق مما إذا كان هناك مستخدم آخر قد دخل إلى نفس السجل strSQL = "SELECT Count(*) AS RecordCount FROM YourTableName WHERE ID = " & recordID & " AND UserID <> " & Me.UserID Set rs = CurrentDb.OpenRecordset(strSQL) If rs.Fields("RecordCount").Value > 0 Then ' يوجد مستخدم آخر قد دخل إلى نفس السجل MsgBox "يوجد مستخدم آخر قد دخل إلى هذا السجل. لا يمكنك التحديث.", vbExclamation Cancel = True End If rs.Close Set rs = Nothing End Sub

أستاذي الفاضل ، استخدم زر إضافة الكود هذا ( <> ) لوضع الأكواد بشكل سليم في المشاركة . حتى نستطيع قراءة الكود بشكل صحيح. متابع بدون كمبيوتر في الوقت الحالي ، بسبب ظروف خاصة 😬

زماان كان في برامج تعتمد في تغيير اللغة على ملف txt يكون فيه مسميات الأزرار بالعربية في ملف تكست ، والإنجليزية في ملف تكست آخر ، وعند اختيار اللغة يتم استدعاء هذا الملف الخاص بهذه اللغة .

يوجد طريقة أخرى تعمل على جميع النماذج مرة واحدة ، ولكن لها عدة شروط ، سأبحث عنها وأرفقها

تبااارك الله ، وما شاء الله ، إبدااااااع بمعنى الكلمة وتميز يستحق رفع القبعة له دي عايزة قعدة مترتبه ودمااااغ فاصل عن الكوكب ، وهدووووووووء عشان التركيز طبعاً ، والإستمتاع بقراءة المحتوى

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

تفضل أخي @NoorShams ، وأعتذر عن التأخير في ردي . هذا التعديل الذي طلبته في النموذد Form3 وعليه أصبح لديك 3 طرق للبحث * طبعاً أخي الكريم تأكد من النتائج إن كانت صحيحة لأني لم أتحقق لضيق الوقت في العمل. 1111-1.accdb

IsError تستخدم لفحص ما إذا كانت قيمة محددة تُعتبر خطأ أم لا. تُرجع هذه الدالة قيمة منطقية (True أو False) بناءً على وجود خطأ في القيمة المُقدمة لها. وبشكل عام يكون تنسيق الدالة كما يلي : If IsError(القيمة) Then ' التعامل مع حالة الخطأ Else ' التعامل مع القيمة بشكل طبيعي End If على سبيل المثال ، يمكن استخدامها للتحقق مما اذا كانت القيمة التي ستعود كجواب ( وظيفة أو عملية ) هي خطأ أم لا . كمثال على سبي الفرض :- Dim result As Variant result = SomeFunction() ' افتراضيًا، SomeFunction تعيد قيمة ما If IsError(result) Then MsgBox "حدث خطأ!" Else MsgBox "القيمة الصحيحة هي: " & result End If

بارك الله فيك اخي ومعلمي @ابوبسمله ، وبالعكس أنا طالب هنا وبتعلم من الخبرات العظيمة عند أخواني في المنتدى. وبالعكس لم أتضايق بقدر ساعدتي لمناقشتك 🥰

أشكر مداخلتك أخي العزيز @ابوبسمله ، ولكن اسمح لي بسؤال ؛ هل قمت بتجربة الكود على الملف المرفق من الأخت صاحبة الموضوع 😅 !! انتقلنا من فكرة التوضيح إلى فكرة التصحيح بالدرجة الأولى فقط لا غير ، وأشكرك للتوضيح هذه النقطة المهمة

جزاك الله كل خير أخي @ابوبسمله فعلاً كلامك ما تفضلت به ، وقد تم التعديل في الكود الأخير فعلاً 😊

جرب هذا الموضوع للأستاذ @SEMO.Pa3x

لعدم توافر جهاز كمبيوتر في الوقت الحالي.. اقتراح بسيط ، وهو اجعل الشرط لهذا الهقل في مصدر التقرير أن يكون أكبر من صفر .

ولا يهمك ، سيتم التعديل على الكود ليشمل ما طلبت 😊 في المثال الاول كان الموضوع بسيط لان اسملء الحقول متاالية ، لكن مع تغيير اسماء الحقول اختلف الامر قليلاً.

أختي الكريمة يجوز خطأ مطبعي ، على العموم سبق أن ارفقت لك الكود في مشاراكة سابقة ،، If IsNull(Me.NICHE) Then Exit Sub If DCount("ID", "ADHERENTS", "NICHE = '" & Me.NICHE & "' AND NUMERO_REGION = '" & Me.NUMERO_REGION & "'") <> 0 Then MsgBox "Cet ajout ferait doublon !", vbCritical Cancel = True End If

بالنسبة للحل الثاني ، فهو سهل ، فقط احذفي النموذج وأنشئي نموذج آخر جديد ، أما بخصوص :- لم أفهم ما المطلوب ولكن في الحل الذي قدمته لك الشرطين يعملان في نفس الوقت لمنع التكرار .

أختي الكريمة يبدو أن الملف المرفق فيه مشكلة في الـ VBA ، فعند وضع أي كود عن طريق الـ VBA فإنه لا يعمل. تفضلي هذا الحل في النموذج Form1 Database21.accdb

اختي الكريمة ارفقي ملف يضم النموذج والجدول الذي تريدين تحقيق الشروط فيه .

ما في مشكلة ، جربي هذا الكود . If IsNull(Me.NICHE) Then Exit Sub If DCount("ID", "ADHERENTS", "NICHE = '" & Me.NICHE & "' AND NUMERO_REGION = '" & Me.NUMERO_REGION & "'") <> 0 Then MsgBox "Cet ajout ferait doublon !", vbCritical Cancel = True End If هذا التعديل يعني الآن أن الشرطين (NICHE وNUMERO_REGION) يجب أن يكونا متحققين معًا ليتم اعتبارهما تكرارًا.

بداية أخي الكريم ، اختيار الإجابة الأفضل في حال كانت الإجابة هي الحل الصحيح ، ثانياً ارسل مرفق للمتابعة