AccessTr.neT

Peki mde yada accde dosyaları açılınca hangi uzantılı dosyaları oluşturuyor?

accdb  -- > laccdb
accde  -- > laccdb

(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.

Modüle

Public Function FileExists(ByVal path_ As String) As Boolean

    FileExists = (Len(Dir(path_)) > 0)

End Function

kodu eklenecek,

Uygulama açıldığında ilk açılan forma

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

kodu eklendiğinde, uygulama ile aynı isimde laccdb uzantılı dosya var ise koda göre mesaj kutusu açılır. Siz ne yapılmasını istiyorsanız onu yazacaksınız.