تطبيق كود علي عدة حقول بنموذج بضغطه واحده

[محي الدين فره]

لدي نموذج به أسماء الطلبة وامامه مربع نص  اسمه  (نص6) يأخذ قيمته بواسطة دالة (DCount) حيث يقوم بعد مواد الرسوب وبناء عليه يغير في الحالة اما 1 اذا كانت القيمة 0 او 10  اذا كانت 1 فما فوق ...

و التي تمثل مستجد لرقم 1 . و دور ثاني لرقم 10.

وضعت الكود في زر (تحديث الحالة) عند الضغط 

If Me.نص6 = 0 Then
Me.الحالة = "1"
Else
Me.الحالة = "10"
End If

If Me.نص6 = 0 Then
Me.الحالة = "1"
Else
Me.الحالة = "10"
End If

 

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

تم تعديل نوفمبر 26, 2021 بواسطه محي الدين فره

[Amr Ashraf]

فين المرفق اللى هنطبق عليه الحل ؟ عامة يمكنك استخدام For كالمثال التالى جرب وان مشتغلش ارفق النموذج.

ملاحظة : يفضل عدم استخدام اللغة العربية فى الاكواد لأنها بيصعب التعامل معها ولذلك استبدلت اسماء الحقول العربية فى الكود بأسماء افتراضية Cnt بدلا من نص 6 و Result للنتيجة مستجد او راسب .

بالتوفيق

 On Error Resume Next
  DoCmd.GoToRecord , , acFirst
  For i = 0 To Me.Form.Recordset.RecordCount - 1
  If Me.Cnt = 0  then
  Me.Result = 1
  Else
  Me.Result = 10
  end if
  DoCmd.GoToRecord , , acNext
  Next

 

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

[Moosak]

وممكن تعملها باستعلام تحديث ..