Salve a tutti, volevo sapere se è possibile chiudere access direttamente dal pulsante di una maschera, penso sia possibile farlo intercettando il comando di chiusura della finestra tramite api di windows ma essendo molto digiuno dell' argomento chiedo qualche dritta.
ho trovato questo codice
Option Explicit
Private Declare ptrsafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
Private Declare ptrsafe Function FindWindow Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Sub test()
Dim hWnd As Long
hWnd = FindWindow(0, hWnd, "wndclass_desked_gsk", Application.VBE.MainWindow.Caption)
Debug.Print hWnd
Debug.Print Application.hWnd
If hWnd <> 0 Then
SendMessage hWnd, &H10, 0&, 0&
End If
End Sub
che penso possa essere utile come base di partenza.
grazie anticipatamente per l' aiuto