Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

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

accessman
accessman
Access Cevaplanmış Soruları
9
1645

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

#10
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 11/04/2025,18:25
Yorumları: 13.543
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
(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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Task