Seçenek Değerini Metine Çevirmek

[TUGRasim]

Seçenek grubunun seçenek değerleri 1-2-3-4 diye rakamlardan oluşuyor ve ilişkili metin kutusuna da seçilen seçeneğin ilgili seçenek değerini yazıyor. Ben bu seçenek değerini metine dönüştürmek istiyorum.

Cevaplarsanız sevinirim...

 

[beab05]

Seçenek grubu dediğiniz açılan kutu değildir umarım??

 

[TUGRasim]

Yo hayır seçenek gurubu...

 

[beab05]

Şöyle yapalım, metin kutunuzun adı " metin1" olsun

Private Sub secenekdugmesi1_GotFocus()
Me.Metin1 = "aylık"
End Sub

Bu kodu ilgili seçenek düğmesinin odaklanıldığında olayına yazınız ve diğer düğmeler için de tabii.. Metin kutunuza verinin geldiğini görürsünüz..

 

[modalı]

Sayın TUGRasim,

Aşağıdaki kod işinize yarar sanırım:

Private Sub Çerçeve0_AfterUpdate()
Select Case Me.Çerçeve0
         Case 1:
             Me.Metin7 = "a"
         Case 2:
             Me.Metin7 = "b"
         Case 3:
             Me.Metin7 = "c"
         End Select
End Sub

a,b,c nin yerine yazılmasını istediğiniz kelimeleri yazın.

İyi çalışmalar

 

[TUGRasim]

Sayın beab05 sizin verdiğiniz kodda metini anlık olarak gösterdi sadece secenek düğmesine dokunduğum anda gösterdi tekrar 1 değeri geldi. Sadece kliklerde gözüküyor sonra tekrar rakam çıkıyor... Fakat sayın modalı nın verdiği kodda sorun çıkmadı.

Sayın beab05 ve modalı çok teşekkür ediyorum. Kolay gelsin...