Comboboxta seçilen değere göre textboxa veri almak

[SİBEL70]

Merhabalar,

Sitenizde Sayın Evren Gizlen tarafından yayınlanmış olan bir dosya mevcut. Dosya üzerinde combobox ta isim seçilince textboxlara değerleri getirmesi için değişiklik yapmaya çalışıyorum ancak başaramadım yardımcı olabilirseniz sevinirim.

Saygılar,

 

[Orion1]

Comboboxtan isim seçip bul butonuna bastığınzda o isme ait kayıtlar listboxta listeleniyor.
Siz listboxta listelenenlerden bir tanesini seçerseniz textboxlarda o seçili satır listelenir.

 

[SİBEL70]

Evren Bey merhabalar,

Dosyanızın bu şekilde kullanıldığını biliyorum. Çok aydınlatıcı ve mükemmel bir örnek bu konuda paylaşım için teşekkür ederim. Cari hesap takipleri ile ilgili bir program üzerinde çalışıyorum. Örneğinizde olduğu gibi veri tabanı access ve veri girişi exceldeki userformdan yapılıyor. Yapmak istediğim listbox'ı Userform üzerinde kullanmadan, combobox'ın change olayı ile isim comboboxa geldiğinde diğer verileri textboxlara aldırabilmek. Bu mümkünse ve yardımcı olabilirseniz çok sevinirim.
Saygılar

 

[Orion1]

Evren Bey merhabalar,

Dosyanızın bu şekilde kullanıldığını biliyorum. Çok aydınlatıcı ve mükemmel bir örnek bu konuda paylaşım için teşekkür ederim. Cari hesap takipleri ile ilgili bir program üzerinde çalışıyorum. Örneğinizde olduğu gibi veri tabanı access ve veri girişi exceldeki userformdan yapılıyor. Yapmak istediğim listbox'ı Userform üzerinde kullanmadan, combobox'ın change olayı ile isim comboboxa geldiğinde diğer verileri textboxlara aldırabilmek. Bu mümkünse ve yardımcı olabilirseniz çok sevinirim.
Saygılar

Ama comboboxta benzersi kayıtlar listelenip ayni isimde birden fazla veri olabilir.
İşte bu durumda listboxta ayni isme ait isim leri listelemek gerekebilir.O zaman sizin yapmak istediğiniz işe yaramaz.

 

[SİBEL70]

Evren bey,

O Konuyu Müşteri listeleri ile ilgili bir tabloda çözümledim. Firma kaydı, access tablosunda ki isme bakılarak bir sefer kaydedilebiliyor. Combobox'a verileride bu tablodan aldırdım. Textboxlara verilerde müşteri listeleri adlı tablodan gelecek. Dolayısıyla kayıtlar benzersiz. Bu textboxlara aldırdığım veriler ise müştericari isimli ikinci bir tabloya gidecek. Listboxla'da bu işlem yapılabiliyor ancak kullanımda karışıklığı önlemek istediğim için bu şekilde combobox kullanımını düşündüm.

 

[Orion1]

Evren bey,

O Konuyu Müşteri listeleri ile ilgili bir tabloda çözümledim. Firma kaydı, access tablosunda ki isme bakılarak bir sefer kaydedilebiliyor. Combobox'a verileride bu tablodan aldırdım. Textboxlara verilerde müşteri listeleri adlı tablodan gelecek. Dolayısıyla kayıtlar benzersiz. Bu textboxlara aldırdığım veriler ise müştericari isimli ikinci bir tabloya gidecek. Listboxla'da bu işlem yapılabiliyor ancak kullanımda karışıklığı önlemek istediğim için bu şekilde combobox kullanımını düşündüm.

Örnek dosyaları yollayın.Tablo yapısını görmem lazım.

 

[SİBEL70]

Evren Bey,

Üzerinde çalıştığım dosya ekte. Biraz karışık olabilir. Henüz düzenlenmedi. Formları excel vb sayfasından açıyorum.

 

[Orion1]

Hangi userfomda hangi comboboxtan bahsediyorsunuz?Çğnkü 3 tane user form var.

 

[SİBEL70]

Evren bey,

Sizin kodlarınızı düzenlemek istediğim form frmmustericari adlı olan. frmmustericari üzerindeki combobox verileri MusteriListesi adlı tablodaki CariAdi adlı sütundan alıyor. Ve kodlaması bittiğinde MusteriCari adlı access tablosuna kayıt yapacak.

 

[SİBEL70]

Konu ile ilgili aşağıdaki kodlara ulaştım ama uyguladığımda kod hata verdi

Private Sub cbmbccariad_Change()
If cbmbccariad.Text = "" Then Exit Sub
Dim ry As New ADODB.Recordset, sorgu As String
Set ry = New ADODB.Recordset
sorgu = "select * FROM [MusteriListesi] where [CariAdi] like '" & cbmbccariad.Text & "%" & "'"
ry.Open sorgu, conn, 3, 1
TextBox1.Text = ry(0)
TextBox2.Text = ry(1)
ry.MoveNext
Set ry = Nothing
sorgu = Empty
End Sub

 

[Orion1]

Ben 3-4 satır yazdım siz devam ediniz.
Dosya ektedir.

Private Sub cbmbccariad_Click()
If cbmbccariad.ListIndex < 0 Then Exit Sub
tbcmbkayittarihi.Text = cbmbccariad.Column(5)
tbcmbkayıtsirano = cbmbccariad.Column(0)

'Aşağıdaki kod en son satır olmalı
cbmbccariad.Text = cbmbccariad.Column(4)
End Sub

 

[SİBEL70]

Evren Bey,

Ellerinize sağlık ihtiyacım olan bu idi. Teşekkür ediyorum. Combobox üzerindeki kolon genişliklerini aşağıdaki gibi ayarlamaya çalıştım ama hata verdi. Bunu düzeltebilmek mümkünmü?

cbmbccariad.ColumnCount = 32
cbmbccariad.ColumnWidths = "0;0;0;80;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0"
cbmbccariad.Column = rs.GetRows(rs.RecordCount)

 

[Orion1]

Evren Bey,

Ellerinize sağlık ihtiyacım olan bu idi. Teşekkür ediyorum. Combobox üzerindeki kolon genişliklerini aşağıdaki gibi ayarlamaya çalıştım ama hata verdi. Bunu düzeltebilmek mümkünmü?

cbmbccariad.ColumnCount = 32
cbmbccariad.ColumnWidths = "0;0;0;80;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0"
cbmbccariad.Column = rs.GetRows(rs.RecordCount)

Hatayı düzelttim.
11ncümesajdan indirebilirisniz.
cmn.value deiğlde cmn.text= yazmank gerekiyormuş.

 

[SİBEL70]

Evren Bey,

Aklınıza, ellerinize sağlık. Çok teşekkür ediyorum. İyi bir akşam geçirmenizi temenni ederim.

Saygılar,

 

[Orion1]

Evren Bey,

Aklınıza, ellerinize sağlık. Çok teşekkür ediyorum. İyi bir akşam geçirmenizi temenni ederim.

Saygılar,

Rica ederim.
Sizede iyi geceler dilerim.