+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Text İçindeki Dataya Göre Combobox Secilmesi (/konu-text-icindeki-dataya-gore-combobox-secilmesi.html)
Text İçindeki Dataya Göre Combobox Secilmesi - sidd - 02/07/2018
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.
Cvp: Text İçindeki Dataya Göre Combobox Secilmesi - ozanakkaya - 03/07/2018
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
Cvp: Text İçindeki Dataya Göre Combobox Secilmesi - sidd - 03/07/2018
(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.
Cvp: Text İçindeki Dataya Göre Combobox Secilmesi - sidd - 03/07/2018
(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)
Cvp: Text İçindeki Dataya Göre Combobox Secilmesi - ozanakkaya - 03/07/2018
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.