Foksh

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

ما في مشكلة ، جربي هذا الكود . 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

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

هل هذا ما تقصده أخي الكريم ,, New Microsoft Access Database.accdb

اخي الكريم ، انق الكود إلى أي حدث تريده في النموذج أو التقرير ،، على العموم ، تفضل By date.accdb

اخي الكريم مجرد سؤال ، في حال تم الاستعلام فما هي النتيجة التي ستحدث في الجداول ؟ أعطني مثال لأتحقق ما إذا تم أم لا ,, فالبيانات في الجداول تبارك الله كثيرة ، مع العلم أنه تم حل مشكلة القيم الفارغة بالجداول في السجلات التي من نوع البيانات Number بضغطة زر واحدة عن طريق هذا الكود ( كمعلومة ) Dim db As DAO.Database Dim tdf As DAO.TableDef Dim fld As DAO.Field Dim rs As DAO.Recordset Set db = CurrentDb For Each tdf In db.TableDefs If (tdf.Attributes And dbSystemObject) = 0 Then Set rs = db.OpenRecordset(tdf.Name) Do While Not rs.EOF For Each fld In rs.Fields If fld.Type = dbLong Or fld.Type = dbSingle Or fld.Type = dbDouble Then If IsNull(fld.Value) Then rs.Edit fld.Value = 0 rs.Update End If End If Next fld rs.MoveNext Loop rs.Close Set rs = Nothing End If Next tdf db.Close Set db = Nothing MsgBox "تم استبدال القيم الفارغة في جميع الحقول و في جميع الجداول.", vbInformation, "استبدال القيم"

أخي الكريم بعد تجربة المرفق ، فإنه يقوم بالفلترة حسب بيانات الجدول وقيمة الفلترة .

تفضل أخي الكريم ,, By date.accdb

ارفع الملف على ميديافاير مثلاً أو جوجل درايف.... إلخ