بستن یک یک فایل اکسس از فایل دیگر

سلام دوستان
برای بستن یک فایل اکسس از درون خود فایل از فرمان 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

سعی کردم از دستور بالا استفاده کنم جواب نداد

با سلام و احترام
دوست عزیز با استفاده از این کد می توانید به راحتی فایل اکسس دیگری را ببندید

Dim OtherDB As Object

"sOther = "d:\2.accdb
Set OtherDB = GetObject(sOther)
OtherDB.Application.Quit

فقط باید در خط دوم آدرس فایلی را که می خواهید بسته شود وارد کنید

سلام
تشکر از شما عزیز

خیلی مطلب مفیدی بود دمتان گرم وسرتان خوش باد

سلام
با استفاده از اسکریپت هم میشه این شکلی فایل رو بست

dim accessApp

Set accessApp = GetObject("C:\Users\OurNiceFamily\Desktop\123.accd  b")

If accessApp.Visible = True Then

accessApp.quit

Set accessApp = Nothing

End If