AccessTr.neT

Tam Versiyon: veritabanının klasörde bulunup bulunmadığının kontrolü
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Çalışmakta olan bir veritabanı içersinden(bilgi.mdb),başka bir veritabanının (web.mdb)c:\veritabanları\web.mdb klasöründe bulunup bulunmadığını vb kodu ile nasıl tanımlayabilirim.
access kodlarıyla mı olması gerekiyor.
aşağıdaki kodu modüle kaydet
Function FileExists(ByVal strFile As String, Optional bFindFolders As Boolean) As Boolean
Dim lngAttributes As Long
lngAttributes = (vbReadOnly Or vbHidden Or vbSystem)

If bFindFolders Then
lngAttributes = (lngAttributes Or vbDirectory)
Else
Do While Right$(strFile, 1) = "\"
strFile = Left$(strFile, Len(strFile) - 1)
Loop
End If
On Error Resume Next
FileExists = (Len(Dir(strFile, lngAttributes)) > 0)
End Function

Bunuda dosya kontrolünün yapılacağı yere yaz.

 If FileExists("c:\veritabanları\web.mdb") = True Then
MsgBox ("veritabanı var") 'c:\veritabanları\web.mdb dosyası var ise çalışacak kod buraya
Else
MsgBox ("veritabanı yok") 'c:\veritabanları\web.mdb dosyası yok ise çalışacak kod buraya
End If

dosya = "c:\veritabanları\web.mdb"
durum = Dir(dosya) ' Dir komutu ile bakıyorum o dosya var mı yok mu?

If (durum = "") Then
msgbox "Dosya yok"
Else
' Dosya var
End If

Sitede çok defa işlenilmiş bir konu olsa da tekrar etmekte yarar var.
Yanıtlarınız çok işime yaradı ,teşekkürler.Vba kodunun son halini aşağı ekledim.
Dim DOSYA, DURUM, ad, yol, ara, MESAJ
Dim ADOXtable As New Table
Dim ADOXindex As New ADOX.Index
Dim ADOXcatalog As New ADOX.Catalog

ad = CurrentProject.Name
yol = "c:\Vt\toplu\" & ad
ara = Dir(yol)

If (ara = "") Then
MsgBox "Web Güncelle komutunu sadece Programın " & Chr(13) & "Kurulu olduğu" _
& "bilgisayarda kullanabilirsiniz", vbOKOnly + vbInformation, "Bilgilendirme"

Else
DOSYA = CurrentProject.Path & "\web.mdb"
DURUM = Dir(DOSYA)

If (DURUM = "") Then
MESAJ = MsgBox("Güncelleştirmek istediğiniz veritabanı silinmiş" _
& Chr(13) & "Tekrar oluşturmak ister misiniz?", vbYesNo + vbQuestion, " Yardım")

If MESAJ = vbYes Then
ADOXcatalog.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CurrentProject.Path & "\web.mdb"
DoCmd.SetWarnings False
DoCmd.OpenQuery "webb"
DoCmd.SetWarnings True
End If

Else
DoCmd.SetWarnings False
DoCmd.OpenQuery "webb"
DoCmd.SetWarnings True
End If
End If
sadece klasör kontrolü için nasıl yapabiliriz