minimize/maximize

Question

Ciao a tutti, in un evento su click ho la necessita di   utilizzare DoCmd.Minimize per la maschera pricipale e fin qui tutto ok, ma come devo riportare lo stato di maximize quando l'evento su click si è concluso? io ho provato in questo modo funziona il minimize ma non riesco a riportare lo stato maximize alla conclusione dell'evento. Qualcuno può aiutarmi?

On Error GoTo Err_Comando51_Click

  Docmd.Minimize

   Dim stDocName As String

    stDocName = "REGISTRO GENERALE1"

    DoCmd.OpenReport stDocName, acPreview

Exit_Comando51_Click:

    Exit Sub

DoCmd.Maximize

Err_Comando51_Click:

    MsgBox Err.Description

    Resume Exit_Comando51_Click

End Sub

Answer 1

Ciao Luca,

se per fine dell'evento intendi la fine dell'evento click, devi semplecemente spostare la doCmd.Maximize  subito dopo la DoCmd.OpenReport.

Infatti se tu guardi la procedura dopo la OpenReport trovi la Exit Sub, che non fa altro che saltare tutte le istruzioni successive ed uscrire dalla sub, per cui la DoCmd.Maximize lì dove l'hai mssa non verrà mai eseguita.

---

Cinzia

---

Sito RIO

Il mio Blog

Answer 2

Ciao Cinzia,

Grazie ora funziona, però ho dovuto aggiungere prima di DoCmd.Maximize

Forms![maschera_principale].SetFocus

Ciao