Text İçindeki Dataya Göre Combobox Secilmesi

02/07/2018, 17:32

sidd

Merhaba, 

yapmak istediğim şey textbox içindeki yazıya göre comboboxda herhangi bir item ın secili hale gelmesi.

ornegin textbox da S yazıyorsa, comboboxdaki 1.secenek secili olsun, A yazılmıssa, 2. secenek secili hale gelsin.
Ornek ektedir, bilgileriniz rica ederim.
03/07/2018, 12:39

ozanakkaya

cbo_transport_type açılan kutusunun güncelleştirme sonrasında olayındaki kodu aşağıdaki ile değiştirerek deneyiniz.


On Error GoTo Hata

   If Me.cbo_transport_type.Column(1) = "DENİZYOLU" Then
       Me.cbo_LclFcl.visible = True
       TransportId = "S"
       Me.cbo_LclFcl.enabled = True
'       LclFclId = Me.cbo_LclFcl.Column(2)
       Me.cbo_LclFcl.Value = Me.cbo_LclFcl.ItemData(0)
         
   ElseIf Me.cbo_transport_type.Column(1) = "HAVAYOLU" Then
       Me.cbo_LclFcl.visible = False
       TransportId = "A"
       LclFclId = "AIR"
     
       
   ElseIf Me.cbo_transport_type.Column(1) = "KARAYOLU" Then
       Me.cbo_LclFcl.visible = True
       TransportId = "R"
       Me.cbo_LclFcl.enabled = True
 '      LclFclId = Me.cbo_LclFcl.Column(2)
       Me.cbo_LclFcl.Value = Me.cbo_LclFcl.ItemData(1)
    End If
   
 
Hata:

 If Err.Number = 94 Then
 Exit Sub
 
 End If
03/07/2018, 14:41

sidd

(03/07/2018, 12:39)ozanakkaya yazdı: cbo_transport_type açılan kutusunun güncelleştirme sonrasında olayındaki kodu aşağıdaki ile değiştirerek deneyiniz.


On Error GoTo Hata

   If Me.cbo_transport_type.Column(1) = "DENİZYOLU" Then
       Me.cbo_LclFcl.visible = True
       TransportId = "S"
       Me.cbo_LclFcl.enabled = True
'       LclFclId = Me.cbo_LclFcl.Column(2)
       Me.cbo_LclFcl.Value = Me.cbo_LclFcl.ItemData(0)
         
   ElseIf Me.cbo_transport_type.Column(1) = "HAVAYOLU" Then
       Me.cbo_LclFcl.visible = False
       TransportId = "A"
       LclFclId = "AIR"
     
       
   ElseIf Me.cbo_transport_type.Column(1) = "KARAYOLU" Then
       Me.cbo_LclFcl.visible = True
       TransportId = "R"
       Me.cbo_LclFcl.enabled = True
 '      LclFclId = Me.cbo_LclFcl.Column(2)
       Me.cbo_LclFcl.Value = Me.cbo_LclFcl.ItemData(1)
    End If
   
 
Hata:

 If Err.Number = 94 Then
 Exit Sub
 
 End If

olmadı, sanırım tam anlatamadım, ekte gonderdiğim örneği isterseniz dikkate almayın, karışık ve hatalı .
Asagıya ornek olarak yazıoyrum. ,ama comboboxda herhangi bir değişiklik yapmıyor.

*******************
orneğin :  
textbox1 = S
textbox1 = A
Textbox1 = R

combobox =  1) SEA
                      2 ) AIR
                      3 ) ROAD


If Me.textbox1  = "S" Then
       me.combobox .Column(1) = "SEA"
    ElseIf Me.textbox1  = "A" Then
        me.combobox .Column(1) = "AIR"   
    ElseIf Me.textbox1  = "R" Then
         me.combobox .Column(1) = "ROAD"

    End If

***************************************************************

her kayıt için hali hazırda girilmiş text boxda yazılı dataya göre combobox daki herhangi bir itemı secili hale getirmek istiyorum.


YANİ text box içine S Yazılı ise,  combobox da 1. seceneği secili hale getirsin,
         text box içine A yazılı ise,  combobox da 2. seceneği secili hale getirsin

ayrıca bunun form yüklendiği yere yazılması gerekmiyor mu? 
zaten halı hazırda text boxlar içine data girili, sadece o girilmiş dataya göre combobox daki data seçili hale gelecek.
03/07/2018, 15:00

sidd

(03/07/2018, 14:41)sidd yazdı:
(03/07/2018, 12:39)ozanakkaya yazdı: cbo_transport_type açılan kutusunun güncelleştirme sonrasında olayındaki kodu aşağıdaki ile değiştirerek deneyiniz.


On Error GoTo Hata

   If Me.cbo_transport_type.Column(1) = "DENİZYOLU" Then
       Me.cbo_LclFcl.visible = True
       TransportId = "S"
       Me.cbo_LclFcl.enabled = True
'       LclFclId = Me.cbo_LclFcl.Column(2)
       Me.cbo_LclFcl.Value = Me.cbo_LclFcl.ItemData(0)
         
   ElseIf Me.cbo_transport_type.Column(1) = "HAVAYOLU" Then
       Me.cbo_LclFcl.visible = False
       TransportId = "A"
       LclFclId = "AIR"
     
       
   ElseIf Me.cbo_transport_type.Column(1) = "KARAYOLU" Then
       Me.cbo_LclFcl.visible = True
       TransportId = "R"
       Me.cbo_LclFcl.enabled = True
 '      LclFclId = Me.cbo_LclFcl.Column(2)
       Me.cbo_LclFcl.Value = Me.cbo_LclFcl.ItemData(1)
    End If
   
 
Hata:

 If Err.Number = 94 Then
 Exit Sub
 
 End If

olmadı, sanırım tam anlatamadım, ekte gonderdiğim örneği isterseniz dikkate almayın, karışık ve hatalı .
Asagıya ornek olarak yazıoyrum. ,ama comboboxda herhangi bir değişiklik yapmıyor.

*******************
orneğin :  
textbox1 = S
textbox1 = A
Textbox1 = R

combobox =  1) SEA
                      2 ) AIR
                      3 ) ROAD


If Me.textbox1  = "S" Then
       me.combobox .Column(1) = "SEA"
    ElseIf Me.textbox1  = "A" Then
        me.combobox .Column(1) = "AIR"   
    ElseIf Me.textbox1  = "R" Then
         me.combobox .Column(1) = "ROAD"

    End If

***************************************************************

her kayıt için hali hazırda girilmiş text boxda yazılı dataya göre combobox daki herhangi bir itemı secili hale getirmek istiyorum.


YANİ text box içine S Yazılı ise,  combobox da 1. seceneği secili hale getirsin,
         text box içine A yazılı ise,  combobox da 2. seceneği secili hale getirsin

ayrıca bunun form yüklendiği yere yazılması gerekmiyor mu? 
zaten halı hazırda text boxlar içine data girili, sadece o girilmiş dataya göre combobox daki data seçili hale gelecek.

Hallettim teşekkürler, yazdığınız kodu form current a ekleyince çalıştı, bilgilerinize.
Me.cbo_LclFcl.Value = Me.cbo_LclFcl.ItemData(1)
03/07/2018, 15:45

ozanakkaya

Sayın @sidd,

kodu açılan kutunun güncelleştirme sonrasında olayına yazmamın sebebi hangi durumda 0, hangi durumda 1 olduğunu görebilmeniz içindi

Sorunuzun cevabı olan Me.cbo_LclFcl.Value = Me.cbo_LclFcl.ItemData(0) kodu zaten sizin örneğinizde olmayan koddur.

Konunuz taşınmıştır.