AccessTr.neT

Tam Versiyon: Text İçindeki Dataya Göre Combobox Secilmesi
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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.
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, 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, 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)
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.