Combobox Ta Seçtiğim Araç Plakasını Son Km' Sini Textbox A Alma

Combobox Ta Seçtiğim Araç Plakasını Son Km' Sini Textbox A Alma - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Combobox Ta Seçtiğim Araç Plakasını Son Km' Sini Textbox A Alma (/konu-combobox-ta-sectigim-arac-plakasini-son-km-sini-textbox-a-alma.html)

Sayfalar: 1 2

RE: Combobox Ta Seçtiğim Araç Plakasını Son Km' Sini Textbox A Alma - berduş - 25/08/2023

1 - çalışmanıza Plaka_KM_Mdl adında bir modül ekleyin (aslında isim çok önemli değil ama içeriği hakkında bilgi vermesi için modüle uygun isim vermeniz yerinde olur)
2 - bu modüle aşağıdaki fonksiyonu ekleyin

Function veriBul(xPlk As String) As Long

    Dim ADO_CN As Object

    Dim ADO_RS As Object



    Set ADO_CN = CreateObject("Adodb.Connection")

    Set ADO_RS = CreateObject("adodb.recordset")



    veriBul = 0

    DzAy = Split("Ocak,Şubat,Mart,Nisan,Mayıs,Haziran,Temmuz,Ağustos,Eylül,Ekim,Kasım,Aralık", ",")

     

     For Each Itm In DzAy

     xSql = xSql & _

            " union all" & vbNewLine & _

            " SELECT [F3],[F6] from [" & Itm & "$A3:G]  where not isnull([F6]) "

     Next

     xSql = "select  max(cdbl([F6])) from (" & Mid(xSql, 12) & ") where [F3]='" & xPlk & "'" ' as A " '& "ORDER BY (A.Trh) desc"



    ADO_CN.ConnectionString = "provider=Microsoft.ACE.OLEDB.12.0;data source=" & ThisWorkbook.FullName & ";extended properties=""excel 12.0;hdr=no"""

    ADO_CN.Open

    ADO_RS.Open xSql, ADO_CN, 3, 1

    If Not IsNull(ADO_RS(0)) Then veriBul = ADO_RS(0)

ADO_RS.Close

ADO_CN.Close

Set ADO_RS = Nothing

Set ADO_CN = Nothing

End Function

3 - UserForm1deki ComboBox2nin yani plakaların seçildiği açılır kutunun değiştiğinde olayını aşağıdaki gibi düzenleyin

Private Sub ComboBox2_Change()

    TextBox26 = veriBul(ComboBox2.Text)

End Sub

dilerim işinize yarar
Not: kodda anlamadığınız yerleri mutlaka sorup/araştırarak öğrenmeye çalışın
iyi çalışmalar

RE: Combobox Ta Seçtiğim Araç Plakasını Son Km' Sini Textbox A Alma - Vahap5244 - 25/08/2023

Teşekkür ederim.