Çözüldü Combobox ile düşeyara

[GursoyC]

Merhaba,
konuyu epey bir araştırdım. Aslında çözümü Sayın Levent Menteşoğlu foruma 2008 yılında yazmış ancak eklediği dosya silinmiş.

Ekli "örnek" isimli çalışma kitabımda deneme isimli userform üzerinde combobox'a getirttiğim isim karşılığında, aynı form üzerinde bulunan textbox'lara düşeyara fonksiyonu ile liste isimli çalışma kitabımdaki bilgileri getirmek istiyorum.

Yardım eder misiniz?

Not: Userform üzerindeki düğmenin çalışması için iki dosyanın da aynı klasörde olması gerekmektedir.

 

[Korhan Ayhan]

Deneyiniz.

Private Sub ComboBox1_Change()
    Dim Baglanti As Object, Kayit_Seti As Object, Sorgu As String
    
    Set Baglanti = CreateObject("Adodb.Connection")
    Set Kayit_Seti = CreateObject("Adodb.RecordSet")
    
    Baglanti.Open "Provider=Microsoft.Ace.Oledb.12.0;Data Source=" & _
    ThisWorkbook.Path & "\liste.xlsm;Extended Properties=""Excel 12.0;Hdr=No"""
    
    Sorgu = "Select F2,F3 From [Sayfa1$] Where F1='" & ComboBox1.Text & "'"
    
    Kayit_Seti.Open Sorgu, Baglanti, 1, 1
    
    If Kayit_Seti.RecordCount > 0 Then
        TextBox1.Value = Kayit_Seti.Fields(0).Value
        TextBox2.Value = Kayit_Seti.Fields(1).Value
    End If
    
    Kayit_Seti.Close
    Baglanti.Close
    
    Set Baglanti = Nothing
    Set Kayit_Seti = Nothing
    Sorgu = vbNullString
End Sub

 

[GursoyC]

Korhan bey, çok teşekkür ederim.Gayet güzel çalışıyor.
Saygılar.