AccessTr.neT
Access Projesi Açıksa Tekrar Açılmasın - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Access Projesi Açıksa Tekrar Açılmasın (/konu-access-projesi-aciksa-tekrar-acilmasin.html)

Sayfalar: 1 2


RE: Access Projesi Açıksa Tekrar Açılmasın - accessman - 08/06/2020

"accdb" ve "accde" dosya türü arasındaki bu fark nereden kaynaklanıyor olabilir


RE: Access Projesi Açıksa Tekrar Açılmasın - berduş - 08/06/2020

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


RE: Access Projesi Açıksa Tekrar Açılmasın - accessman - 08/06/2020

accdb  -- > laccdb
accde  -- > laccdb


Re: Access Projesi Açıksa Tekrar Açılmasın - ozanakkaya - 10/06/2020

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