Foksh

جرب هذا الموضوع للأستاذ @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

نيابة عن الأخ @Hamtoooo ، اخي الكريم @moho58 في أي جدول تريد التغيير أن يتم ؟ وليس في أي نموذج

أخي @Emad.85 لا تنسى اغلاق الموضوع باختيار افضل إجابة

أخي الكريم كمثال سريع ، قم بجعل الحقل ( Suppliers_Name2 ) من النوع ( Combo Box ) ، واجعل مصدره جدول الموردين كما يلي :-

تفضل محاولتي أخي @jo_2010 Word.accdb

تفضل أخي هذا توضيح لكل سطر في الكود ' يتم إعداد المتغيرات Dim strSQL As String Dim db As DAO.Database Dim rs As DAO.Recordset ' يتم تعيين كائن قاعدة البيانات الحالية إلى المتغير db Set db = CurrentDb ' يُبنى استعلام SQL لاستعراض عدد السجلات حيث يكون التاريخ أقل من التاريخ الحالي strSQL = "SELECT COUNT(*) As RecordCount FROM tab WHERE التاريخ < #" & Format(Date, "yyyy-mm-dd") & "#" ' يتم فتح سجل لاستعراض النتائج باستخدام الاستعلام الذي تم بناؤه في السطر السابق Set rs = db.OpenRecordset(strSQL) ' يُخزن عدد السجلات المسترجعة في المتغير نص2 نص2 = rs("RecordCount") ' يُبنى استعلام SQL آخر لاستعراض عدد السجلات حيث يكون التاريخ أكبر من التاريخ الحالي strSQL = "SELECT COUNT(*) As RecordCount FROM tab WHERE التاريخ > #" & Format(Date, "yyyy-mm-dd") & "#" ' يُغلق السجل الحالي rs.Close ' يتم فتح سجل آخر لاستعراض النتائج باستخدام الاستعلام الجديد Set rs = db.OpenRecordset(strSQL) ' يُخزن عدد السجلات المسترجعة في المتغير نص4 نص4 = rs("RecordCount") ' يُغلق السجل بعد الانتهاء من استخدامه rs.Close ' يُغلق كائن قاعدة البيانات بعد الانتهاء من استخدامه db.Close

اخي الكريم ان كان الملف في المرفق يعمل دون مشاكل ، فأن المشكلة لديك في النموذج الخاص بك عند تقلك للكود ، فقد يكون بسبب تكرار أكواد لا أعلمها في ملفك الأصلي , على العموم أرسل رسالة للخطأ نفسه ( المسج ) لمعرفة اين يكون الخلل .