در مقاله قبل یک روش برای ایجاد بانک اطلاعاتی اکسس و تعریف یک جدول در آن معرفی شد. ماکروی این مقاله به روشی دیگر یک فایل اکسس را در درایو C ایجاد می کند. (برای تعریف جدول در آن باید ماکروی دیگری بنویسید)
Sub CreateDatabase2()
Dim oApp As Object
Set oApp = CreateObject("Access.Application")
oApp.NewCurrentDatabase "C:\vfTest.accdb"
oApp.Quit
Set oApp = Nothing
End Sub
0 نظر
تازه ترین ها