Newsgroup: it.comp.appl.access
Titolo: Intercettare chiusura di Access

Ciao al NG,
qualcuno sa se è possibile far scomparire i comandi in alto a destra di
Access, quelli per intenderci per ridurre a icona, ridimensionare e chiudere
il programma?
In pratica vorrei inetercettare la chiusura dell'applicazione in modo da far
eseguire una determinata macro prima di chiudere.
Siccome smi sono creato un pulsante di comando direttamente in una barra di
menu da me creata e quindi vorrei che il programa si chiudesse solo da quel
pulsante dove io faccio eseguire prima di cgiudere la mia macro.
Oppure se non c'è la possibilità di eliminare i pulsanti in alto a dx, e
qualcuno chiudesse l'applicazione da quel pulsante, prima di chiudere io
faccio eseguire la mia macro.
Spero di essere stato chiaro e qualcuno possa darmi una mano.
ciao Tommy

 ha scritto nel messaggio
news:%SeIc.47255$c_1.1...@twister1.libero.it...

Ciao Tommy.
Chiaro.
Puoi sia far scomparire i Button che in qualche modo intercettare
il comando.
1)Eliminare i Button di chiusura.
Io uso questa Classe(Sotto), per A97 se non ricordo male per
versioni come XP o 2003 c'è una Faq di Karl a riguardo
che puoi trovare da Google.
2)Leggi questo articolo
http://www.mvps.org/access/general/gen0005.htm
INSERIRE IN MODULO DI CLASSE
Option Compare Database
Option Explicit
'======================================================
'     AUTORE:     Alessandro Baraldi                  =
'     E.Mail:     
ik2...@libero.it
                    =
'     Web   :     
http://digilander.iol.it/ik2zok/
    =
'     Data  :     03/01/2002                          =
'======================================================
'****************************** ESEMPIO DI UTILIZZO ********************
'Esempio di Utilizzo Funzione
'  Per Bloccare
'   AccClsBtn (False)
'  Per Sbloccare
'   AccClsBtn (True)
'Function AccClsBtn(blS As Boolean)
   ''Funzione per l'utilizzo della Classe
   ''per disabilitare il Pulsante di Chiusura
   ''della Finestra di ACCESS
   'Dim c As clsClosebtn
   'Set c = New clsClosebtn
   'Disable Close menu.
   'c.Enabled = blS
'End Function
'************************************************************************
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, _
   ByVal bRevert As Long) As Long
Private Declare Function EnableMenuItem Lib "user32" (ByVal hMenu As _
   Long, ByVal wIDEnableItem As Long, ByVal wEnable As Long) As Long
Private Declare Function GetMenuItemInfo Lib "user32" Alias _
   "GetMenuItemInfoA" (ByVal hMenu As Long, ByVal un As Long, ByVal b As _
   Long, lpMenuItemInfo As MENUITEMINFO) As Long
Private Type MENUITEMINFO
    cbSize As Long
    fMask As Long
    fType As Long
    fState As Long
    wID As Long
    hSubMenu As Long
    hbmpChecked As Long
    hbmpUnchecked As Long
    dwItemData As Long
    dwTypeData As String
    cch As Long
End Type
Const MF_GRAYED = &H1&
Const MF_BYCOMMAND = &H0&
Const SC_CLOSE = &HF060&
'
Public Property Get Enabled() As Boolean
    Dim hwnd As Long
    Dim hMenu As Long
    Dim result As Long
    Dim MI As MENUITEMINFO
    MI.cbSize = Len(MI)
    MI.dwTypeData = String(80, 0)
    MI.cch = Len(MI.dwTypeData)
    MI.fMask = MF_GRAYED
    MI.wID = SC_CLOSE
    hwnd = Application.hWndAccessApp
    hMenu = GetSystemMenu(hwnd, 0)
    result = GetMenuItemInfo(hMenu, MI.wID, 0, MI)
    Enabled = (MI.fState And MF_GRAYED) = 0
End Property
Public Property Let Enabled(boolClose As Boolean)
    Dim hwnd As Long
    Dim wFlags As Long
    Dim hMenu As Long
    Dim result As Long
    hwnd = Application.hWndAccessApp
    hMenu = GetSystemMenu(hwnd, 0)
    If Not boolClose Then
        wFlags = MF_BYCOMMAND Or MF_GRAYED
    Else
        wFlags = MF_BYCOMMAND And Not MF_GRAYED
    End If
    result = EnableMenuItem(hMenu, SC_CLOSE, wFlags)
End Property
Ciao.
@Alex.

[Cut] & [Ot]
Ciao Alessandro,
bentornato.
Visto che Karl ti ha inserito sul tuo sito??
Come tuo procuratore vado bene...
Almeno 1.000.000 dei contatti che avrai grazie al
link di Karl sono un pň grazie a me.
;-P
MAssimiliano

 wrote in message
news:W9rIc.1138$
B06...@news.edisontel.com

Ciao MA.
Tornato, ma non ho ancora visto nulla.
Dove dovrei guardare....???
Nel sito Tedesco o in IT(č giŕ fatto..??)
Ciao.
@Alex.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 @Alex.
IT
Ci sei tu e Giorgio
MAssimiliano


mi aggrego al saluto ad Alex, e mi chiedo come mai caro MA il tuo sito
permanga in costante costruzione ...;-)
per il raduno virtuale allora? oltre ad avere le ballerine braziliane che
scalpitano in cantina (non sapevo dove metterle...) direi che si potrebbe
preliminarmente pensare a come moderare un'eventuale discussione, cioè a
pensare magari a c.d. serate a tema, dove magari ci si possa preparare per
poi approfondire insieme determinati temi...

 link di Karl sono un pň grazie a me.
Proprio una chicca il sito di @Alex!
Ho appena scaricato un "Menů in stile Outlook" che č una favola  ;-))
Matteo

 ha scritto nel messaggio
news:PZuIc.46786$GQ3.1...@twister2.libero.it...

se vuoi svenire guarda un po' archifoto! ... non sembra nemmeno fatto con
access...

 access...
Scaricato anche quello: buono ma avevo già visto soluzioni skinnate in
maniera similare.
Comunque nell'insieme è un'area di download davvero bella!
Matteo

 wrote in message
news:2ZvIc.46870$
GQ3.1...@twister2.libero.it

Gli SKINN sono nulla di ARCHIFOTO.
Ci sono effetti grafici di notevole interesse Tecnico nonchè
l'estrazione dei Dati EXIF dalle immagini delle Digitali...!


 ha scritto nel messaggio
news:3e23abcb2336674983...@mygate.mailgate.org...

Alessandro carissimo, non avendoti poi visto al raduno del nord, sappi che
si è parlato molto anche di te e dei tuoi lavori, non ultimo l'archifoto da
me citato.
Avrei un bel domandone a proposito, ma mi riserverò di farlo in altra sede,
magari di persona se ci sarà occasione oppure al raduno online, visto che è
una domanda che farei anche ad altri esperti del ng.  (vedi 3d di qualche gg
fa di MA)
Ho anche avuto modo di vedere archidoc, che è altrettanto interessante x la
gestione documentale. Tale gestione  è certamente un problema che affligge
un po' tutte le aziende e mi piacerebbe vedere che soluzioni hai adottato,
ma non ho avuto modo di entrare nel codice x studiare.
Non l'hai reso disponibile oppure non sono riuscito io?

 Non l'hai reso disponibile oppure non sono riuscito io?
Sono spiacente per il Raduno, anche perchč la data era stata proposta
proprio da me, ma sono stato impegnato tutta la Settimana in una
trasferta, e rientrando il Sabato non mi era possibile partecipare.
Per domande relative ad Archifoto puoi scrivermi personalmente
la Mail la conosci non ci sono problemi.
Per Archidoc, se non ricordo male ha solo una disabilitazione
dello Shift, ma se cerchi nel Menł Protezione ti chiede una Password
che č sicuramente "sitocomune".
A questo punto se selezioni SPROTEGGI viene riabilitato lo Shift
ma vengono sostanzialmente rimossi i classici vincoli della
Finestra del DB, la Macro AutoExec ecc......!!!
La Routine che gestisce questo č "basSecure"
Ci tengo a precisare che questo perņ č un esempio banale
e semplicistico.
Se hai altri problemi dimmelo....!  
