AccessTr.neT

Bul · 15/01/2020, 02:38

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

Bul · 15/01/2020, 07:26

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

Bul · 15/01/2020, 12:47

(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 Img-grin

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.

Bul · 15/01/2020, 12:55

(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
[Resim: do.php?img=9446]

Bul · 15/01/2020, 15:16

(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.

Bul · 15/01/2020, 15:19

(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.

AccessTr.neT

Access Optionbutton Class Yardım

Access Optionbutton Class Yardım

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri