RunTime Error 429, Vista, Ofis 2007

[hsayar]

Bir hücredeki veri değiştiğinde ona bağlı olaan başka bir çalışma kitabından veriler alınmakta. Ancak şimdi kullanmaya kalktığımda kırmızı satırda ;


Run Time Error 429
ActiveX component can't crate object hatası veriyor...
Sistem Vista işletim sisitemi ve Ofis 2007

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [C2]) Is Nothing Then Exit Sub                      'a4:a65536 aralığı değişmemişse çık
    If Target.Count > 1 Then Exit Sub                                                       'birden fazla satır seçildiğinde
    
    '*****************************************************************
'Ripek - 26/12/2007
'veri tabanına bağlan
Baglan:
Dim Baglanti As ADODB.Connection                                                    'ADODB bağlantı değişkeni tanımla
Dim Kayit1 As ADODB.Recordset                                                       'ADODB kayıt alan değişkeni tanımla
Dim FSO As Object                                                                   'Dosya kontol objesi tanımla
Dim SQLStr, Kaynak, tcno As String                                                  'Sorgulanacak alanlar, kaynak dosya, ve sorgulanacak kritere ilişkin tanımları yap
'***********************************************************************
currentrow = Target.Row                                                             '?
CurrentvALUE = Target.Value                                                         '?

Kaynak = Application.ThisWorkbook.Path & "\" & "VTTckimlik.xls"                       'Kaynak olarak bu kitabın olduğu klasörde veri tabanı belirt
[COLOR=Red]Set FSO = CreateObject("Scripting.FileSystemObject")                                'Dosya [/COLOR]kontorol objesine değer ata
If FSO.FileExists(Kaynak) = False Then                                              'Kaynak dosya var mı yokmu bak, yoksa
    MsgBox Kaynak & " " & " Dosyası Bulunamadı.", vbInformation, "Bilgi"                'Uyarı ver,
    Exit Sub                                                                            'makrodan çık
End If        
.......

yardımlarınız için peşinenn teşekkür ederim.

 

[halit3]

aşağıdaki linkten
http://support.microsoft.com/kb/260885


o9regfix.exe

dosyasını indir sorununu çözer zannediyorum

 

[hsayar]

Alakanıza teşekkür ederim, dediğiniz dosya işe yaramıyor Ofis2003 e kadar destekliyor sanırım.

Soruyu değiştirip Vistada belirtilen yolda dosya var mı sorusunun cevabının verebilecek kod parçacığı nasıl olmalıdır diye soralım birde?

 

[hsayar]

yukarıdaki dosya için dır çekmeyi kullandım şimdi de

Sub dicAl()
  Dim snlTab(), YrdTab(), x&, g&, al$, y%
  Set wsData = ThisWorkbook.Sheets("DATA")
 [COLOR=Red] Set dic = CreateObject("Scripting.Dictionary")
[/COLOR]

bu kırmızı satırda hata veriyır, işin ilginci daha evvel çalışıyordu ?
Eksik reference ise hangisi?

 

[hsayar]

Vistada
Denetim Masası\Kullanıcı Hesapları
girdikten sonra en altta bulanan
Kullanıcı Hesabı Denetimi'ni Aç veya Kapat seçeneğini tıklıyoruz ve bu kranda bulunan onay işaretini kaldırıyoruz. Sistemi yeniden başlatıyoruz.
ondan sonra
başlat>çalıştır
regsvr32 mscomct2.ocx
yapınca kullanmya devam ediyoruz.

Bir sıkıntı yaşarmıyım?
Sorun