AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

Form üzerinden boş veritabanı oluşturma

23/06/2018, 10:49

bibib

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
23/06/2018, 11:28

ozanakkaya

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.
23/06/2018, 11:37

ozguryasin

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
23/06/2018, 21:24

bibib

Teşekkürler Sayın hocalarım inşallah yarın dener sonucu yazarım
24/06/2018, 10:05

bibib

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
24/06/2018, 10:43

bibib

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