Bu kodda hata nedir arkadaşlar

[couldbe]

yapmak istediğim listbox da istenen isme tıklandığında excelde formun o kişinin bilgileriyle dolması fakat çalışmıyo.. ilginiz için teşekürler

Private Sub ListBox1_Click()
TC_SEC = ListBox1.Column(2)

Dim sql As String
sql = "select * from[Liste$] where TC_SEC like '" & TCNO & "*' ' "

Call bul(sql)

End Sub
Private Sub bul(sql As String)
Dim MyDB As DAO.Database
Dim RS As DAO.Recordset
Dim RScount As Long

On Error GoTo ErrHandler:
Set MyDB = OpenDatabase(DBpath, False, False, "Excel 8.0")
Set RS = MyDB.OpenRecordset(sql)

Sheets("Sheet1").Range("A1") = RS("Isim")

RS.Close
MyDB.Close
Set RS = Nothing
Set MyDB = Nothing
End Sub

 

[couldbe]

yokmu adoyla ilgilenen arkadaş

yokmu adoyla ilgilenen arkadaş
gerçekten önemli arkadaşlar

 

[Archi]

hocam hangi satırda hata veriyor. ne hatası veriyor?

bir de [Liste$] yerine `Liste$` dene..

olmazsa queryini microsoft query ile oluştur. sonra sql kodunu oradan copy+paste yap..

 

[couldbe]

Yapmak İstedİĞİm

YA ÜSTAD YAPMAK İSTEDİĞİM İŞYERİNDE ORTA MÜŞTERİ TABANI

KAPLI DURUMDAKİ EXCELİ LİSTBOXE DÖKTÜRDÜM(MÜŞTERİ LİSTESİ)
aMA TEK İHTİYACIM LİSTBOXTA HERHANGİ Bİ İSME TIKLADIĞIMDA O ŞAHSIN TC NUMARASINI KULLANARAK TÜM BİLGİLERİNİ EXCELDEN ALDIRARAK(KAPALI OLAN) AÇIK OLAN EXCELDEKİ FORMLARI DOLDURMAK.

ÇOK ÖNCE ASP İLE UĞRAŞMIŞTIM. O YÜZDEN ŞU TC NO REFARANSIYLA GEREKLİ BİLGİYİ OKUTABİLSEM. BİR İSMİNİ BİLE YAZDIRABİLSEM. GERİSİN HALLEDERİM AM EN SON YAPTIĞIM. ÇOK AZ PARAMETRE DİYE HATA VERİYO.
İLGİLENEBİLİRSEN DOSYAYI GÖNDEREBİLİRİM

TEŞEKÜRLER

 

[couldbe]

dosyayıda ekledim

dosyayıda ekledim

 

[couldbe]

microsoft query

microsoft query nasıl oluşturuluyor peki arkadaşlar?

 

[Archi]

getdata fonksiyonunu şu şekilde değiştirdim hata vermeden açıldı ama devamına bakmadım:

Set MyDB = OpenDatabase(ThisWorkbook.Path & "\rapor.xls", False, True, "Excel 8.0;HDR=Yes;")
Set RS = MyDB.OpenRecordset("SELECT * FROM `Liste$`")

 

[Archi]

Microsoft Queryi çok faydalı bir şeydir.
Office' i kurarken kurulum için bir yerlere check atman gerekiyor. kurulu değilse office cd' sini takıp kurabilirsin..

DATA menusunden --> GET EXTERNAL DATA --> NEW DATABASE QUERY' ye tıklarsan çalışır.

 

[couldbe]

OLDU

üstad oldu query ile bişeyler yaptım ama bunun kodlarını nasıl görcem benim kodları bulup onları kullanıp kendi istediğimi yapmam lazım

ilgin için teşekürler