Newsgroup: it.comp.appl.access
Titolo: menù stile java con access 2007

Salve a tutto L'NG. Ho trovato su Sitocomune un menù tipo Java con la
maschera di Access a scomparsa a dir poco eccezionale, il problema è che con
Access 2007 non mi gira, ovvero quando si avvia il db, la finestra di Access
scompare, appare la maschera per un secondo e poi più niente. Premetto che
il tutto con Access 2003 funziona tutto alla perfezione.
Questo è il codice della maschera:
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 Etichetta1_Click()
Call Apri_Contatti
End Sub
Private Sub Etichetta2_Click()
Call Apri_Movimenti
End Sub
Private Sub Etichetta3_Click()
If MsgBox("Sicuro di voler Uscire definitivamente ?", vbYesNo, ) = 6 Then
    DoCmd.Quit
Else: End If
End Sub
Private Sub Etichetta4_Click()
DoCmd.OpenForm "Impostazioni", acNormal, "", "", , acDialog
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, ) = 6 Then
    DoCmd.Quit
Else: End If
End Sub
E questo del modulo che nasconde la finestra:
Option Compare Database
Option Explicit
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
Qualcuno può aiutarmi a capire dov'è l'incompatibilità?
Saluti a tutti e grazie anticipatamente per l'eventuale aiuto
Fabrizio
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 maschera di Access a scomparsa a dir poco eccezionale
E' roba mia?
--
Pablitomf (Maurizio Facciuti) 

Si, se ricordo bene si, è quell'esempio di db con finestra di access a
scomparsa e con la form menù pricipale che si apre verticale a sinistra del
monitor. Il tutto eccezionale con versioni di access fino al 2003, ma con
2007 non ne vuole sapere.
Grazie


 Salve a tutto L'NG. Ho trovato su Sitocomune un menů tipo Java
sarei curioso di sapere cos'e' un menů tipo java, che per me continua ad 
essere un'isola del sud est asiatico.
-- 
ac
y-1=x

 y-1=x
Ciao Ale
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------

 Grazie
Non entro nel merito tecnico per incompetenza su A2007, ma ho avuto molte
segnalazioni
di non piena compatibiltà di molti Demo convertiti in A2007.
Purtroppo non ho modo di fare Debug non avendo tale Versione ma ci deve
essere
qualche cozzaglia comune che lega queste cose....


 Grazie
ma dici che scompare la maschera anche se poi hai commentato questa stringa 
:
'fAccessWindow acHide, False, False
non ti seguo...
dimmi in realtà cosa accade.. neanche io ho il 2007 

 Se va bene a Gennaio sono 3 settimane...
Avevo quasi deciso di andare in Myanmar.
Sti monaci buddisti so' veramente deleteri.
(ho visto alcune immagini in tivu, sconfinata ammirazione)
-- 
ac
y-1=x

Salve, grazie per il vostro interesse.
Praticamente se si va a salvare o a fare il debug va tutto bene, niente
errori, di fatto se io apro la maschera in oggetto con la finestra di access
aperta e non faccio eseguire:
fAccessWindow acHide, False, False
 
va tutto benissimo, mi rimane aperta la finestra di access, ma il resto è
ok.
Se invece faccio eseguire il codice sopra, l'applicazione si avvia, si vede
annullare la finestra di access, si apre la maschera in oggetto ma subito
sparisce.
Quindi penso che il problema o l'incompatibilità sia nelle dichiarazioni di:




Con le precedenti versioni, ovvero 2000,2002 e 2003 va tutto bene.
Mi sto bacando il cervello!
Grazie ancora.
Saluti
Fabrizio Vignali


Credo di aver risolto almeno parzialmente, ovvero invece di dare come avvio
la maschera in oggetto, la faccio aprire con una Autoexec e aprendo la form
in modalità dialogo. Non si posiziona a sinistra dello schermo come
dovrebbe, risulta centrata, questo penso di risolverlo.
Grazie comunque a tutti.
Saluti
Il 05 Ott 2007, 23:23, 
fabrizio...@libero.it
 (fabrizio vignali) ha
scritto:


 di non piena compatibiltà di molti Demo convertiti in A2007.
Vogliamo i nomi dei Demo che non vanno!     ;-)
Saluti.


Quello del Filtro ad esempio è stato riscontrato uno strano
rallentamento
che ne rende quasi
impossibile l'uso... non ho purtroppo modo nè di testare nè di
indagare, ma
anche altri
demo che mi hanno segnalato danno piccoli e strani difetti...
Ciao


 y-1=x
Io sono entrato in Myammar l'anno scorso(solo per 1gg)... e sembra
un'altro
mondo...!
Se la Thailandia al Nord può far pensare ad un paese degli anni 70....
il
Myammar
ti da l'impressione di essere al 1900(anche se non c'ero...), e quello
che
mi ha colpito
è che ero in ogni caso in una fascia territoriale confinante che
ancora
risente del turismo(se pur non eccessivo in quell'angolo
della Thailandia) figurati aver potuto visitare l'interno.
Solo il Nepal nell'entroterra fuori dai circuiti classici aveva quel
sapore
nostalgico...
In o gni caso sai che non scherzo... nel 2008 credo Cambogia e
Vietnam... se
ti và noi è probabile si parta.
;-)



Esattamente, nonostante abbia controllato e ricontrollato, e poi del resto
su 2003 e 2000 va benissimo, ovvero attivata su apertura form, sparisce
access e si apre la form. Su 2007, succede esattamente questo:
se io la form l'avvio con access aperto è un'orologio! Ma se chiudo il db e
faccio eseguire il tutto in automatico da solo, sparisce tutto e devo
chiudere il processo pe r andare avanti.
Questo è il quanto.
Grazie
Fabrizio Vignali


 ;-)
Ti sconsiglio vivamente di partire senza un preventivo training. 
Se vuoi ti mando qualche del codice di Pablitomf da debugare... altro che Cambogia!!!!
;-)
-- 
-- 
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access

Ti sconsiglio vivamente di partire senza un preventivo training.
Se vuoi ti mando qualche del codice di Pablitomf da debugare... altro che
Cambogia!!!!
;-)
-- 
Oddio no... vade retro...!


;-)
Rotfl :DDDD