AccessTr.neT

Merhabalar, excelin açılışında çalışan bir kodum var.  Açılışta Excel iki adet Access dosyasına bağlanıyor ve sorgulardan veriyi çekiyor ve bağlantıyı kapatıyor. accesslerden birinde hiç bir sorun olmamasına rağmen. Exceldeki kod bir kez çalışınca  diğer Access dosyasını bir daha açamıyorum. sürekli veritabanı dosyası girin hatası veriyor, parola koruması olmamasına rağmen. Elimdeki yedeklerden bir kaç kez denedim. Kod çalıştıktan sonra hata meydan geliyor. Niye böyle oluyor bir türlü çözemedim. Aşağıdaki Excel kodları ile ilgili bir sorunmu var, yoksa accees ile ilgili bir sorunmu. yardımcı olursanız sevinirim. 

Private Sub Workbook_Open()

Sheets("Ajanda").Activate



Set baglan = CreateObject("adodb.connection")

baglan.Open "provider=microsoft.jet.oledb.4.0;data source=C:\Users\Finansman\Documents\Cari Hesaplar\araclar.mdb;"





Set rs = baglan.Execute("SELECT * FROM Sayvize")

Sheets("Ajanda").Range("a4").CopyFromRecordset rs



Set rs = baglan.Execute("SELECT * FROM Saytrafik")

Sheets("Ajanda").Range("b4").CopyFromRecordset rs



Set rs = baglan.Execute("SELECT * FROM SayKasko")

Sheets("Ajanda").Range("c4").CopyFromRecordset rs



Set baglan = Nothing: Set rs = Nothing:



Set baglan2 = CreateObject("adodb.connection")

baglan2.Open "provider=microsoft.jet.oledb.4.0;data source=C:\Users\Finansman\Documents\diğer\teminat mektupları.mdb;"



Set rs = baglan2.Execute("SELECT * FROM mk")

Sheets("Ajanda").Range("d4").CopyFromRecordset rs



Set baglan2 = Nothing: Set rs = Nothing:



If Sheets("Ajanda").Range("a4").Value + Sheets("Ajanda").Range("b4").Value + Sheets("Ajanda").Range("c4").Value > 0 Then

MsgBox "Araçlarda günü gelen var", vbOKOnly, "Hata"

End If



If Sheets("Ajanda").Range("d4").Value > 0 Then

MsgBox "Mektuplarda günü gelen komisyon var", vbOKOnly, "Hata"

End If



End Sub

Merhaba,

baglan.open kodu ile veri aldıktan sonra bağlantıyı kapatmayı deneyin.

Set baglan = Nothing: Set rs = Nothing:

kodunun altına

baglan.Close 

kodu ekleyerek deneyiniz.

Diğer bağlantı içinde benzer işlemi yapmalısınız.

Teşekkürler sn.ozanakkaya kodu eklediğimde, "object variable or with block variable not set" hatası veriyor. yalnız uğraşırken bir şeyin farkına vardım. Sorun koddan kaynaklanmıyor. Excelin bir hücresine köprü oluşturdum tıklayınca Access dosyası açılıyor. Sorun köprüye tıklayınca oluşuyor. Yalnız şeytan bunun neresinde, iki Access dosyası var, ikisinide köprüyle açıyorum, biri sorunsuz biri sorunlu.

sayın Mecnun24,

siz de takdir edersiniz ki,
sadece ifadeler ya da bilgisel bazda çözüme yetersiz kalacak sorunlarda içeriğini görmeden,sadece yazılı bilgilere veya eklenen resimlere bakarak çözümler sunmak yetersiz kalacaktır.örnek eklenmesi yerinde olacaktır.

bu nedenle,lütfen,
Site Kuralları gereği;
içeriğinde farazi gerçek dışı uydurma veriler ve işlemlerin neticelerini görebilecek şekilde 4-5 kayıt olacak halde örnek uygulamanızı eklemeye özen gösteriniz.teşekkürler.

bilginize...iyi çalışmalar,saygılar.

sayın atoz, işyerinin bilgisayarlarından programı kopyalamadığım için paylaşamadım. Aynı durumla karşılaşan vardır umuduyla konuyu açtım. Son çare köprüyü kaldırıcam artık.

sayın Mecnun24,

Alıntı:...kodu eklediğimde, "object variable or with block variable not set" hatası veriyor...

ifadenize yönelik olarak;

kod sayfasında üst menüden TOOLS - References penceresinde Microsoft ActiveX Data Objects 2.X Library ifadesi mevcut değilse seçip işaretleyiniz.

bir diğer bilgi olarak da,
Recordset için NEW tanımlaması yapmamış olabilirsiniz.

ÖRNEK

Dim rs As New ADODB.Recordset

ifadesini dahil etmelisiniz.

bilginize...iyi çalışmalar,saygılar.