مصطفي الفيومي قام بنشر يوليو 5, 2023 مشاركة قام بنشر يوليو 5, 2023 السلام عليكم ورحمه الله وبركاته موجود بالمرفق نموذج يحتوي علي اسم الطالب - عربي - انجليزي - رياضيات محتاج احدد مثلا الصف الاول واحدد الدرجة مثلا عربي يتم تعممها علي كل الطلبة المحدد في الصف اللي حددته فقط ومرفق شرح بالنموذج وجزاكم الله خيرا ادراج قيمة.accdb رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر يوليو 5, 2023 مشاركة قام بنشر يوليو 5, 2023 وعليكم السلام ورحمة الله وبركاته تم التطبيق على عمود اللغة العربية ، أكمل بقية اعمدتك على المنوال نفسه 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 2 رابط هذا التعليق شارك More sharing options...
شايب قام بنشر يوليو 5, 2023 مشاركة قام بنشر يوليو 5, 2023 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 2 رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر يوليو 5, 2023 مشاركة قام بنشر يوليو 5, 2023 شكرا جزيلا استاذنا ، وكتب اجرك ، وفيت وكفيت 1 رابط هذا التعليق شارك More sharing options...
مصطفي الفيومي قام بنشر يوليو 5, 2023 الكاتب مشاركة قام بنشر يوليو 5, 2023 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 شكرا ليك بارك الله فيك شكرا للاخوة الافاضل علي المشاركة تم الاجابة بارك الله فيكم وجلعه في ميزان حسناتكم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان