AccessTr.neT

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

Çerçeve içine aldınız mı

(15/01/2020, 07:26)accessman yazdı: [ -> ]Çerçeve içine aldınız mı

Üstad dün tesadüf buldum.Eğer activex denetimden optionbuuton seçersem sorun olmuyor ismide galiba custom ile başlıyordu.

Çerçeveyi denemiştim farketmemişti.
Bu işi çözse çözse sayın @berduş hocamız çözer

Ondan başkada site ile ilgilenen yok galiba Administratorlardan.Kendisine bir daha teşekkür edyim şimdiye kadarki yardımlarından dolayı.

Birde class ile olmalı konu olarak.ileride kullanırım.
Commandbutton ile aynu kodda sorun olmazken bunda problem garip.
Birde diğer kare içindeki işaretli olan nesnedede çalışmıyor.
Adını getiremedim şimdi.

Birde her iki yada 3 mesajda bir forum sayfası ekleniyor.
Buda insanı yoruyor aradığımız konuları araştırırken.
Belki bunada bir el atar sayın yönetici.Tabii bu benim fikrim sadece.

(15/01/2020, 12:47)feraz yazdı: [ -> ]Birde class ile olmalı konu olarak

maalesef class hazırlayacak seviyede değilim
seçenek kutularını tek tek almak yerine
seçenek grubu olarak eklemelisiniz

(15/01/2020, 12:55)berduş yazdı: [ -> ]

(15/01/2020, 12:47)feraz yazdı: [ -> ]Birde class ile olmalı konu olarak

maalesef class hazırlayacak seviyede değilim
seçenek kutularını tek tek almak yerine
seçenek grubu olarak eklemelisiniz

Bunu yapmıştım çalışmamıştı bende.

(15/01/2020, 12:55)berduş yazdı: [ -> ]

(15/01/2020, 12:47)feraz yazdı: [ -> ]Birde class ile olmalı konu olarak

maalesef class hazırlayacak seviyede değilim
seçenek kutularını tek tek almak yerine
seçenek grubu olarak eklemelisiniz

Aslında Class öğrenmek zor değil ve çok faydalı.

Lakin excelde çalışan aynı kod accesste çalışmıyor.Commandbutton ile çalışıyor aynı kod option ile olmuyor.