ridurre a icona access da una maschera

Question

Ciao

su un applicativo sviluppato in access 2007 per evitare che chi lo usa vada sulle tabelle ecc. ecc non faccio visualizzare le caselle di menu controllo il pulsante di chiusura e quello di ingrandimento/riduzione, vorrei gestire la riduzione a icona non della maschera ma di access con un pulsante.

Ovviamente quando si chicca sull'icona di access riaprire l'applicativo sulla maschera dalla quale ho iconizzato.

Vi ringrazio in anticipo per un vostro suggerimento.

Ciao Francesco

Answer 1

Ciao Sandro

grazie per la risposta, provero a fare quanto mi suggerisci, so molto bene che basta la pressione di un tasto sull'apertura del db per accedere alle tabelle ecc. ecc. ma questa applicazione che ho fatto è rivolta a persone che di access non hanno tanta dimestichezza e vorrei evitare che facciano meno danni e comunque non bloccare la loro normale attività con il pc, ecco perche la riduzione a icona proprio per consentire loro di inviare una email es..

Grazie

Francesco

Answer 2

Ciao Francesco,

[...]

su un applicativo sviluppato in access 2007 per evitare che chi lo usa vada sulle tabelle ecc. ecc non faccio visualizzare le caselle di menu controllo il pulsante di chiusura

[...]

non dispongo di access 07, ma non mi è chiarissimo il tuo modo di procedere, in ogni caso sei certo che sia una valida strategia per impedire la navigazione nelle tabelle....?

...mmmm...Ho l'impressione che non lo sia....

[...]

vorrei gestire la riduzione a icona non della maschera ma di access con un pulsante.

[...]

Access non mette a disposizione strumenti nativi, ma puoi ricorrere a Windows, invocando l'api

ShowWindow a cui passare l'handle (hwnd) dell'applicazione Access, che invece hai a disposizione come metodo hWndAccessApp membro di application ed il valore 2 per la riduzione a icona.

codice da inserire nella sezione dichiarazione del modulo di classe di una form e relativo evento click del command button :

Option Compare Database

Option Explicit

#If Win64 Then

    Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As LongPtr, _

                                                              ByVal nCmdShow As Long) As Long

#Else

    Private Declare Function ShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, _

ByVal nCmdShow As Long) As Long

#End If

Private Const SW_SHOWMINIMIZED = 2

'

Private Sub cmdMinimize_Click()

    ShowWindow Application.hWndAccessApp, SW_SHOWMINIMIZED

End Sub

al click del command button cmdMinimize Access si riduce ad icona ed il suo successivo click dalla barra delle applicazione lo farà riapparire come era.

vedi qui :

https://msdn.microsoft.com/it-it/library/windows/desktop/ms633548(v=vs.85).aspx

per maggiori dettagli.

HTH.

Ciao, Sandro.

ps. la compilazione condizionale non dovrebbe servire per la tua configurazione, ma chi usa ambienti a 64 bit magari si, così ho preferito inserirla.