yüklenebilir ISAM bulunamadı????

[cagriyildirim]

program "yüklenebilir ISAM bulunamadı" hatası veriyor. debug yapınca

cn.Open _
"Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & ThisWorkbook.FullName & _
"Extended Properties=""Excel 12.0;HDR=YES"";"

kısmı gösteriyor.
yardımcı olursanız çok sevinirim.

Sub totals()
Dim cn As Object, rs As Object

Set cn = CreateObject("ADODB.Connection")

cn.Open _
"Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & ThisWorkbook.FullName & _
"Extended Properties=""Excel 12.0;HDR=YES"";"
    
Set rs = cn.Execute( _
"select distinct isim, sum(başvuru), sum(başarı) " & _
"from [Sayfa1$] " & _
"group by isim")

With Sheets("zeki")
    .[a2:c65536].ClearContents
    .[a2].CopyFromRecordset rs
End With

rs.Close
cn.Close

Set rs = Nothing
Set cn = Nothing

End Sub

 

[Ferhat Pazarçevirdi]

Connection String'i aşağıdaki şekilde düzeltip deneyiniz. Veri aldığınız dosyanın uzantısının da xlsx olduğuna dikkat edin ..

cn_open _
      "Provider=Microsoft.ACE.OLEDB.12.0;" & _
      "Data Source=" & ThisWorkbook.FullName & "; " & _
      "Extended Properties=Excel 12.0 Xml;" & _
      "HDR=YES;"

 

[cagriyildirim]

Ferhat, ya ben beceremedim yada böylede hata veriyor. debug yapıca
Sub totals()
kısmını gösteriyor

 

[Ferhat Pazarçevirdi]

Aldığınız yeni hata mesajı nedir peki ?

 

[cagriyildirim]

Compile error:
Sub or Function not defined
diyor

 

[Ferhat Pazarçevirdi]

Size gönderdiğim kodları yapıştırılen; makro yapısında fazlalık veya eksiklik kalıp kalmadığına dikkat edin.

Aşağıdaki gibi bir eksiklik (End Su gibi, aslen End Sub olacak) arayın.

Sub Totals()
.....
.....
[COLOR=red][B]End Su[/B][/COLOR]

 

[cagriyildirim]

Sub Totals()
Dim cn As Object, rs As Object

Set cn = CreateObject("ADODB.Connection")

cn_open _
      "Provider=Microsoft.ACE.OLEDB.12.0;" & _
      "Data Source=" & ThisWorkbook.FullName & "; " & _
      "Extended Properties=Excel 12.0 Xml;" & _
      "HDR=YES;"
    
Set rs = cn.Execute( _
"select distinct isim, sum(başvuru), sum(başarı) " & _
"from [Sayfa1$] " & _
"group by isim")

With Sheets("zeki")
    .[a2:c65536].ClearContents
    .[a2].CopyFromRecordset rs
End With

rs.Close
cn.Close

Set rs = Nothing
Set cn = Nothing

End Sub

bunu kullanıyorum

 

[Ferhat Pazarçevirdi]

Ben de hiç dikkat etmemişim ... cn_open yazan ifadeyi cn.open olarak düzeltip tekrar deneyiniz.

 

[cagriyildirim]

yine ISAM hatası verdi.

 

[Ferhat Pazarçevirdi]

Peki, o zaman, son mermiyi harcıyorum şimdi ...

Aşağıdaki linki inceleyiniz ve tarif edilen yönergeleri izleyiniz.

http://support.microsoft.com/kb/209805/tr

 

[cagriyildirim]

dostum son gönderdiğin linke daha önceden bakmıştım işe yaramamıştı. Uğraşın için çok teşekkür ederim

 

[Ferhat Pazarçevirdi]

Bu durum; anladığım kadarıyla Access'cilerin başına sık gelen ve tartışılan bir durum ...

Bir Access bloğunda; Office paketinin Tipik/Typical kurulumunda, bazı dosyaların default olarak yüklenmediği ve tekrar Setup çalıştırılarak, Data Access basamağında, manuel seçim yapılması gerektiği söylenmekte ...

Ama yine setup basamağı doğru geçsenizde; bu yine de bazı durumlarda, yine aynı hata mesajının alınabileceği söyleniyor ... Bu durumda; registry ayarlarında bir bozulma olabiliyormuş ...

Siz eniyisi aşağıdaki linki de inceleyin. Belki bir çare olur ...

http://www.mvps.org/access/bugs/bugs0017.htm

NOt : Şu an projeyi, çalıştığınız ortam Excel 2007 mi?

 

[cagriyildirim]

Evet,,,,,,