السلام عليكم وحمه الله وبركاته
يوجد لديا نموذج وبه زر تدقيق
اريد عند الضغط علي زر التدقيق يتم تعميم الدرجة لكل الطلاب الظاهرين بالنموذج في حقل dr
يعني مثلا عندي الدرجة من 10 اذا ضغط علي امر التدقيق يظهر لي رساله هل تريد رصد الدرجة لكل الطلاب
اذا قلت له نعم يتم الرصد اذا قلت له لا يتم ايقاف الرصد ولكم جزيل الشكر
اليكم الملف بالمفرق
للرفع
تفضل هذا مثال جاهز
سيد الاستغفار
{ اللهم أنت ربي لا إله إلا أنت خلقتني وأنا عبدك وأنا على عهدك ووعدك ما استطعت أعوذ بك من شر ما صنعت أبوء لك بنعمتك علي وأبوء لك بذنبي فاغفر لي فإنه لا يغفر الذنوب إلا أنت}
من قالها من النهار موقنا بها فمات من يومه قبل أن يمسي فهو من أهل الجنة ومن قالها من الليل وهو موقن بها فمات قبل أن يصبح فهو من أهل الجنة .رواه البخاري
مشكور اخي الكريم ولكن اريد تعديل بسيط وهو اضافة رقم معين الي جميع الصفوف وليس استبدال
مثلا لدي 100 سجل اريد ان اضيف اي رقم يتم كتابته داخل الخانة الي 100 سجل وليس استبدال القيم الموجودة
بارك الله فيك اخي لكن هل يمكن عمل رساله تقول لرصد الدرجة علي الصف المحدد اضغط نعم للاغاء اضغط لا
وشكرا وياريت تعم الدرجة علي الصف المحدد
Abo_Yossof كتب:أى صف اخى
لا يوجد حقل للصف فى الجدول
بارك الله فيك اخي علي المتابعه
اليك الملف به الصف والفصل
اريد مثلا اخترت الصف الاول الثانوي واخترت فصل اول وضغط علي امر التدقيق للرصد
تظهر رساله تقول لادخال الدرجة للصف والفصل المحدد اضغط (نعم) للالغاء اضغط(لا)
وشكرا لك
استخدم هذا الكود
Dim sf, fs As String
sf = IIf(Len(Me.mraw & "") > 0, "لصف " & Me.mraw, "بكل الصفوف")
fs = IIf(Len(Me.mclass & "") > 0, " و فصل " & Me.mclass, " و لكل الفصول")
If MsgBox("هل تريد تعميم الدرجة " & sf & fs, vbYesNo) = vbYes Then
Dim rs As Recordset
Set rs = Me.Recordset
rs.MoveFirst
For r = 1 To rs.RecordCount
rs.Edit
If Me.chk Then
rs![dr] = 10
Else
rs![dr] = ""
End If
rs.Update
rs.MoveNext
Next
rs.Close
Set rs = Nothing
Else
Me.chk = False
End IfAbo_Yossof كتب:استخدم هذا الكود
Dim sf, fs As String sf = IIf(Len(Me.mraw & "") > 0, "لصف " & Me.mraw, "بكل الصفوف") fs = IIf(Len(Me.mclass & "") > 0, " و فصل " & Me.mclass, " و لكل الفصول") If MsgBox("هل تريد تعميم الدرجة " & sf & fs, vbYesNo) = vbYes Then Dim rs As Recordset Set rs = Me.Recordset rs.MoveFirst For r = 1 To rs.RecordCount rs.Edit If Me.chk Then rs![dr] = 10 Else rs![dr] = "" End If rs.Update rs.MoveNext Next rs.Close Set rs = Nothing Else Me.chk = False End If
بارك الله فيك اخي علي المساعدة وجعله الله في ميزان حسناتك
انظر اخي الي هذة الصور بعد ان لصقت الكود يظهر لي النموذج بعد تعميم الدرجة
هكذا لازم اغلق النموذج واقوم بفتحة مرة ثانية هل يمكن التخلص من هذة السجلات التي تظهر هكذا
ولك جزيل الشكر
