Textbox otomatik Algılama

[hlojan]

Şimdiden Teşekkürler

Bir form düzenliyorum. Evren bey sağolsun yardımcı oldu. Ama bir yerde yine tıkandım

Private Sub bul_Click()
Dim conn As Object, rs As Object
Set conn = CreateObject("Adodb.connection")
Set rs = CreateObject("Adodb.recordset")
conn.Open "Provider=Microsoft.ace.OLEDB.12.0;data source=" & ThisWorkbook.Path & _
        "\MÜŞTERİ DATA.xlsx;extended properties=""excel 12.0;hdr=yes"""
        
Set rs = conn.Execute("select * from [Sayfa1$] where KOD='" & TextBox1.Text & "';")
On Error Resume Next
TextBox2.Text = ""
TextBox3.Text = ""
TextBox2.Text = rs("FİRMA").Value
TextBox3.Text = rs("ADRES").Value
conn.Close
Set rs = Nothing: Set conn = Nothing
End Sub

Private Sub CommandButton1_Click()
Dim conn As Object, rs As Object
Set conn = CreateObject("Adodb.connection")
Set rs = CreateObject("Adodb.recordset")
conn.Open "Provider=Microsoft.ace.OLEDB.12.0;data source=" & ThisWorkbook.Path & _
        "\CİHAZ DATA.xlsx;extended properties=""excel 12.0;hdr=yes"""
       
Set rs = conn.Execute("select * from [Sayfa1$] where SERİ='" & TextBox7.Text & "';")
On Error Resume Next
TextBox5.Text = ""
TextBox6.Text = ""
TextBox5.Text = rs("MARKA").Value
TextBox6.Text = rs("MODEL").Value
conn.Close
Set rs = Nothing: Set rs = Nothing
End Sub

Kodumuz bu

Excel dosyamız kapalı olan Müşteri ve Cihaz dosyalarından veriyi bul komutu ile alıyor.

Seri yazarken 12548........ yazdığımda 1254889624558 gibi anımsasın. Yada aşağı doğru list view olsun google da arama yapar gibi.

Yardımcı olursanız sevinirim

 

[veyselemre]

Formunuza Combobox1 ekleyin aşağıdaki kodu deneyin.

Private Sub UserForm_Initialize()
    Dim conn As Object, rs As Object
    Set conn = CreateObject("Adodb.connection")
    Set rs = CreateObject("Adodb.recordset")
    conn.Open "Provider=Microsoft.ace.OLEDB.12.0;data source=" & ThisWorkbook.Path & _
              "\CİHAZ DATA.xlsx;extended properties=""excel 12.0;hdr=yes"""
    Set rs = conn.Execute("SELECT DISTINCT SERİ as seriler FROM [Sayfa1$] WHERE SERİ Is Not Null ORDER BY SERİ")
    If rs.EOF = False Then
        ComboBox1.Column = rs.GetRows
    End If
    conn.Close
    Set rs = Nothing: Set conn = Nothing
End Sub

 

[hlojan]

veysel bey
malesef hata verdi

compile error
cant find project or library

 

[hlojan]

ama şey yaptım .

combobox oluşturup sizin kodunuzu oraya yapıştırdım

textbox7.value= malum combobox.value

yaptım oldu ama

busefer 2 tane box oldu seri yazmak için

 

[vardar07]

Userform üzerine combobox eklemeden denerseniz hata verir. Combobox ekleyip arayacağınızı eklediğiniz comboboxa yazarak deneyin.

 

[hlojan]

vardar ama boylede formda hem text hem combobox oluyor. bunlari tek yapma sansim var mi

 

[vardar07]

Dosyayı incelermisiniz.

 

[hlojan]

Teşekkürler işime yaradı