بستن یک برنامه خاص در اکسس: فرض کنید برنامه ای در اکسس دارید و میخواهید هنگامی که آن را اجرا کردید فایل های اجرا شده توسط نرم افزار اکسل را ببندید یا قصد دارید هنگامی که نرم افزار شما در حال اجرا است ، Not Pad ویندوز توسط برنامه شما کنترل شده و در صورت باز بودن بسته شود. برای این منظور می توانید از کدی که در زیر برای شما قرار گرفته است استفاده کنید.
ابتدا وارد محیط کد نویسی VBA در اکسس شده و کدهای زیر را در داخل آن کپی کرده و ماژول را ذخیره کنید.
ForEachProcessName InGetObject("winmgmts:").ExecQuery("Select Name from Win32_Process Where Name = '"&ExecutedFileName&"'")
ProcessName.Terminate
Next
Exit_KillExcecutedFile:
On ErrorResumeNext
ExitSub
Err_KillExcecutedFile:
SelectCaseErr.Number
Case0
ResumeExit_KillExcecutedFile:
CaseElse
MsgBox Err.Number&" "&Err.Description,vbExclamation,"Error in function KillExcecutedFile"
ResumeExit_KillExcecutedFile:
EndSelect
EndSub
در گام بعد متناسب با نیاز خود ماژول KillExcecutedFile را با استفاده از دستور Call فراخوانی کنید. فرض کنید یک دکمه بر روی یک فرم ایجاد کرده اید. در اینصورت خواهید داشت:
Visual Basic
1
2
3
PrivateSubCommand0_Click()
CallKillExcecutedFile("EXCEL.exe")
EndSub
در دستور بالا بعد از کلیک بر روی دکمه برنامه اکسل در صورت باز بودن بسته خواهد شد.
در حال نمایش 1 نوشته (از کل 1)
انجمن ‘آموزش های کوتاه اکسس’ برای جستار ها و پاسخ ها جدید بسته است.
تمام حقوق مادی و معنوی این سایت متعلق به مهندس بیات است.
1399-1396