ادراج قيمة من كمبوبكس في حقل بالنموذج

[مصطفي الفيومي]

السلام عليكم ورحمه الله وبركاته 

موجود بالمرفق نموذج يحتوي علي 

اسم الطالب - عربي - انجليزي - رياضيات 

محتاج احدد مثلا الصف الاول واحدد الدرجة مثلا عربي يتم تعممها علي كل الطلبة المحدد في الصف اللي حددته فقط 

ومرفق شرح بالنموذج

وجزاكم الله خيرا

ادراج قيمة.accdb

[ابوخليل]

وعليكم السلام ورحمة الله وبركاته

تم التطبيق على عمود اللغة العربية ، أكمل بقية اعمدتك على المنوال نفسه

Dim i As Integer, R As Integer
Dim rs As Recordset
Set rs = Me.RecordsetClone
rs.MoveLast
R = rs.RecordCount
rs.MoveFirst
For i = 1 To R
rs.Edit
rs!Arab = deg_A
rs.Update
rs.MoveNext
Next
Me.Refresh

 

ادراج قيمة.rar

[شايب]

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

تم التطبيق على عمود اللغة العربية ، أكمل بقية اعمدتك على المنوال نفسه

مارايك بدلا من تكرار الكود

 نستعين بتعديل الاخ @jjafferr على مشاركة سابقة للاخ العزيز شايب ويتم الاستدعاء عند تحديث المادة

Function tx_degree(ctl As Control)
Dim a As Integer
Dim ctl_n As String
Dim rs As Recordset
Set rs = Me.RecordsetClone
ctl_n = Replace(ctl.Name, "deg_", "")
rs.MoveLast
R = rs.RecordCount
rs.MoveFirst
For i = 1 To R
rs.Edit
rs(ctl_n) = ctl.Value
rs.Update
rs.MoveNext
Next
Me.Refresh
End Function

ثم في حدث بعد التحديث لكل حقل من حقول ادخال الدرجات نضع الامر

 Call tx_degree(deg_Arab)

deg_Arab يتم تغييرها باسم الحقل

مرفق الملف

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

 

ادراج قيمة.accdb

[ابوخليل]

شكرا جزيلا استاذنا ، وكتب اجرك ، وفيت وكفيت  

[مصطفي الفيومي]

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

وعليكم السلام ورحمة الله وبركاته

تم التطبيق على عمود اللغة العربية ، أكمل بقية اعمدتك على المنوال نفسه

Dim i As Integer, R As Integer
Dim rs As Recordset
Set rs = Me.RecordsetClone
rs.MoveLast
R = rs.RecordCount
rs.MoveFirst
For i = 1 To R
rs.Edit
rs!Arab = deg_A
rs.Update
rs.MoveNext
Next
Me.Refresh

 

ادراج قيمة.rar 36.12 kB · 2 downloads

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

11 ساعات مضت, شايب said:

مارايك بدلا من تكرار الكود

 نستعين بتعديل الاخ @jjafferr على مشاركة سابقة للاخ العزيز شايب ويتم الاستدعاء عند تحديث المادة

Function tx_degree(ctl As Control)
Dim a As Integer
Dim ctl_n As String
Dim rs As Recordset
Set rs = Me.RecordsetClone
ctl_n = Replace(ctl.Name, "deg_", "")
rs.MoveLast
R = rs.RecordCount
rs.MoveFirst
For i = 1 To R
rs.Edit
rs(ctl_n) = ctl.Value
rs.Update
rs.MoveNext
Next
Me.Refresh
End Function

ثم في حدث بعد التحديث لكل حقل من حقول ادخال الدرجات نضع الامر

 Call tx_degree(deg_Arab)

deg_Arab يتم تغييرها باسم الحقل

مرفق الملف

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

 

ادراج قيمة.accdb 536 kB · 1 download

شكرا ليك بارك الله فيك 

شكرا للاخوة الافاضل علي المشاركة 

تم الاجابة 

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