Option Compare Database

Public WithEvents opt As OptionButton



Private Sub opt_Click()
    
    Dim xx As Control
    For Each xx In Forms("Listbox")
        If TypeOf xx Is OptionButton Then
          MsgBox xx.Name
        End If
    Next
    
End Sub



Dim kontrol() As New ClsCheckBox



Private Sub Form_Load()
    txtid.Enabled = False
    txtTelefon.InputMask = "\(000) 000\ 00\ 00"
  Call Ara
  
    
    Dim cont As Control
    Dim say As Integer
    
    For Each cont In Forms("Listbox")
        If TypeName(cont) = "OptionButton" Then
            say = say + 1
            ReDim Preserve kontrol(1 To say)
            Set kontrol(say).opt = cont
        End If
    Next
  
End Sub

Sub opt(xx As OptionButton)
    
    Dim cont As Control
    Dim say As Integer

    For Each cont In Forms("Listbox")
        If TypeName(cont) = "OptionButton" Then
            cont = False
        End If
        xx = True
    Next
    
End Sub

Private Sub optilk_Click()
    Call opt(ActiveControl)
End Sub

Private Sub optEsittir_Click()
    Call opt(ActiveControl)
End Sub

Private Sub Opticerik_Click()
    Call opt(ActiveControl)
End Sub