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

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

السلام عليكم

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

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

testc.accdbFetching info...

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

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

 

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.accdbFetching info...

تم تعديل مارس 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.accdbFetching info...

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

  في 27‏/3‏/2024 at 13:18, محمد احمد لطفى said:

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

Expand  

 

  في 27‏/3‏/2024 at 13:55, أبوبسمله said:

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

Expand  

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