listboxtaki verileri textboxa aldırma

[aydın3838]

selamlar

benim sorum şöyle

1 userformum var

textbox1 de veri tabanından arama yapıyorum ve listboxta aradığım veri tek

olarak listede görünüyor

listboxta tıkladığımda veriyi textboxlara alıyorum buraya kadar tamam

benim isteğim ise

listboxa tıklamadan verileri textlere alması

yani textbox1 e yalçın ismini aratıp listboxta gördüğümde textlere anında

geçmesi

saygılar

 

[aydın3838]

örnek dosya ektedir

veri tabanı olarak accesskullanıldı

 

[Korhan Ayhan]

Selamlar,

Arama yaptığınız TextBox nesnesine ait kodu aşağıdaki şekilde değiştirip denermisiniz.

Private Sub TextBox1_Change()
On Error GoTo hata
If OptionButton1.Value = True Then
ListBox1.Clear
Set baglan = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
Call baglanti
    rs.Open "select * from [MUSTERİ_REHBERİ] WHERE [MUSTERİ_REHBERİ].ADI LIKE '%" & TextBox1.Text & "%'", baglan, 1, 1
With ListBox1
    .RowSource = Empty
    .ColumnCount = 3
    .ColumnWidths = "30;30;30"
    .Column = rs.getrows
End With
If ListBox1.ListCount > 0 Then
    txKimlik.Value = ListBox1.List(0, 0)
    txtCalisanKod.Value = ListBox1.List(0, 1)
    txtAdi.Value = ListBox1.List(0, 2)
    txtSoyadi.Value = ListBox1.List(0, 3)
End If
    
    rs.Close
Set rs = Nothing
Else
ListBox1.Clear
Set baglan = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
Call baglanti
    rs.Open "select * from [MUSTERİ_REHBERİ] WHERE [MUSTERİ_REHBERİ].CALISAN_KODU LIKE '" & TextBox1.Text & "%'", baglan, 1, 1
With ListBox1
    .RowSource = Empty
    .ColumnCount = 3
    .ColumnWidths = "30;30;30"
    .Column = rs.getrows
End With
If ListBox1.ListCount > 0 Then
    txKimlik.Value = ListBox1.List(0, 0)
    txtCalisanKod.Value = ListBox1.List(0, 1)
    txtAdi.Value = ListBox1.List(0, 2)
    txtSoyadi.Value = ListBox1.List(0, 3)
End If
    
    rs.Close
Set rs = Nothing
End If
hata:
If Err = 3021 Then
    txKimlik.Value = Empty
    txtCalisanKod.Value = Empty
    txtAdi.Value = Empty
    txtSoyadi.Value = Empty
    Exit Sub
End If
End Sub

 

[aydın3838]

çok teşekkür ederim sayın korhan bey çok işime yaradı

korhan bey bir sorum daha olacak olabilir ve ya olamaz alternatif cevap alırsam sevinirim

benim projede 1 ana form var ana form sadece diğer 20 formu yönetmek için kullanılıyor

diyelim tahsilat yapılacak ana sayfada TAHSİLAT BUTONU TAHSİLAT formu açıldı

ve müşteri seçmem gerekiyor ben istiyorumki MÜŞTERİ BUL formuyla kimi seçtiysem

seçili müşteri hangi form açıldıysa ilgili formdaki textlerde gözüksün şöyleki

yeni bir müşteri eklendim YALÇIN AYDIN müşteri ismi yalçına satış yapılacak satış formunu

açtığımdada en son yalçın aydın seçıli ise o kalsın

bir alternatifiniz varsa sevinirim

saygılar

 

[Korhan Ayhan]

Selamlar,

MÜŞTERİ BUL formu ile bulduğunuz verileri excel sayfasında sabit hücrelere yazdırın. Daha sonra açacağınız formlara müşteri ile ilgili bilgileri excel sayfasından aldırın.

 

[aydın3838]

sağolun fedeal bey bende öyle düşünmüştüm

uzman olarak görüşünüzü almak istedim

saygılar iyi akşamlar

 

[Korhan Ayhan]

Selamlar,

Sanırım isimleri karıştırdınız.

 

[aydın3838]

Selamlar,

Sanırım isimleri karıştırdınız.

bazel oluyor işte kusura bakmayın

sağolun korhan bey bende öyle düşünmüştüm

uzman olarak görüşünüzü almak istedim

saygılar iyi akşamlar