veri tabanlı dosya çalışmıyor

[akd]

MErhaba arkadaşlar,
BİLgisayarımda virüs vardı
virüs taraması yaptırdım ondan sonra,
excel userformundan access veri tabanına veri aktarıyordum
virüs taramasından sonra çalışmamaya başladı.
userform açmıyor, run time error 91 hatası veriyor,
SElamlar saygılar...

 

[cyberwolf1980]

akd, vusıal basıc run tıme dosyaları zarar gormus yada degısıtırılmıs olabılır.
vusıal basıc run tımeın guncel versıyonunu nette bulup yuklemen gerekıyor ıyı gunler.

 

[akd]

Merhaba Sayın cyberwolf1980
vusıal basıc run tımeın diye arattırdım malesef aşağıdaki mesaj çıktı

Aradığınız - vusıal basıc run tımeın - terimlerini içeren herhangi bir belge bulunamadı.
acaba yazım hatasımı var,
İlginiz için çok teşekkür ederim

 

[Merhum İdris SERDAR]

Run Time, runtime, run time, Run time, Run-Time

şekillerinden birisi ile aratın.

 

[akd]

Merhaba arkdaşlar,
Arattırdım kurdum malesef sorun yine devam ediyor,
yine aynı hatayı veriyor.

 

[akd]

Merhaba arkadaşlar,
Bu konuda başka önerisi olan arkadaş yokmu acaba ?
Selamlar ...

 

[akd]

Merhaba arkadaşlar,
vusıal basıc' komple kurdum , malesef sorunum hala devam ediyor
Run-Time 91
hatasını hala veriyor...

 

[selami güzel]

Sn.akd
vusıal basıc' komple kurdum derken kullandığınız office programını
kaldırıp yeniden mi kurdunuz? eğer bunu yapmadıysanız office
programını yeniden kurmayı denermisin.yine olmaz ise virüs taraması yaptığız tarihten önceki bir tarihe sistem geri yüklemeyi deneyin.Tabiki virüs taramasında virüs bulunmadıysa.
saygılar

 

[akd]

Merhaba sayın selami kardeş,
malesef bu dediklerinizi yaptım,
ofisi sildim yeniden kurdum, vb 60 da belki silinen dosya vardır diye onuda kurdum.
yine aynı .
İlginiz için çok teşekkür ederim...
Daha önce aynı sorunla karşılaşan yokmu acaba
selamlar...

 

[akd]

Merhabalar,
Aşağıdaki kod hatayı yapan,
acaba bu kod başka türlü yazılabilirmi,
Private Sub UserForm_Initialize()
Set adoCN = CreateObject("ADODB.Connection")
DatabasePath = ThisWorkbook.Path & "\AKD.DGD.NİZİP.mdb"
If Dir(DatabasePath) = "" Then
MsgBox DatabasePath & " bulunamadı, programdan çıkılacak !", vbCritical, "TestMDB"
Unload Me
Exit Sub
End If
adoCN.Provider = "Microsoft.Jet.OLEDB.4.0"
adoCN.ConnectionString = DatabasePath
adoCN.Open
End Sub