Access ProsessIDで強制終了

‘ API関数の宣言（64ビット版）
Declare PtrSafe Function GetCurrentProcessId Lib “kernel32” () As LongPtr
Function GetAccessProcessId() As LongPtr
GetAccessProcessId = GetCurrentProcessId()
End Function
フォームCloseイベント
Dim processId As LongPtr
processId = GetAccessProcessId()
shell “taskkill /pid ” & processId
End Sub

32Bit Version
Declare Function GetCurrentProcessId Lib “kernel32” () As Long
Function GetAccessProcessId() As Long
GetAccessProcessId = GetCurrentProcessId()
End Function
フォームCloseイベント
Dim processId As Long
processId = GetAccessProcessId()
MsgBox “Current Access Process ID: ” & processId
End Sub