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.