(15/01/2020, 00:18)accessman yazdı: Option butonları çerçeve içine al
Çerçeveye alıncada olmadı.
Class işlemini CommanButton için uygulayınca çalışıyor çak garip olay.
Eğer Class ile olmazsa alttaki gibi kod yazdım onu kullanacağım artık uzun yoldan
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
Önceki mesajdaki kodlarla dosyayı hazırladım.
Class olayı için yeni konu açmakta fayda var.
Teşekkürler herşey için.
Dosyayı ekleyeyim belki lazım olur birilerine ileride.