كود تبديل في نموذج فرعي

[ArefALhakimi]

السلام عليكم ورحمة الله وبركاتة في المرفق التالي / المطلوب كود يعمل على تبديل بين الخيار False  AND TRUE شاكر لكم مروركم الكريم

BD.rar

[Barna]

1 ساعه مضت, ArefALhakimi said:

المطلوب كود يعمل على تبديل بين الخيار False  AND TRUE

غير التسمية التوضيحية للزر الى تحديد الكل بدلا من تغيير ثم استخدم هذا الكود ......

Select Case Me.chng.Caption
    Case Is = "تحديد الكل"
CurrentDb.Execute "update tabl set prentss = True"
Me.Refresh
        Me.chng.Caption = "الغاء الكل"
    Case Else
CurrentDb.Execute "update tabl set prentss = False"
Me.Refresh
Me.chng.Caption = "تحديد الكل"
End Select

 

[ArefALhakimi]

استاذي الفاضل ما قصدته أنا في تبديل بين الصح والخطأ هو أن يحدث بعد الضغط على زر الأمر تبديل أن تتبدل علامة الصح الى  False  للطالب رقم 1 و 2 و 3 في المثال المرفق وتتبدل قيمةFalse الخطأ  الى علامة صح True للطلاب رقم 4 و5 و6و7  أي أنه عند الضغط كل طالب يأخذ قيمة عكسية للقيمة التي هو عليها الان والمقصود من العملية أننا أريد مثلا طباعة الاسماء فقط التي عليها علامة صح وهي رقم (1 و 2 3 ) في المرة الأولى ثم أريد طباعة الاسماء التي عليها علامة خطأ بجعلها تاخذ علامة صح في المرة الثانية وهي الاسماء رقم 4 و5 و6 و7 فأعطيهم علامة صح لكي لا تظهر الاسماء التي تم طياعتها في المرة الأولى وهي رقم 1 و 2 و 3     اتمنى أن يكون توضيحي بشكل مناسب وبمعنى أشد وضوحا ( أن يأخذ الطالب قيمة عكس على ما كانت عليه عند الضغط على زر الامر عند كل ضغطة لزر الامر  وناتج تقرير الطباعة لمن يحمل علامة ( صح ) فقط . 

BD2.rar

[شايب]

24 دقائق مضت, ArefALhakimi said:

أن يأخذ الطالب قيمة عكس على ما كانت عليه عند الضغط على زر الامر عند كل ضغطة لزر الامر

على الرغم من اني شايب وفهمي على قدي

لكن جرب

Dim rs As Recordset
Dim a As Integer
Dim x As Integer
Set rs = Me.نموذج_فرعي_tabl.Form.RecordsetClone
x = rs.RecordCount
rs.MoveFirst
For a = 1 To x
rs.Edit
If rs!prentss = True Then
rs!prentss = False
Else
rs!prentss = True
End If
rs.Update
rs.MoveNext
Next a

مرفق الملف

 

BD.accdb

[د.كاف يار]

تفضل استخدم هذا الكود

Dim  i As Integer, rs As Object
Set rs = Me.Grid1.Form.RecordsetClone

Me.Grid1.SetFocus
DoCmd.GoToRecord , , acFirst
    
For i = 0 To rs.RecordCount - 1
    [Forms]![frm1]![Grid1]![prentss] = IIf([Forms]![frm1]![Grid1]![prentss] = True, False, True)
    If i <> rs.RecordCount - 1 Then DoCmd.GoToRecord , , acNext
Next i

 

 

BD.2.accdb

تم تعديل يوليو 17, 2023 بواسطه د.كاف يار

[ابوخليل]

انا اعجب من هذه الفكرة الفريدة اليتيمة ..  

لو كنت مكانه لعملت اخفاء لكل سجل يتم طباعته

واكتفيت بعمل زر تحديث ( اظهار الكل )

[ArefALhakimi]

مشكورين ايها الاخوة  /الشايب شباب العقل والقلب . د كاف يار ايضا لكما الشكر وتحية للاخ ابو خليل وفكرتي اننا احتاج لنفس السجل مرة اخرى ولا اريد اخفائه في هذه القاعدة ولكنك تطرقت لفكرة اخفاء السجل بعد طباعته فياحبذا لو تدعم بمثال او كود اخفاء السجل في حالة طباعة سجل او سجلات  وعدم الحاجة لها مرة اخرى حتى استفيد فيه في امور اخرى , ونجن في بداية مشوار التعلم بعد الخمسين سنة ولهذا لربما فكرتي يتيمة  🤣 خالص تحياتي لكم اساتذتنا حميعا دون استثناء  ❤️

[ArefALhakimi]

الكود شغال في القاعدة العادية لكن عندما تم اضافته الى القاعدة الجاهزة تظهر لي رسالة الخطأ كما في الصورة علما بأن القاعدة الجاهزة فيها خلفية الاكسس مخفية  وحتى الان لم استطع رفع لصورة المرفقة بسبب بطئ الانترنت  واليمن تحييكم 😅

[Eng.Qassim]

جرب ان تذهب الى محرر الاكواد ومن القائمة tools>>references ارفع خيار الصح على كلمة MISSING