Value degeri atamak sorun

[ikikan]

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim baglanti As Object, yer As Object, sayfa As Object
Set baglanti = New ADODB.Connection
Set yer = New ADODB.Recordset
ListBox2.Clear
baglanti.Open "Provider=Microsoft.Ace.Oledb.12.0;Data Source=" & _
ThisWorkbook.Path & "\KartP\mutlu.xlsx ;Extended Properties='Excel 12.0 Macro;HDR=YES';"
yer.Open "Select * From [Sayfa1$];", baglanti, 1, 1
With ListBox2
.AddItem
.ColumnCount = 1
.List(0, 0) = yer(0)
End With
Label1.Caption = ""
Label1.Caption = ListBox1.Value
yer.Close
baglanti.Close
End Sub

kırmızı ile olan bölüme listbox1.value degeri verince kod çalışmıyor
bu sorunu nasıl çöze biliriz

 

[İhsan Tank]

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim baglanti As Object, yer As Object, sayfa As Object
Set baglanti = New ADODB.Connection
Set yer = New ADODB.Recordset
ListBox2.Clear
baglanti.Open "Provider=Microsoft.Ace.Oledb.12.0;Data Source=" & _
ThisWorkbook.Path & "\KartP\mutlu.xlsx ;Extended Properties='Excel 12.0 Macro;HDR=YES';"
yer.Open "Select * From [Sayfa1$];", baglanti, 1, 1
With ListBox2
.AddItem
.ColumnCount = 1
.List(0, 0) = yer(0)
End With
Label1.Caption = ""
Label1.Caption = ListBox1.Value
yer.Close
baglanti.Close
End Sub

kırmızı ile olan bölüme listbox1.value degeri verince kod çalışmıyor
bu sorunu nasıl çöze biliriz

Doğru hata verir çünkü kitap adları sadece ve sadece metinsel ifade kullanır. Bunun yerine Listbox1.text kullanın ve deneyin.
Yapamazsanız lütfen örnek dosya ekleyin

 

[ikikan]

ilginiz için teşekürler dosya ektedir. 2007 formatı

 

[Mehmet Şahin]

Merhaba,
İhsan beyin hoşgörüsüne sığınarak;
ilgili satırı aşağıdaki şekilde değiştirip deneyiniz. İyi akşamlar.

ThisWorkbook.Path & "\KartP\" [B][COLOR=Red]& ListBox1.Value &[/COLOR][/B] ";Extended Properties='Excel 12.0 Macro;HDR=YES';"

 

[ikikan]

Merhaba,
İhsan beyin hoşgörüsüne sığınarak;
ilgili satırı aşağıdaki şekilde değiştirip deneyiniz. İyi akşamlar.

ThisWorkbook.Path & "\KartP\" [B][COLOR=Red]& ListBox1.Value &[/COLOR][/B] ";Extended Properties='Excel 12.0 Macro;HDR=YES';"

ilginiz için teşekürler lakin bu dediğniz kodu daha önce uyguladım sonuş vermiyor

 

[Mehmet Şahin]

Merhaba,
dosyanızı test ettim. İlgili dosyalarda "Sayfa1" aranıyor. "Mutlu" ve "Veritabanı" adlı dosyalarda sorun yok ancak deneme ile başlayan dosyalarda bu sayfayı bulamadığından hata veriyor.

 

[ikikan]

teşekurler yeni farketim