Newsgroup: it.comp.appl.access
Titolo: Visualizzare solo la maschera di access

Ciao a tutti,
sono riuscito a risolvere il problema della macro1 cancellata e richiamata 
in apertura di maschera (di cui ho parlato nel post precedente). Per questo 
ringrazio tutti e in particolare chi mi ha risposto e mi ha dato una mano.
Vorrei ora cercare di risolvere l'altro problema, ossia quello della 
visualizzazione, in apertura di applicazione, della sola maschera da me 
creata (senza l'avvio completo di access), un po' come se questa sia 
un'applicazione a parte.
Ho trovato in rete questo codice che a quanto ho capito dovrebbe aiutarmi a 
risolvere la questione:
-----------------------------------------------------------------------------------
'Nascondere completamente la finestra di Access è possibile solo tramite 
API.
'Nella sezione dichiarazioni del modulo di classe della maschera principale 
inserisci:
Const SW_HIDE = 0
'in A00 devi aggiungere:
'Const SW_NORMAL = 1
Private Declare Function ShowWindow Lib "user32" _
    (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
'Nella routine SuApertura della maschera principale:
Dim hWindow As Long
Dim nResult As Long
Dim nCmdShow As Long
hWindow = Application.hWndAccessApp
nCmdShow = SW_HIDE
nResult = ShowWindow(ByVal hWindow, ByVal nCmdShow)
'in A00 devi aggiungere:
'call ShowWindow(Me.hWnd, SW_NORMAL)
-----------------------------------------------------------------------------------
Il problema vero è che non so proprio dove questo codice vada inserito. Come 
ho avuto già modo di far notare, sono quasi del tutto ignorante in materia 
di programmazione VB in access e per questo trovo molti problemi anche sulle 
cose più stupide.
Spero che qualche anima pia possa aiutarmi spiegandomi in modo semplice i 
passi da fare
Grazie anticipatamente 

 ha scritto nel messaggio 
news:%IgHd.10934$fs6.2...@twister2.libero.it...

Vai in struttura della maschera che ti interessa.
Visualizza codice
Nella combo di sx cerchi Form
in quella di dx Load
Incolli quel codice e come sta scritto se  hai una versione di A 2000 devi 
togliere l'apostrofo avanti alle riche indicate.
Ricorda però che le maschere devono essere popup
(è una proprietà della forma - ti basta settare sì la voce in elenco)
MAssimiliano 

 ha scritto nel messaggio 
news:_uoHd.5290$fq5....@news.edisontel.com...


 ha scritto nel messaggio
news:9XsHd.11640$GU.3...@twister1.libero.it...

ricordati di scrivere sempre dopo i post precedenti.
io no ho mai provato ma secondo me il codice da inserire su apertura
from è solo questo
 Private Sub Form_Load()
 Dim hWindow As Long
 Dim nResult As Long
 Dim nCmdShow As Long
 hWindow = Application.hWndAccessApp
 nCmdShow = SW_HIDE
 nResult = ShowWindow(ByVal hWindow, ByVal nCmdShow)
 'in A00 devi aggiungere:
 Call ShowWindow(Me.hwnd, SW_NORMAL)
 End Sub
mentre questo di codice va inserito in un modulo di classe
 Const SW_HIDE = 0
 'in A00 devi aggiungere:
 Const SW_NORMAL = 1
 Private Declare Function ShowWindow Lib "user32" _
 (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
ciao e spero di esserti stato utile.


Controlla la posta.
Per la cronoca
 Private Sub Form_Load()
 Dim hWindow As Long
 Dim nResult As Long
 Dim nCmdShow As Long
 hWindow = Application.hWndAccessApp
 nCmdShow = SW_HIDE
 nResult = ShowWindow(ByVal hWindow, ByVal nCmdShow)
 Call ShowWindow(Me.hwnd, SW_NORMAL)
 End Sub
Maschera a popup
Testato funzia
MAssimiliano
Tutto nella stessa maschera


MA ha scritto:

Ma questo codice va inserito in ogni form del database ????
io ho provato a inserire il codice solo nella prima maschera ( il 
pannello comandi che è popup )
è funziona ma le altre non si vedono anchese sono tutte popup....
Quindi mi chiedevo se va messo in tutti i load() di tutte le form.
Grazie.

 Grazie.
Se stai usando A2003 da quanto ho letto in un post di Lorenzo
č proprio cosě, probabilmente un bug, oppure occorre trovare un'alternativa.
Ciao
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------