طريقة اضافة قيمة معينه لمجموعه من الحقول دفعه واحدة

[ra7yl2006]

السلام عليكم اخوتي الاعزاء

من بضعة ايام كان عندي استفسار مابه لهذا السؤال وهو عن كود يتيح لي اضافة قيمة معينة لمجموعة من الحقول دفعه واحدة 

وقد ساعدني المهندس الرائع Eng.Qassem  وافادني كثيرا

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

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

بينما انا اريده ان يتكرر لطلاب المرحلة المطلوبه فقط

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

ومرفق الملف للتعديل وبه الكود المستخدم

وشكرا للجميع

 

 

                 

school.rar

[ابوبسمله]

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

مشاركه مع اخى ومهندسنا العزيز @Eng.Qassim جزاه الله كل خير 💐

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

لا تستخدم مسافات بينهم يفضل الابتداء بحرف كابتل او علامه _ للفصل بينهم

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

قمت بالتعديل واستخدام استعلام التحديث وتشغيله فى حدث بعد التحديث لحقل المرحله اكتب القيم المناسبه لكل مرحله ثم قم باختيار المرحله لتحديثها

ارجو ان يكون التعديل مناسب لك

بالتوفيق اخوانى

school.accdb

[ra7yl2006]

13 ساعات مضت, احمد الفلاحجي said:

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

مشاركه مع اخى ومهندسنا العزيز @Eng.Qassim جزاه الله كل خير 💐

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

لا تستخدم مسافات بينهم يفضل الابتداء بحرف كابتل او علامه _ للفصل بينهم

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

قمت بالتعديل واستخدام استعلام التحديث وتشغيله فى حدث بعد التحديث لحقل المرحله اكتب القيم المناسبه لكل مرحله ثم قم باختيار المرحله لتحديثها

ارجو ان يكون التعديل مناسب لك

بالتوفيق اخوانى

school.accdb 1008 kB · 9 downloads

شكرا اخي العزيز على اهتمامك

وفعلا حل عملي ورائع وتم تطبيقه بنجاح

ولكن هل لا نستطيع التعديل على الكود الموجود مسبقا لجعله بضيف قيمة التيكست بوكس بشروط

وشكرا مرة اخرى وربنا يبارك في علمك 

[ابوبسمله]

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير

10 ساعات مضت, ra7yl2006 said:

ولكن هل لا نستطيع التعديل على الكود الموجود مسبقا لجعله بضيف قيمة التيكست بوكس بشروط

نعم يمكن اطلع عالمرفق بعد التعديل

تم استخدام فنكشن بداخل النموذج  واستدعائها فى حدث بعد التحديث لحقل المرحله املىء الحقول بالقيم ثم اخترالمرحله

Function strUPDate(strTxt As String)

strSql = "SELECT Tmasrofat.[المصروفات الاساسية], Tmasrofat.الكتب, Tmasrofat.الزي, [بيانات الطلاب].المرحلة " & _
         "FROM [بيانات الطلاب] LEFT JOIN Tmasrofat ON [بيانات الطلاب].[كود الطالب] = Tmasrofat.[كود الطالب] " & _
         "WHERE [بيانات الطلاب].المرحلة='" & strTxt & "'"

   Set rs = CurrentDb.OpenRecordset(strSql)
                
   If rs.RecordCount <> 0 Then
       rs.MoveFirst
       While Not rs.EOF
'        strNew = Me.Text129.Value
        Me.Dirty = False
        rs.Edit
        rs.Fields("المصروفات الاساسية") = Me.Text125
        rs.Fields("الكتب") = Me.Text127
        rs.Fields("الزي") = Me.Text129
        rs.Update
        rs.MoveNext
       Wend
   End If
   rs.Close
   
End Function

بالتوفيق

school_1.accdb

[ra7yl2006]

في 9‏/6‏/2022 at 20:51, احمد الفلاحجي said:

استخدام فنكشن بداخل النموذج  واستدعائها فى حدث بعد التحديث لحقل المرحله املىء الحقول بالقيم ثم اخترالمرحله

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

تسلم يا غالي على ابداعاتك