Access Projesi Açıksa Tekrar Açılmasın

1 2
08/06/2020, 14:29

accessman

"accdb" ve "accde" dosya türü arasındaki bu fark nereden kaynaklanıyor olabilir
08/06/2020, 15:44

berduş

Peki mde yada accde dosyaları açılınca hangi uzantılı dosyaları oluşturuyor?
08/06/2020, 17:27

accessman

accdb  -- > laccdb
accde  -- > laccdb
10/06/2020, 20:33

ozanakkaya

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