خروج سایر برنامه ها دیتا بیس های باز با کد

[royasaz_bam]

سلام
سوال من برعکس عمل کد ذیل میباشد

Call Shell("MSACCESS.EXE E:\SQL.accde", vbNormalFocus)



حا با چه دستوری میشه این برنامه بازشده یا سایر برنامههای در حال اجرا را بست
البته با کد و بدون مراجعه مستقیم به خود برنامه باز شده

در واقع فقط میخاهم یک برنامه اکسس را با برنامه ای دیگر ببندم

[royasaz_bam]

گویا با این کد میشه

Dim OtherDB As Object

sOther = "E:\SQL.accde"
Set OtherDB = GetObject(sOther)
OtherDB.Application.Quit

[alirezabahrami]

گویا با این کد میشه

Dim OtherDB As Object

sOther = "E:\SQL.accde"
Set OtherDB = GetObject(sOther)
OtherDB.Application.Quit


سلام
فقط در ابتدای کدها ، sOther را بعنوان یک متغییر از نوع رشته ای باید تعریف کنید !
بصورت زیر:


Dim sOther As String

یا علی

[saeed1234n]

با سلام
خدمت تمامی دوستداران اکسس علی الخصوص اساتید گرامی

Call Shell("MSACCESS.EXE E:\SQL.accde", vbNormalFocus)
می خواستم بدانم کار کد فوق چیست ؟

[royasaz_bam]

برنامه ای رو که آدرس دادیم اجرا میکنه

برنامه اکسس داخل E که نامش است SQL

حالا موتی بهم بگی اکر بخواهی یک برنامه اکسل داخل درایو D که اسمش است
book.xlsx را چجوری اجرا میکنه
بله کافیه جایگزین کنید به این صورت

Call Shell("EXCEL.EXE D:\book.xlsx", vbNormalFocus)

موفق باشی