how to close Access aplication if is opened

[luca90]

How to close Access aplication if is opened?

[Eduardo-]

The first thing that I would try is clicking in the X in the right top of the window.

[Elroy]

If that doesn't work, right-click your taskbar, select task manager, select Access, right-click it, and say 'End Task'.

Now, if you want to do it from VB6, there are several posts that have discussed how to kill a task, some that I have posted. But I'll let you search for those. Do you need instructions on how to search?

[anycoder]

Solution 1 shows how to close the application:

Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As Long) As Long
Declare Function PostMessageA Lib "user32" (ByVal hWnd As Long, ByVal wMsg As Long, _
                    ByVal wParam As Long, _
                    ByVal lParam As Long) As Long

 

Sub CloseAccess()
 
    Const WM_CLOSE = 16
    Dim hWnd As Long
    hWnd = FindWindowA("OMAIN", 0)
    If hWnd <> 0 Then
       PostMessageA hWnd, WM_CLOSE, 0, 0
    End If
End Sub

To terminate the processus;

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Process")
For Each objItem In colItems
    If StrComp(objItem.Name, "MsAccess.exe", vbTextCompare) = 0 Then
      objItem.Terminate
  End If
  
Next

[luca90]

Solution 1 shows how to close the application:

Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As Long) As Long
Declare Function PostMessageA Lib "user32" (ByVal hWnd As Long, ByVal wMsg As Long, _
                    ByVal wParam As Long, _
                    ByVal lParam As Long) As Long

 

Sub CloseAccess()
 
    Const WM_CLOSE = 16
    Dim hWnd As Long
    hWnd = FindWindowA("OMAIN", 0)
    If hWnd <> 0 Then
       PostMessageA hWnd, WM_CLOSE, 0, 0
    End If
End Sub

To terminate the processus;

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Process")
For Each objItem In colItems
    If StrComp(objItem.Name, "MsAccess.exe", vbTextCompare) = 0 Then
      objItem.Terminate
  End If
  
Next

ITS RIGHT?

Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As Long) As Long
Declare Function PostMessageA Lib "user32" (ByVal hWnd As Long, ByVal wMsg As Long, _
                    ByVal wParam As Long, _
                    ByVal lParam As Long) As Long

 

Sub CloseAccess()
 
    Const WM_CLOSE = 16
    Dim hWnd As Long
    hWnd = FindWindowA("OMAIN", 0)
    If hWnd <> 0 Then
       PostMessageA hWnd, WM_CLOSE, 0, 0
    End If
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Process")
For Each objItem In colItems
    If StrComp(objItem.Name, "MsAccess.exe", vbTextCompare) = 0 Then
      objItem.Terminate
  End If
  
Next
End Sub

[Arnoutdv]

But why do you need programmatically force a shutdown of Access?

[luca90]

RESOLVED , TKS TO THE ALL.

Public Sub ChiudiMSAccess()

Dim objWMI As Object
Dim colProc As Object
Dim PROC As Object, VERO As Boolean

Set objWMI = GetObject("winmgmts:\\.\root\cimv2")
Set colProc = objWMI.ExecQuery("SELECT * FROM Win32_Process WHERE Name='MSACCESS.EXE'")

VERO = (colProc.Count > 0)

If VERO = True Then
For Each PROC In colProc
PROC.Terminate
Next
End If

End Sub

[Zvoni]

But why do you need programmatically force a shutdown of Access?

Probably because it's blocking his program