[VBA/ACCESS] Impedire la chiusura di una applicazione

[fabio309]

Come da titolo vorrei impedire agli utenti di chiudere una applicazione fatta in access con il pulsante con la crocetta in alto a destra, c'è modo o mi devo rassegnare all'idea che non si possa fare?

Grazie a tutti

[mentos]

Non vorrei dire una castroneria ma se guardi nelle proprietà della maschera c'è un'opzione che si chiama popup che ti permette di eliminare i pulsantini di riduzione ingrandimento e chiusura della stessa....

[fabio309]

quella proprietà è relativa solo alla maschera in questione, ma il progetto di access rimane con lo stile della finestra classica, ovvero con il pulsante per iconizzar, quello per ingrandire e appunto quello per chiudere

nessun suggerimento?

[mentos]

Avevo capito male allora Per il "contenitore" non so che dirti, ma quando imposti il form i avvio non ci sono diversi parametri? Magari è una spunta da mettere o togliere lì...

[nicolamanzoni]

provato sul sito http://www.sitocomune.com/ ?

[fabio309]

Originariamente inviato da nicolamanzoni
provato sul sito http://www.sitocomune.com/ ?

trovato!!!!

Private Const GWL_STYLE = -16
Private Const WS_SYSMENU = &H80000
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_MAXIMIZEBOX = &H10000

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
    (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
    (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
 
Public Sub LockAppWindow(fForm As Form)
    ModifyAppWind fForm.hwnd
    MsgBox "Ciao ciao pulsantini!"
End Sub

Private Sub ModifyAppWind(wChildWnd)
    Dim wParentWnd As Long
    wParentWnd = GetParent(GetParent(wChildWnd))
    Dim PrevWinStyle As Long, NewWinStyle As Long
    PrevWinStyle = GetWindowLong(wParentWnd, GWL_STYLE)
    NewWinStyle = PrevWinStyle And Not WS_SYSMENU And _
       Not WS_MINIMIZEBOX And _
       Not WS_MAXIMIZEBOX
    PrevWinStyle = SetWindowLong(wParentWnd, GWL_STYLE, NewWinStyle)
End Sub

La funzione va richiamata così:
LockAppWindow Screen.ActiveForm