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

[mohammadsaleh]

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

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

[mohammadsaleh]

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

[Shahramdindoust]

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

[mohammadsaleh]

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

dim accessApp

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

If accessApp.Visible = True Then

accessApp.quit

Set accessApp = Nothing

End If