Ahmed_J

السلام عليكم شكرا لك استاذنا الكبير @د.كاف يار ارجوا ان يكون التعديل على الملف الثاني الذي قمت بتعديل بياناته الذي فيه فتح التقرير مع جزيل الشكر والاحترام test (2).accdb

up

السلام عليكم شكرا لك استاذ @ازهر عبد العزيز يبدو انني لم استطيع توضيح الفكرة جيدا المطلوب : (فرز متسلسل) 1- عند اخيار (القائمة المنسدلة الاولى- الاسم ) -(مثلا احمد) يكون الفرز بالنموذج عن طريق احمد وتظهر بيانات احمد فقط 2- عند اختيار (القائمة المنسدلة الثانية - السنة) يظهر فيها فقط السنوات الخاصة بأحمد ليتم الفرز بالنموذج عن اية سنة يتم اخيارها 3- عند اختيار (القائمة المنسدلة الثالثة - الشهر) يظهر فيها فقط الاشهر الخاصة بالسنة (القائمة المنسدلة الثانية) والخاصة بأحمد ليتم الفرز بالنموذج عن اي شهر يتم اخياره 4- فتح التقرير على القيم التي تم اختيارها وشكرا لكم احبائي الاعزاء test.accdb

السلام عليكم لو سمحتم ممكن تعديل الملف المرفق ليتم الفرز عن طريق ثلاث قوائم منسدلة لجدول واحد (الاسم والعمر وسنة التخرج) وتظهر البيانات داخل النموذح وشكرا لكم test.accdb

السلام عليكم استاذنا الكبير @ابوخليل بارك الله فيك وشكرا جزيلا

السلام عليكم لدي ملف لاحد الاخوة الاعزاء بالموقع يظهر بالنموذج كل 10 سجلات معا المطلوب : كود للذهاب الى آخر صفحة بالنموذج وكود للرجوع لاول صفحة بالنموذج (تم وضع الزرين بالنموذج فارغين من الاكواد) وشكرا لكم عدد السجلات في النموذج =10.mdb

السلام عليكم شكرا لك استاذ @Shivan Rekany تمام الكود مضبوط وبارك الله فيكم

السلام عليكم استاذ @Shivan Rekany هل ممكن تطبيق على نفس المثال السابق تحياتي لكم

تسلم يالغالي ربي يحفظك من كل مكروه تحياتي لك

استاذ @husamwahab نعم اخيرا ضبط معي الكود تمام بارك الله فيك وجعله في ميزان حسناتك لي طلبين اخيرين ؟ ؟ لو سمحت 1- هل ممكن تعطيل الكود بالزر لو كان الترقيم التلقائي اصلا مضبوط (1,2,3..... الخ) تظهر رسالة اخرى تخبرنا ان الترقيم التلقائي مضبوط اصلا 2- هل هذه الطريقة لاعادة الترقيم التلقائي فيها اي مخاطر على البيانات في الجدول حتى لو كانت مرتبطة بعلاقة مع جدول اخر وشكراااااااا جزيلا

السلام عليك عملت id مفهرس= نعم (التكرار غير مقبول ) قبل وضع المفتاح الاساسي ولم تضبط معي ممكن خطوات عمل ذلك او صورة من الجدول والفهرس وشكرا لك

السلام عليكم استاذ @husamwahab كود روووووعة بارك الله فيك لكن واجهتني مشكله عند تغيير اسم المفتاح الاساسي الى id تظهر رسالة كما في الصورة ويحذف المفتاح الاساسي لوحده من الجدول ارجوا المساعدة لان الكود رائع جدا مرفق الملف الذي فيه الخطا وشكرا لك استاذي العزيز test.accdb

up

استاذي العزيز الحدول غير مرابط باي جدول اخر ولاتوجد اي علاقة له ويظهر الخطا بالكود كما في الصورة وشكرا لك

السلام عليكم نعم ضروري جدا اولا لكي نتعلم وثانيا لان الكود يعمل على mdb واريده ان يعمل على accdb لان هذا الكود يقوم بارجاع (Primary Key) المفتاح الاساسي الى تسلسله الطبيعي بعد حذف اي سجل او مجموعة من السجلات من الجدول مع الحفاظ عليه كمفتاح اساسي بالجدول وشكرا للمتابعة

up

السلام عليكم استاذ @Shivan Rekany انا اقصد عند تحويل الملف من mdb الى accdb لايعمل وفيه اخطاء بالكود كما في المرفق وشكرا لك ReAutoNumber3.accdb

UP

السلام عليكم مرفق ملف للاستاذ هيثم القلاف فية كود لاعادة الترقيم التلقائي ولكنه لايعمل على اكسس 2010 (يتوقف) حتى بعد اضافة المكتبات اليه المطلوب تعديل الكود ليعمل على على اكسس 2010 وشكرا لكم ReAutoNumber.rar

السلام عليكم بارك الله فيك استاذنا العزيز وجعله في ميزان حسناتك

UP

السلام عليكم شكرا لك استاذي العزيز @سامي الحداد بارك الله فيك التعديل يبحث باي حرف من الاسم ويجد الاسماء مثل (محمد او احمد) اريد ان يبحث باول حرف من الاسم فقط (م او أ ) لان لدي ملف باللغة الانكليزية ومحتاجه جدا وشكرا لك

السلام عليكم اريد التعديل فقط على الكود في ملف الاستاذة زهرة ليصبح البحث باول حرف فقط من الاسم وليس الاسم بالكامل وشكرا لكم Dim strSearch As String Dim rs As Object Set rs = Me.RecordsetClone If IsNull(Me![txtSearch]) Or (Me![txtSearch]) = "" Then MsgBox "رجاء ادخل اسم للبحث عنه", vbOKOnly, "خطأ في البحث" Me![txtSearch].SetFocus Exit Sub End If strSearch = Me![txtSearch] With rs .FindNext "[EmpName] = '" & strSearch & "'" If .EmpName <> strSearch Then MsgBox "لا يوجد سجل بهذا الإسم : " & strSearch, , "غير موجود" Me.txtSearch = "" Me![txtSearch].SetFocus ElseIf .NoMatch Then MsgBox "آخر سجل في البحث عن : " & strSearch, , "آخر سجل" Me.cmdSearch.Caption = "بحث" Me.txtSearch = "" Me![txtSearch].SetFocus Me.cmdSearch.ForeColor = RGB(0, 0, 255) DoCmd.GoToRecord , , acFirst Else Me.Bookmark = .Bookmark MsgBox "تم ايجاد اسم : " & strSearch, , "مبروك" Me.cmdSearch.Caption = "اكمال البحث" Me.cmdSearch.ForeColor = RGB(255, 0, 0) End If End With rs.Close Set rs = Nothing

السلام عليكم بارك الله فيك وجعله في ميزان حسناتك

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