dosya yolu

Sayın hocalarım.

Programın açılışında dosya yolunu sorması için access.tr den hazırlanmış örneklerden faydalanarak kendi programıma ekledim fakat sürekli.Function VerifyLink() As Boolean
Dim cat As ADOX.Catalog HATASI veriyor aşağıda belirtildiği şekilde. Sorunu bulamadım. Yardımlarınızı bekliyorum. Saygılar


Function VerifyLink() As Boolean
Dim cat As ADOX.Catalog
Dim tdf As ADOX.Table
Dim strTemp As String
Set cat = New ADOX.Catalog
With cat
Set .ActiveConnection = CurrentProject.Connection
On Error Resume Next
For Each tdf In .Tables
If tdf.Type = "LINK" Then
strTemp = tdf.Columns(0).Name
Exit For
End If
Next tdf
End With
VerifyLink = (Err.Number = 0)
End Function

Lütfen örnek ekleyiniz.

Hocam ekte bulunmaktadır. Form1 işlem hatası veriyor.

Sanırım daha önce dosya yolu isimli konuyla ilgili örneği burada yayınladınız. Her mesaj için ayrı konu açmayınız. Konuları birleştiriyorum. Lütfen aynı konuyla devam edin. Ayrıca konuyu yanlış yere (örneklere) açmışsınız. Sorular bölümüne de taşıyorum.

Gönderdiğiniz dosyada eksik referans nedeniyle bir problem görülüyor. O referans hatası sadece bende olabilir diye düşündüm ama bahsettiğiniz hatayla ilgili verilen kodlar da o referansı kullanıyor. Sanırım ACEDAO.DLL ile ilgili bir referans ekliği bu.

Teşekkürler hocam. Elinize sağlık.

Saygılar