محمد أبوعبدالله

وعليكم السلام ورحمة الله وبركاته المشكلة متعلقة عندك بامان الماكرو يمكنك الاستعانة بهذا الموضوع لتخفيض الامان تحياتي

جزاكم الله خيرا اخواني الكرام وارجو من الله العلي القدير ان نكون عند حسن الظن وأود ان اذكر نفسي واخواني يأن الله سبحانه وتعالى لم يأمر نبيه صلى الله عليه وسلم بطلب الزيادة الا في العلم فقال سبحانه وتعالى " وقل رب زدني علماً" فنرجو من الله ان يزيدنا علماً وأن ينفع بنا وأن يجعلنا هداة مهتدين تحياتي

وعليكم السلام ورحمة الله وبركاته جزاك الله خيرا استاذنا جعفر لحسن ظنك بي ووالله انه لشرف كبير وارجو من الله ان يوفق ويعين الجميع لما يحب ويرضى تحياتي حياك الله استاذي الفاضل @kha9009lid واسأل الله ان يزيدك من فضله وعلمه تحياتي

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

وعليكم السلام ورحمة الله وبركاته جرب الكود التالي If Now() >= #12:00:00 AM# Or Now() = #5:00:00 AM# Then Text0.Value = Date - 1 Else Text0.Value = Date End If تحياتي

الاخوة الكرام السلام عليكم ورحمة الله وبركاته في شيت الكنترول نحتاج الى اضافة بيانات في كل نهاية صفحة وذلك عند الطباعة يتم هذا في العادة من رأس وتذييل لكن لو احتجنا ان نضع جدول كما هو موضح بالمرفق باللون الاخضر وذلك في كل نهاية ورقة بتحديد ثابت كل 23 طالب ما اقصده هو اني اريد طباعة كل ورقة يتم طباعة الجدول المظلل باللون الاخضر معه دون الحاجة الى كتابته يدوياً كل 23 طالب ولكم وافر التحية والتقدير Test.xlsx تحياتي

بالتوفيق اخي الكريم تحياتي

تفضل اخي الكريم UP-Test(2).accdb تحياتي

تفضل Test(2).accdb

تفضل اخي الكريم N.accdb تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Dim rst As DAO.Recordset mySQL = "Select * TableName" Set rst = CurrentDb.OpenRecordset(mySQL) For i = Me.Start_Sn To Me.END_SN rst.AddNew rst!Item = Me.Item rst!SN = i rst.Update Next i rst.Close: Set rst = Nothing If Me.CurrentRecord = Me.RecordsetClone.RecordCount Then Exit Sub DoCmd.GoToRecord acDataForm, Me.Name, acNext تحياتي

وعليكم السلام ورحمة الله زبركاته تفضل اخي الكريم New Microsoft Access قاعدة بيانات (2).accdb تحياتي

وعليكم السلام ورحمة الله وبركاته شخصيا استخدم هذا الكود Public Function AutoCompact() ' ضغط واصلاح If FileLen(CurrentDb.Name) > 30000000 Then ' اذا كان حجم الملف 30 ميجا تقريبا Application.SetOption "Auto compact", True ' سيقوم البرنامج بعمل ضغط واصلاح تلقائي عند اغلاق البرنامج Application.SetOption "Show Status Bar", True vStatusBar = SysCmd(acSysCmdSetStatus, "يحتاج التطبيق لإعادة تشغيل") Else Application.SetOption "Auto compact", False 'والا فلا تقم بعمل ضغط واصلاح Application.SetOption "Show Status Bar", False End If End Function وفي النموذج الرئيسي استدعيه هكدا Call AutoCompact تحياتي

1 - اجعل مصدر النموذج جدول TablEMP 2 - اجعل مصدر حقل الاسم EMP 3 - اجعل مصدر حقل الكود ID 4 - تحديد النوذج الفرعي FORM-EMP 5 - من ورقة الخصائص نقوم بربط النموذج الفرعي بالنموذج الرئيسي عن طريق حقل ID وهكذا في جميع النماذج الفرعية يتم الربط عن طريق حقل ID الموجود بالنموذج الرئيسي تحياتي

تفضل اخي الشرح على الصورة بالارقام تحياتي

وعليكم السلام ورحمة الله وبركاته جرب المرفق CONTRLtAB.accdb تحياتي

يوجد حقل نصي للغياب بهذا الشكل لا يعمل Me.Filter = "[XA11] > 50 And [XA13] ='غ'" واسف جدا لتعبك معي الحمد لله نجحت بـ OR لك الشكر يا غالي دمت لاخيك تحياتي

استاذنا الفاضل @kanory هل يمكن اضافة AND في الفلنر حتى تتم تصفية البيانات على شرطين ولك الشكر تحياتي

جزاك الله خيرا استاذ الفاضل سلمت يداك تحياتي

الاخوة الكرام السلام عليكم ورحمة الله وبركاته لدي نموذج يعرض درجات طلاب ويوجد به حقل غير منضم للتحقق من نجاح او رسوب الطالب ( ولا ارغب ان يكون هذا الحقل في استعلام لاسباب ) المهم اني اريد عمل فلتر للطلاب بناءاً على مربع تحرير وسرد غير منضم ايضا اختار منه الحالة التي اريد ان يتم الفلتر عليها مرفق مثال وبه تجربة لكود الفلتر Db5.rar تحياتي

جزاك الله خيرا استاذنا الفاضل تحياتي

لم تذكر شىء عن انواع الحقول او ترفق مثال عموما جرب الكود التالي x = DLookup("[completed]", "[orders]", "[Id] =" & XId And [test code] = [Xtestcode] And [testname] = [Xtestname]) تحياتي

يختلف تصميم كل موقع في تسمية الحقول وهذا مثال لاستاذنا جعفر يشرح الطريقة تحياتي

هذه رسالة تنبيه لانك تقوم بتشغيل استعلام تحديث اضغط yes ليستمر بالعمل تحياتي