رصد درجة موحدة لكل الطلاب فى مادة حسب الاختيار

[osn]

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

رصد الانشطة.rar

[ابوخليل]

Dim i As Integer, R As Integer
Dim rs As Recordset
Dim x As String
Set rs = Me.RecordsetClone
rs.MoveLast
R = rs.RecordCount
rs.MoveFirst
x = txt_nshat
For i = 1 To R
rs.Edit
rs.Fields(x) = drga2
rs.Update
rs.MoveNext
Next

غفلت عن تعديل آخر سطر 

MsgBox ("تم رصد نشاط") & " ( " & Me.txt_nshat & " ) "

بدله بهذا

MsgBox ("تم رصد نشاط") & " ( " & Me.txt_nshat.Column(1) & " ) "

التعديل الذي تم انظر في جدول tb_nshat  وانظر في مصدر بيانات مربع التحرير

 

رصد الانشطة2.rar

[osn]

20 ساعات مضت, ابوخليل said:

Dim i As Integer, R As Integer
Dim rs As Recordset
Dim x As String
Set rs = Me.RecordsetClone
rs.MoveLast
R = rs.RecordCount
rs.MoveFirst
x = txt_nshat
For i = 1 To R
rs.Edit
rs.Fields(x) = drga2
rs.Update
rs.MoveNext
Next

غفلت عن تعديل آخر سطر 

MsgBox ("تم رصد نشاط") & " ( " & Me.txt_nshat & " ) "

بدله بهذا

MsgBox ("تم رصد نشاط") & " ( " & Me.txt_nshat.Column(1) & " ) "

التعديل الذي تم انظر في جدول tb_nshat  وانظر في مصدر بيانات مربع التحرير

 

رصد الانشطة2.rar 87.99 kB · 14 downloads

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

 

[ابوخليل]

هل يحدث ان يكون البعض رصد لهم المادة وبعضهم لم يرصد

اقصد لو كان العمود يحتوي على بعض الدرجات لبعض الطلاب ...... هل هذا وارد ؟

ثانيا :

عندما عدلت على المثال لم يعجبني طريقة كتابة المواد فقد تحتاج الى مواد اخرى ،  فارى انك تكمل بيانات الجدول وتضع فيه جميع المواد على الصيغة التي انا عملتها وسوف اعمل لك تحكم في اظهار المواد المختارة في مربع التحرير .. اظهار/ اخفاء

[osn]

29 دقائق مضت, ابوخليل said:

هل يحدث ان يكون البعض رصد لهم المادة وبعضهم لم يرصد

اقصد لو كان العمود يحتوي على بعض الدرجات لبعض الطلاب ...... هل هذا وارد ؟

ثانيا :

عندما عدلت على المثال لم يعجبني طريقة كتابة المواد فقد تحتاج الى مواد اخرى ،  فارى انك تكمل بيانات الجدول وتضع فيه جميع المواد على الصيغة التي انا عملتها وسوف اعمل لك تحكم في اظهار المواد المختارة في مربع التحرير .. اظهار/ اخفاء

الاول كان قصدى على المادة كلها مرصودة ينبهنى بأن تم رصدها من قبل .. وهل يمكن الاكسيس يبنهنى بان هناك طلبة عددهم كذا لم يتم لهم رصد درجة المادة المختارة مثلا من المربع اذا كان نعم يتم الرصد وان كان لا يلغى الامر 

اما بخصوص التنسيق والكتابة فانا بمرحلة البناء والتعلم وإن شاء الله آخذ بكل الملاحظات بصراحة هذا المنتدى هو من حفزنى لإنشاء هذا البرنامج حعل عملكم جميعا فى موازين حسناتكم  

[ابوخليل]

خير ان شاء الله

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

غدا ان شاء .. حان وقت النوم

[ابوخليل]

بعد التجربة رأيت من الافضل تحديد المواد المعتمدة بالادراج الجماعي ،، بدلا من وضع الشروط

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

رصد الانشطة3.rar

[osn]

4 ساعات مضت, ابوخليل said:

بعد التجربة رأيت من الافضل تحديد المواد المعتمدة بالادراج الجماعي ،، بدلا من وضع الشروط

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

رصد الانشطة3.rar 91.6 kB · 1 download

شكرا لك .. فكرة ممتازة جدا 

لكن يبقى فى حالة هذه المادة كانت مرصودة واختارتها بالخطأ اريد كود يمنع الرصد مرة أخرى 

[ابوخليل]

تفضل

استبدل كامل الكود الموجود في الحدث بهذا

If Me.txt_nshat = "" Or IsNull(Me.txt_nshat) Then
MsgBox "رجاء اختر النشاط", vbCritical
Exit Sub
End If
Me.txt_drga2 = Me.drga2
If Me.drga2 = "" Or IsNull(Me.drga2) Then
MsgBox "رجاء ضع الدرجة المطلوبة", vbCritical
Exit Sub
End If
Dim i As Integer, R As Integer, k As Integer
Dim rs As Recordset
Dim x As String
Set rs = Me.RecordsetClone
rs.MoveLast
R = rs.RecordCount
rs.MoveFirst
x = txt_nshat
k = DCount(x, "tb_trm1", x > "0")
If k > 0 Then
MsgBox "سبق رصد الدرجة ! لا يمكنك تسجيل هذه المادة"
Else
rs.MoveFirst
Do While Not rs.EOF
rs.Edit
rs.Fields(x) = drga2
rs.Update
rs.MoveNext
Loop
MsgBox "تم رصد نشاط" & "  " & Me.txt_nshat.Column(1)
End If
Me.Refresh

 

[osn]

بارك الله لك ورزقك من فضله .. حاجة أخيرة ازاى احسب السجلات الفارغة سواء كانت سجلات نصية او رقمية جربت ولم تنجح

[ابوخليل]

تفضل بمجرد اختيار المادة يظهر لك عدد الحقول الفارغة

Private Sub txt_nshat_AfterUpdate()
Dim i, R As Integer
Dim rs As Recordset
Dim x As String
Set rs = Me.RecordsetClone
rs.MoveLast
rs.MoveFirst
x = txt_nshat
For i = 1 To rs.RecordCount
If Not IsNull(rs.Fields(x)) Then
rs.MoveNext
Else
R = R + 1
rs.MoveNext
End If
Next
Me.fark = R
End Sub

 

رصد الانشطة4.rar

[osn]

أعتذر لك إن كنت أثقلت عليك كنت محتاج كود يحذف رصد درجات المادة المختارة من مربع النص

[osn]

أراك مختفٍ .. لعل المانع خير .❤

[ابوخليل]

حياك الله

هو الحل الاول يحقق لك ذلك

يعني يجب ان نلغي مسألة :

في 28‏/2‏/2023 at 16:17, osn said:

لكن يبقى فى حالة هذه المادة كانت مرصودة واختارتها بالخطأ اريد كود يمنع الرصد مرة أخرى 

ومع ذلك يمكن تحقيق ذلك بعمل زر خاص بالحذف ويكود منفصل عن الكود الأول .. امهلني بعض الوقت

[osn]

11 دقائق مضت, ابوخليل said:

حياك الله

هو الحل الاول يحقق لك ذلك

يعني يجب ان نلغي مسألة :

ومع ذلك يمكن تحقيق ذلك بعمل زر خاص بالحذف ويكود منفصل عن الكود الأول .. امهلني بعض الوقت

تمام خذ وقتك ... ووددتُ الاطمئنان على حضرتك .. دمتَ بخير وصحة وعافية .

[ابوخليل]

تفضل

If MsgBox("هل انت متأكد ؟ تريد حذف درجة المادة لجميع الطلاب ؟", _
    vbQuestion + vbYesNo, _
    "تحذير") = vbNo Then
Exit Sub
End If
Dim i As Integer
Dim rs As Recordset
Dim x As String
Set rs = Me.RecordsetClone
rs.MoveLast
rs.MoveFirst
x = txt_nshat
For i = 1 To rs.RecordCount
rs.Edit
rs.Fields(x) = Null
rs.Update
rs.MoveNext
Next

 

رصد الانشطة5.rar