Newsgroup: it.comp.appl.access
Titolo: nascondere la finestra di access su 2007

Salve a tutti,
scusate l'insistenza, ma non riesco a far funzionare il modulo di A.Baraldi
per nascondere la finestra su 2007.
Evidentemente ci sono, come dice lui, delle "cozzaglie" che impediscono
l'esecuzione. Peccato, perchè io non riesco a utilizzare il mio db su questa
versione. Potrei ridurre la finestra in un angolo da codice, lasciando le
popup in evidenza?
Ho cercato in giro ma non ho trovato moduli che effettuassero questa
funzione. E' possibile? In questo modo anche se non la nascondo almeno la
riduco da un lato.
Grazie ancora per la pazienza.
Fabrizio Vignali
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Fabrizio Vignali
Qual'č?
-- 
Ciao
Access 

> Fabrizio Vignali
io ho provato il codice di karl su a2007 e funge:
http://www.donkarl.com/it/FAQ/FAQ1Fondamentali.htm#1.11
-- 
Ciao
Access 

 Access
Ciao, grazie per la risposta.
Questo è il modulo Nascondi Finestra
Option Compare Database
Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long)
As Long
Dim dwReturn As Long
Public Const acHide = "Hide"
Public Const acShow = "Show"
Public Const acMinimized = "Minimize"
Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
     ByVal nCmdShow As Long) As Long
 
Public Function fAccessWindow(Optional Procedure As String, Optional
SwitchStatus As Boolean, Optional StatusCheck As Boolean) As Boolean
If Procedure = "Hide" Then
    dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
End If
If Procedure = "Show" Then
    dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
If Procedure = "Minimize" Then
    dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED)
End If
If SwitchStatus = True Then
    If IsWindowVisible(hWndAccessApp) = 1 Then
        dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
    Else
        dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
    End If
End If
If StatusCheck = True Then
    If IsWindowVisible(hWndAccessApp) = 0 Then
        fAccessWindow = False
    End If
    If IsWindowVisible(hWndAccessApp) = 1 Then
        fAccessWindow = True
    End If
End If
End Function
Variabili Pubbliche
Option Compare Database
Public posiz As Integer
Public tipologia As String
Questa e la form
Option Compare Database
Option Explicit
Private Sub bar_vert_Click()
    Dim altezza
    altezza = Me.WindowHeight
    Dim incremento, i
    incremento = 10
    If Me.bar_vert.Caption = "OPZIONE MENU (APRI)" Then
        Me.bar_vert.Caption = "OPZIONE MENU (CHIUDI)"
        Me.bar_vert.ControlTipText = "CHIUDI"
        i = 0
        While i < 1900
            i = i + incremento
            DoCmd.MoveSize 0, 0, i, altezza
            Me.Form.Requery
        Wend
    Else
        Me.bar_vert.Caption = "OPZIONE MENU (APRI)"
        Me.bar_vert.ControlTipText = "APRI"
        DoCmd.MoveSize 0, 0, 280, altezza
        i = 1900
        While i > 280
            i = i - incremento
            DoCmd.MoveSize 0, 0, i, altezza
            Me.Form.Requery
        Wend
    End If
End Sub
Private Sub bar_vert_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
'Me.bar_vert.ControlTipText = Me.bar_vert.Width
End Sub
Private Sub Corpo_Click()
DoCmd.Close acForm, "Maschera2"
End Sub
Private Sub Etichetta1_Click()
tipologia = "Menu 1"
DoCmd.Close acForm, "Maschera2"
posiz = Me.Etichetta1.Top
DoCmd.OpenForm "Maschera2"
End Sub
Private Sub Etichetta2_Click()
tipologia = "Menu 2"
DoCmd.Close acForm, "Maschera2"
posiz = Me.Etichetta2.Top
DoCmd.OpenForm "Maschera2"
End Sub
Private Sub Etichetta3_Click()
tipologia = "Menu 3"
DoCmd.Close acForm, "Maschera2"
posiz = Me.Etichetta3.Top
DoCmd.OpenForm "Maschera2"
End Sub
Private Sub Etichetta4_Click()
tipologia = "Menu 4"
DoCmd.Close acForm, "Maschera2"
posiz = Me.Etichetta4.Top
DoCmd.OpenForm "Maschera2"
End Sub
Private Sub Form_Open(Cancel As Integer)
fAccessWindow acHide, False, False
DoCmd.Echo False
    Dim altezza, Larghezza
    DoCmd.Maximize
    altezza = Me.WindowHeight
    DoCmd.Restore
    DoCmd.MoveSize 0, 0, 280, altezza
    Me.bar_vert.Height = altezza
    Me.img_vert.Height = altezza
    Me.linea_DX.Height = altezza
Application.Echo True
End Sub
Private Sub img_chiusi_Click()
If MsgBox("Sicuro di voler Uscire definitivamente ?", vbYesNo, "MFSystem Srl
: MENU") = 6 Then
    DoCmd.Quit
Else: End If
End Sub
Grazie per l'aiuto.


 > Access
Ho provato il codice di karl su consiglio di Facciuti quello va bene, grazie
cmq.


 Fabrizio Vignali
Che poi è quello che ti ho consigliato anch'io nel post del 07/10/2007 ore 
0,15
-- 
Ciao
Access