AccessTr.neT

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

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.

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

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

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

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

bibib

ozanakkaya

ozguryasin

bibib

bibib

bibib