Foksh

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

تفضل أخي @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) يجب أن يكونا متحققين معًا ليتم اعتبارهما تكرارًا.

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

جرب هذا التعديل ، فقط أعتقد أن المشكلة كانت بوجود اشارة + بين الشرطين . 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

لعدم توافر كاميرا ويب حالياً لم أقم بتجربة الكود التالي ، ولكن جربه وإن شاء الله يفيدك Sub CaptureWebcamImage() Dim wia As Object Dim webcam As Object Dim imageFile As Object Set wia = CreateObject("WIA.CommonDialog") Set webcam = wia.ShowSelectDevice(WIA.WiaDeviceTypeCameraDevice) If Not webcam Is Nothing Then Set imageFile = webcam.TakePicture() imageFile.SaveFile "C:\Path\To\Save\captured_image.jpg" Set imageFile = Nothing Else MsgBox "لم يتم اختيار كاميرا ويب.", vbExclamation End If Set webcam = Nothing Set wia = Nothing End Sub

تفضل أخي هذه المحاولة ,, 1111-1.accdb طبعاً أعتقد أن هذا هو الحل الصحيح والذي قد يكون مقنعاً لي

جرب هذا المرفق أخي الكريم ,, Foksh.accdb

اخي الكريم سأحاول غداً إن شاء الله تعديل الكود لطلبك 😊

تفضل ، هذا مثال سريع Foksh.accdb

ولا يهمك أخي الكريم .. ولا تنسي إغلاق الموضوع باختيار أفضل إجابة 😊

دائماً تبهرنا بما في جعبتك 🥰 أستاذنا ومعلمنا الفاضل @Moosak ما شاء الله عليك ، إضافات مهمة وفعالة ، وشرح كافي و وافي وفقك الله ، وجعله في ميزان حسناتكم 🤲

ممكن توضح ايه يعني استعلام , ثانياً هل جربت فكرتي ؟

هذه محاولتي أخي الكريم @الحلبي الاكثر بيع.accdb