المساعدة في اختصار كود _ تطبيق حدث واحد على حقول كثيرة

[ازهر عبد العزيز]

السلام عليكم

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

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

testc.accdb

[محمد احمد لطفى]

تفضل هل هذا ما تريد 

 

Dim a As String
a = Me.x
If Me.x = a Then
    Forms("fxm").Controls(a).Value = True
End If

أو

 

If Me.x <> "" Then
    Forms("fxm").Controls(Me.x).Value = True
End If

 

testc.accdb

تم تعديل مارس 27, 2024 بواسطه محمد احمد لطفى

[أبوبسمله]

السلام عليكم

مشاركه مع اخى @محمد احمد لطفى جزاه الله خيرا

Private Sub x_Click()

    Call searchtext(Forms![fxm], Me.x)
    
End Sub

Sub searchtext(frm As Form, strtxt As String)

    Dim ctl As Control
    
    For Each ctl In frm.Controls
         If ctl.ControlType = acOptionButton Then
            If ctl.Name = strtxt Then
                ctl.Value = True
            Else
                ctl.Value = False
            End If
         End If
    Next

End Sub

 

testc_1.accdb

[ازهر عبد العزيز]

منذ ساعه, محمد احمد لطفى said:

تفضل هل هذا ما تريد 

 

45 دقائق مضت, أبوبسمله said:

مشاركه مع اخى @محمد احمد لطفى جزاه الله خيرا

جزاكم الله كل خير احسنتم المثالين تمام