Skip to main content

AccessTr.neT


dosya yolu

orhantanriverdi
orhantanriverdi
5
2942

dosya yolu

Çözüldü #1

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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
dosya yolu - Yazar: orhantanriverdi - 04/01/2011, 16:22
Cvp: dosya yolu - Yazar: mehmetdemiral - 04/01/2011, 16:46
Cvp: dosya yolu - Yazar: mehmetdemiral - 04/01/2011, 17:48
Cvp: dosya yolu - Yazar: orhantanriverdi - 04/01/2011, 18:41