Barna

دوال التكرار كثيرة ... انظر وطبق الأول: الدالة For Dim i As Integer, k As Integer k = 4 For i = k To 1 Step -1 MsgBox i Next i الثاني: الدالة Do While Dim i As Integer i = 4 Do While i >= 1 MsgBox i i = i - 1 Loop الثالث: الدالة Do Until Dim i As Integer i = 4 Do Until i < 1 MsgBox i i = i - 1 Loop الرابع: الدالة Do.....Loop Until Dim i As Integer i = 4 Do MsgBox i i = i - 1 Loop Until i < 1 الخامس: الدالة Do.....Loop While Dim i As Integer i = 4 Do MsgBox i i = i - 1 Loop While i >= 1

والان بعد الشروحات والمقدمات الطويلة للفائدة هذه الطريقة الاخيرة مختصرة وبدون استعلامات .... نفس طريقتك السابقة مع تعديل بسيط فقط Value Students (1).accdb

وايضا يمكن عملها في الاستعلام مباشرة بهذا الشكل ...........

تفضل <><><><><> Students.accdb

اخي @الشربيني 123 من يستحق افضل اجابة هي اجابة استاذي الفاضل @jjafferr بارك الله بك وبه .....

تفضل <><><><><> On Error Resume Next DoCmd.OpenReport "R1", acViewReport, , "[المؤهل]=" & Me.HA & " and [النوع]=" & Me.SI DoCmd.Close acForm, Me.Name

انا لم ادرج جميع الصفوف في الكود ....... ادرجت مجموعة للتجربة وعليك ادراج البقية كاملة ..... ليس لدي الوق لذلك ارجو المعذرة .... حاول واذا لم تستطع نعينك في المشكلة

ارفق مثال للنموذج والتقربر

هل النموذج المراد اغلاقة به هذا الزر الذي يحوي الكود السابق ؟؟؟؟؟

جرب ................ DoCmd.Close DoCmd.OpenReport "M11", acViewReport, , "[GER]=" & Me.GE & _ "and [NOV]=" & Me.SX

جرب اذا ناسبقك ..... تأكد من الاعمار لديك واكمل حتى تتعلم الكود ...... Aziz (2).zip

منطقيا وحسب ماذكرت انت ...... هذه الحسبة تختلف من سنة لاخرى فمثلا : 2017 = تمهيدي هذه السنة 2017 = الاول السنة القادمة وهكذا لبقية التواريخ ..... لذلك ارى والله أعلم ان تفكر في عمر التلميذ وليس السنة ........

تفضل ... اكتب الكود المطلوب ثم دبل كلك على مربع النص وانظر ..... test (13).accdb

متابع بصمت

لم تظهر معي المشكلة ؟؟؟ اوفيس 16

هل هذا ما تريد ؟؟؟؟

بارك الله فيك استاذي @مبرمج متقاعد منك نستفيد .... وعودا حميدا

جرب حسب فهمي للموضوع .. delete_t.accdb

الحمد لله رب العالمين

فيه حلول أخي ...... بس المفروض تملأ الحقول حتى ولو بيانات وهمية للتجربة ...... عموما انظر المرفق وجرب على اول سجل لأني ملئتها ببيانات حتى اجرب الكود قبل وضعه ... __شئون الطلبة_Barna.rar

وبارك فيك أخي بلال .... الحمد لله رب العالمين

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

تفضل <><><><><><><> الوسائل المكتبية (1).rar

تفضل <><><><><><> إدارة المركبات6.accdb

هل هذه ماتريد ؟؟؟؟؟؟