الشامي نت

ساقوم بالتجربة اشكرك اخي العزيز ملاحظة : لماذا عندما اقوم باعادة تسمية الجدول وفي الدالة ايضا اقوم بتغيير الاسم يظهر لي خطأ Debug بالرسالة (لم يتم العثور على العنصر في هذه المجموعة)

احسنت اخي الكريم @Barna وبارك الله بك هذا هو المطلوب لقد انقذتني من معضلة ازاد الله من حسناتك ودمت لهذا الصرح استاذا كبيرا شكرا لك من القلب

شكرا لك اخي محمد نعم اريد القيام بحذف سجل وبقاء الاخر اي بمعنى حذف السجل كاملا اذا تطابق الاسم

السلام عليكم اخواني الاعزاء لدي جدول يحتوي على عدة حقول منها الاسم ورقم الهاتف وتاريخ التولد والخ ... في حقل الاسم توجد اسماء مكررة ووبيانات مختلفة في باقي الحقول اريد حذف السجل الذي يحتوي على اسم مكرر فقط علما ان باقي الحقول غير مطابقة في السجل المكرر لان التطابق فقط في حقل الاسم وفي المرفقات الجدول ونضع بعين الاعتبار ان البيانات المكررة بالالاف فماذا افعل .. ارجو ان اتضحت الفكرة دمتم بخير fouad.accdb

شكرا اخي الكريم

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

السلام علىكم ورحمة الله وبركاته لدي قاعدة بيانات تحتوي على جدولين .. الجدول الاول : هو الجدول الاساسي الذي يتم عليه اضافة وتحديث وحذف السجلات . الجدول الثاني : هو الجدول الذي يرسل لي من قبل الجهة التي تطالب بالتحديث للبيانات فأقوم على اساسه تحديث الجدول الاول (الاساسي) . عند انشاء استعلام (بدون مطابقة) من خلال معالج الاستعلامات تظهر لي السجلات الغير متوفرة بالجدول الثاني فعلى اساس ذلك اريد ان اقوم بحذف هذه السجلات فهل من طريقة ما ؟؟ القاعدة مرفقة في ادناه وجزاكم الله خير الجزاء Database21.rar

احسنت صديقي مارد الطيب أسئل الله ان يحفظك ويرعاك ويعطيك سؤلك قدر ما تطلب .. بارك الله فيك وبفضل الله لقد انجحت لي فكرتي المتواضعة كمبتدئ في برمجة كائنات اكسس

اصدقائي الافاضل .. ممكن حل للخطأ الذي يظهر عندي في الكود الذي كتبه الاستاذ مارد .. النموذج [FrmDataAll] فرعي والذي قبله [FrmSearch] رئيسي كيف يتم تحديد RecordsetClone في النموذج الفرعي بدون اي خطأ ؟؟ Private Sub Report_Close() Set rst = [Forms]![FrmSearch]![FrmDataAll].RecordsetClone rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For I = 1 To RC rst.Edit rst!Check = False rst.Update rst.MoveNext Next I End Sub

شكرا صديقي محمد عصامي على جهودك دمت بخير

اخي العزيز ( مارد ) ممكن شرح للكود في التقرير عند الاغلاق ارجو ان تفيدني .. عذرا على التأخير عن الاستفسار .. تحياتي

ممتاز اخي مارد وفقت وهو المطلوب

اضطررت لضغط الملفين بنوعين في برنام الونرار اليكم المرفق اخواني Check.rar

لا اعلم لماذا لا يقبل اي من النوعين ادناه علما ان النوع الاول 2007 والنوع الثاني 2003 وهذه الرسالة التي تظهر check.accdb غير مسموح برفع هذا النوع من الملفات check.mdb غير مسموح برفع هذا النوع من الملفات

ارجوكم اخواني المساعدة في هذا الاستفسار