جدیدترین مطالب

برچسب ها: Access

این پست شامل 0 پاسخ ، و دارای 1 کاربر است ، و آخرین بار توسط مهندس بیات در 9 ماه پیش بروز شده است.

در حال نمایش 1 نوشته (از کل 1)

بستن یک برنامه خاص در اکسس

مهندس بیات

سرپرست

مهندس بیات 2019-09-01 در 5:31 ب.ظ #7975

بستن یک برنامه خاص در اکسس

بستن یک برنامه خاص در اکسس: فرض کنید برنامه ای در اکسس دارید و میخواهید هنگامی که آن را اجرا کردید فایل های اجرا شده توسط نرم افزار اکسل را ببندید یا قصد دارید هنگامی که نرم افزار شما در حال اجرا است ، Not Pad ویندوز توسط برنامه شما کنترل شده و در صورت باز بودن بسته شود. برای این منظور می توانید از کدی که در زیر برای شما قرار گرفته است استفاده کنید.

ابتدا وارد محیط کد نویسی VBA در اکسس شده و کدهای زیر را در داخل آن کپی کرده و ماژول را ذخیره کنید.

Public Sub KillExcecutedFile(ExecutedFileName As String)
On Error GoTo Err_KillExcecutedFile
 
 
    Dim ProcessName As Object
    For Each ProcessName In GetObject("winmgmts:").ExecQuery("Select Name from Win32_Process Where Name = '" & ExecutedFileName & "'")
        ProcessName.Terminate
    Next
 
 
Exit_KillExcecutedFile:
    On Error Resume Next
    Exit Sub
 
 
Err_KillExcecutedFile:
    Select Case Err.Number
        Case 0
            Resume Exit_KillExcecutedFile:
        Case Else
            MsgBox Err.Number & " " & Err.Description, vbExclamation, "Error in function KillExcecutedFile"
            Resume Exit_KillExcecutedFile:
    End Select
End Sub

Public Sub KillExcecutedFile(ExecutedFileName As String)

On Error GoTo Err_KillExcecutedFile

Dim ProcessName As Object

For Each ProcessName In GetObject("winmgmts:").ExecQuery("Select Name from Win32_Process Where Name = '" & ExecutedFileName & "'")

ProcessName.Terminate

Exit_KillExcecutedFile:

On Error Resume Next

Exit Sub

Err_KillExcecutedFile:

Select Case Err.Number

Case 0

Resume Exit_KillExcecutedFile:

Case Else

MsgBox Err.Number & " " & Err.Description, vbExclamation, "Error in function KillExcecutedFile"

Resume Exit_KillExcecutedFile:

End Select

End Sub

در گام بعد متناسب با نیاز خود ماژول KillExcecutedFile را با استفاده از دستور Call فراخوانی کنید. فرض کنید یک دکمه بر روی یک فرم ایجاد کرده اید. در اینصورت خواهید داشت:

Private Sub Command0_Click()
Call KillExcecutedFile("EXCEL.exe")
End Sub

Private Sub Command0_Click()

Call KillExcecutedFile("EXCEL.exe")

End Sub

در دستور بالا بعد از کلیک بر روی دکمه برنامه اکسل در صورت باز بودن بسته خواهد شد.

در حال نمایش 1 نوشته (از کل 1)

انجمن ‘آموزش های کوتاه اکسس’ برای جستار ها و پاسخ ها جدید بسته است.

تمام حقوق مادی و معنوی این سایت متعلق به مهندس بیات است. 1399-1396