Newsgroup: it.comp.appl.access
Titolo: eliminazione comandi chiusura

Avrei l'esigenza di bloccare la possibilità di chiudere un applicativo
in access e di ridurre la finestra dello stesso tramite i comandi
windows posti alla destra superiore della finestra? è possibile?
Ciao

 ha scritto nel messaggio 
news:1134337945....@z14g2000cwz.googlegroups.com...

Ciao
risposta:
ciao Mauro,
vai in visualizzazione struttura della form, Proprietà>Formato>Pulsante di 
chiusura .
Ciao
Napoleone 

ma così rimane cmq aperta quella di access, vorrei togliere anche
quella e poi come faccio a fare in modo che il form sia
automaticaticamente ingrandito su tutto lo schermo?

 ha scritto nel messaggio 
news:1134339069.2...@g49g2000cwa.googlegroups.com...
ma così rimane cmq aperta quella di access, vorrei togliere anche
---- come eliminare questo non saprei
quella e poi come faccio a fare in modo che il form sia
automaticaticamente ingrandito su tutto lo schermo?
---- prova con il comando DoCmd.Maximize (mi pare)
Buona notte
Napoleone 

 ha scritto nel messaggio
news:1134337945....@z14g2000cwz.googlegroups.com...
Avrei l'esigenza di bloccare la possibilità di chiudere un applicativo
in access e di ridurre la finestra dello stesso tramite i comandi
windows posti alla destra superiore della finestra? è possibile?
Ciao Mauro,
metti questo in un modulo statndard  richiama la function Buttons
passandogli come argomento false.
Ciao, Sandro.
Option Compare Database
Option Explicit
Private Const GWL_STYLE = (-16)
Private Const WS_CAPTION = &HC00000
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_MAXIMIZEBOX = &H10000
Private Const WS_SYSMENU = &H80000
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOZORDER = &H4
Public Const SWP_FRAMECHANGED = &H20
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 SetWindowPos _
Lib "user32" ( _
  ByVal hwnd As Long, _
  ByVal hWndInsertAfter As Long, _
  ByVal X As Long, _
  ByVal Y As Long, _
  ByVal cx As Long, _
  ByVal cy As Long, _
  ByVal wFlags As Long _
) As Long
Function Buttons(Show As Boolean) As Long
  Dim hwnd As Long
  Dim nIndex As Long
  Dim dwNewLong As Long
  Dim dwLong As Long
  hwnd = hWndAccessApp
  nIndex = GWL_STYLE
  Const wFlags = SWP_NOSIZE + SWP_NOZORDER + SWP_FRAMECHANGED + SWP_NOMOVE
  Const FLAGS_COMBI = WS_MINIMIZEBOX Or WS_MAXIMIZEBOX Or WS_SYSMENU
  dwLong = GetWindowLong(hwnd, nIndex)
  If Show Then
    dwNewLong = (dwLong Or FLAGS_COMBI)
  Else
    dwNewLong = (dwLong And Not FLAGS_COMBI)
  End If
  Call SetWindowLong(hwnd, nIndex, dwNewLong)
  Call SetWindowPos(hwnd, 0&, 0&, 0&, 0&, 0&, wFlags)
End Function

scusami la mia ignoranza,
ho creato un modulo nuovo e ho inserito il tuo codice. Adesso come
faccio a richiamarlo?
Grazie mau

 Grazie mau
Prego, ciao, Sandro.

 wrote in message
news:439ca794$0$16200$
4faf...@reader3.news.tin.it
[CUT]
Ciao Sandro, questa volta sei quello giusto...!!!!!
Il tuo suggerimento, che poi se non ricordo male arriva dal
SC è carente, ho già inviato a Roberto le mie considerazioni
e correzioni e dovrebbero essere pubblicate con il prossimo
aggiornamento.
In pratica se ti metti con il Mouse sulla CaptionBar di Access
dopo aver eliminato i Button e premi il RightClick ti appare
il Menù popup con le voci incriminate che rende vana l'eliminazione
dei Button.
La mia correzione stà nella rimozione del menù, poi in ogni caso
va gestita la combinazione ALT+F4.
Ritengo personalmente che sia meglio eliminare i Minimize e Restore
ma gestire con una Form(Hidden) la questione della chiusura.
Se hai urgenza posso inviartelo.
Ciao
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 @Alex
Ciao e grazie.
Sandro.


 Sandro.
@Alex
