AccessTr.neT
Form üzerinden boş veritabanı oluşturma - 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ığı: Form üzerinden boş veritabanı oluşturma (/konu-form-uzerinden-bos-veritabani-olusturma.html)

Form üzerinden boş veritabanı oluşturma - bibib - 23/06/2018

Arkadaşlar hocalarım site üzerinde de çok araştırdım bulamadım 
Form üzerinde bir buton ile dosyanın bulunduğu klasör içerisine arşiv diyen klasör oluşturacak ve arşiv adlı veya kullanıcının belirleyeceği boş bir Access veritabanı oluştursun
Bu şekilde bir örnek varmı nasıl yapabilirim 
Bu açılan örnekler içerisinde herhangi bir tablo sorgu form vs olmasına gerek yok sadece veritabanını yaratsın yeter 

Yardımlarınızı  bekliyorum

Cvp: Form üzerinden boş veritabanı oluşturma - ozanakkaya - 23/06/2018

Merhaba,
Uygulama ile aynı dizine arşiv isimli klasör oluşturmak için gerekli kod,




GDizin = CurrentProject.Path & "\" & "arşiv\"

GKlasor = Len(Dir(GDizin, vbDirectory))



If GKlasor = 0 Then

MkDir GDizin

End If


Oluşturulan arşiv klasörüne yeni veritabanı eklemek için

Dim dbNew As DAO.Database

Set dbNew = CreateDatabase(CurrentProject.Path & "\" & "arşiv\" & "Veritabani.accdb", dbLangGeneral)

kodunu kullanman gerekli.

Cvp: Form Üzerinden Boş Veritabanı Oluşturma - ozguryasin - 23/06/2018 

Dim accessEkle As Access.Application

   Set accessEkle = New Access.Application

accessEkle.DBEngine.CreateDatabase "C:\OzGuR_YaSiN.accdb", DB_LANG_GENERAL

   accessEkle.Quit

   Set accessEkle = Nothing


Cvp: Form üzerinden boş veritabanı oluşturma - bibib - 23/06/2018

Teşekkürler Sayın hocalarım inşallah yarın dener sonucu yazarım

Cvp: Form üzerinden boş veritabanı oluşturma - bibib - 24/06/2018

Hocalarım elinize sağlık çok şahane oldu bir isteğim daha olacak oluşturulan dosyanın klasörde  olup olmadığını nasıl kontrollü ettirebilirim

Cvp: Form Üzerinden Boş Veritabanı Oluşturma - bibib - 24/06/2018

Hocalarım emeğinize sağlık sorun çözülmüştür taşıyabilirsiniz
Teşekkürler