سلام دوستان
برای بستن یک فایل اکسس از درون خود فایل از فرمان quit استفاده می کنیم
فرض کنید یک فایل دیگر اکسس فعال داریم و بخواهیم از طریق آن فایل دیگری که اکنون فعال است را ببندیم . اکنون باید از چه دستوری استفاده کنیم؟
Dim appAccess As Access.Application
Private Sub Command0_Click()
Const strConPathToSamples = "D:\"
Dim frm As Form, strDB As String
' Initialize string to database path.
strDB = strConPathToSamples & "test.accdb"
' Create new instance of Microsoft Access.
Set appAccess = CreateObject("Access.Application")
' Open database in Microsoft Access window.
appAccess.OpenCurrentDatabase strDB
' Create new form.
' Set frm = appAccess.CreateForm
' Save new form.
' appAccess.DoCmd.Save , "NewForm1"
' Close currently open database.
appAccess.CloseCurrentDatabase
Set appAccess = Nothing
End Sub
سعی کردم از دستور بالا استفاده کنم جواب نداد