Merhaba.

Ekte optionbuttonlar var.
Bunların hangisine tıklarsam sadece o iseçilmeli Class ile.

Saygılar.

Class kodlar;

Option Compare Database



Public WithEvents opt As OptionButton



Private Sub opt_Click()

    

    Dim xx As Control

    For Each xx In Forms("FormOptionButton")

        If TypeOf xx Is OptionButton Then

          MsgBox xx.Name

        End If

    Next

    

End Sub

Form kodlar;

Option Compare Database



Dim kontrol() As New ClsOptionButton



Private Sub Form_Load()



    Dim cont As Control

    Dim say As Integer

    

    For Each cont In Forms(Me.Name)

        If TypeName(cont) = "OptionButton" Then

            say = say + 1

            ReDim Preserve kontrol(1 To say)

            Set kontrol(say).opt = cont

        End If

    Next

  

End Sub