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

[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.accdb")
If accessApp.Visible = True Then
accessApp.quit
Set accessApp = Nothing
End If