"accdb" ve "accde" dosya türü arasındaki bu fark nereden kaynaklanıyor olabilir
@benbendedeilem
(08/06/2020, 12:54)accessman yazdı: Proje açıldığında aynı klasörde "laccdb" uzantılı bir dosya oluşturuluyor. Bu dosya varsa tekrar açılması önlenebilir diye düşünüyorum.
Public Function FileExists(ByVal path_ As String) As Boolean
FileExists = (Len(Dir(path_)) > 0)
End Function
Dim GDosya As String
GDosya = CurrentProject.Path & "\" & Left(CurrentProject.Name, InStr(1, CurrentProject.Name, ".") - 1) & ".laccdb"
If FileExists(GDosya) Then
MsgBox "Dosya Açık"
End If