Maschera avvio senza Access
SuperPippo®
veloce posizionata sul desktop... ma quando la lancio compare
dietro anche Access. come si fa a far comparire solo la Mashera.???
grazie...
Lenny
"SuperPippo®" <ik0...@libero.it> ha scritto nel messaggio
news:lptf8.41237$v7.15...@twister1.libero.it...
non puoi.
al max puoi disabilitare la finestra che ti fa vedere le tabelle,query etc
etc
menu-strumenti-avvio...
ciao
Lenny
Karl Donaubauer
> ... mi sono creato sul Desktop una maschera con avvio
> veloce posizionata sul desktop... ma quando la lancio compare
> dietro anche Access.
This is by design. Vuol dire il modo come un applicazione
MDI di Windows funzione. Normalmente è meglio di accetare
questo modo e usare le possibilità di Access di nascondere
quasi tutto del Parent Window di Access che puo disturbare.
>come si fa a far comparire solo la Mashera.???
È possibile con un po di code API. Ma ci sono problemi.
Non ce niente da vedere nel Task Bar di Windows e tutte le
maschere della applicazione debbono essere del tipo PopUp
per essere visibile. Certo in una applicazione grande questo
fa un casino p.e. con i report.
Alora se veramente parliamo di una applicazione con una sola
maschera o almeno poche maschere:
' nella parte di dicchiarazione del modulo della maschera di avvio
Const SW_HIDE = 0
' in A00 - non in A97 - è necessessario anche
' Const SW_NORMAL = 1
Private Declare Function ShowWindow Lib "user32" _
(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
' OnOpen della maschera di avvio
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 - non in A97 - è necessessario anche
' Call ShowWindow(Me.hWnd, SW_NORMAL)
--
HTH
Karl
*********
Access-FAQ (tedesco): http://www.donkarl.com
Reds
"SuperPippo®" <ik0...@libero.it> ha scritto nel messaggio
news:lptf8.41237$v7.15...@twister1.libero.it...
quando lanci l'mdb invece della maschera access compare quella
'nomedatabase.bmp'
spero intendessi questo.
ciao roberto
SuperPippo®
news:a5lqik$8fdsg$1...@ID-46617.news.dfncis.de...
> This is by design. Vuol dire il modo come un applicazione
> MDI di Windows funzione. Normalmente è meglio di accetare
> questo modo e usare le possibilità di Access di nascondere
> quasi tutto del Parent Window di Access che puo disturbare.
>
>
> È possibile con un po di code API. Ma ci sono problemi.
> Non ce niente da vedere nel Task Bar di Windows e tutte le
> maschere della applicazione debbono essere del tipo PopUp
> per essere visibile. Certo in una applicazione grande questo
> fa un casino p.e. con i report.
> Alora se veramente parliamo di una applicazione con una sola
> maschera o almeno poche maschere:
Uso A97.... la Maschera è solo una ed è di Ricerca... niente Report
o altro....scusami Karl... sono poco pratico di Access... dove devo inserire
la stringa Const SW_HIDE = 0 ???
> ' nella parte di dichiarazione del modulo della maschera di avvio
> Const SW_HIDE = 0
e questa dove la inserisco ????
> Private Declare Function ShowWindow Lib "user32" _
> (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
questa stringa Su Apertura !! OK....
> ' OnOpen della maschera di avvio
> Dim hWindow As Long
> Dim nResult As Long
> Dim nCmdShow As Long
> hWindow = Application.hWndAccessApp
> nCmdShow = SW_HIDE
> nResult = ShowWindow(ByVal hWindow, ByVal nCmdShow)
> --
> HTH
> Karl
> *********
--------------------
Ciao e grazie....
Karl Donaubauer
> Uso A97.... la Maschera è solo una ed è di Ricerca... niente Report
> o altro....scusami Karl... sono poco pratico di Access... dove devo inserire
> la stringa Const SW_HIDE = 0 ???
>
> > ' nella parte di dichiarazione del modulo della maschera di avvio
> > Const SW_HIDE = 0
>
> e questa dove la inserisco ????
>
> > Private Declare Function ShowWindow Lib "user32" _
> > (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Parliamo del modulo della tua maschera. Se non ce altro codice
puo essere come l'esempio qui sotto e puoi fare un copia incolla.
' ********** CODE START ***********
Option Compare Database
Option Explicit
Const SW_HIDE = 0
Private Declare Function ShowWindow Lib "user32" _
(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Sub Form_Open(Cancel As Integer)
Dim hWindow As Long
Dim nResult As Long
Dim nCmdShow As Long
hWindow = Application.hWndAccessApp
nCmdShow = SW_HIDE
nResult = ShowWindow(ByVal hWindow, ByVal nCmdShow)
End Sub
' ********** CODE END ***********
È chiaro adesso come inserire il codice?
Poi ce anche il problema di terminare Access perché non ce più
un menu ecc. Per questo debbi programmare la terminazione
altrimenti Access resta in memoria.
p.e. fai un bottone con questa righa di codice OnClick:
Application.Quit
SuperPippo®
> È chiaro adesso come inserire il codice?
>
> Poi ce anche il problema di terminare Access perché non ce più
> un menu ecc. Per questo debbi programmare la terminazione
> altrimenti Access resta in memoria.
> p.e. fai un bottone con questa righa di codice OnClick:
>
> Application.Quit
ho copiato-incollato il tuo codice in un Modulo1...
sotto è il codice....
' ********** CODE START ***********
Option Compare Database
Option Explicit
Const SW_HIDE = 0
-----------------------------------------------------------------------
Private Declare Function ShowWindow Lib "user32" _
(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Sub Form_Open(Cancel As Integer)
Dim hWindow As Long
Dim nResult As Long
Dim nCmdShow As Long
hWindow = Application.hWndAccessApp
nCmdShow = SW_HIDE
nResult = ShowWindow(ByVal hWindow, ByVal nCmdShow)
End Sub
' ********** CODE END ***********
la Maschera è Popup a Sì....ma non funziona...
compare sempre la Maschera di Access...
come mai ???
--
SuperPippo® [;o))
SuperPippo®
news:Mavf8.24398$_u5.7...@news1.tin.it...
scusa reds... questa non l'ho capita... sono poco pratico di Access...
se faccio come dici tu.... mi si apre la Maschera di Access
per la Ricerca o no ????
--
SuperPippo® [;o))
Karl Donaubauer
> "Karl Donaubauer" ha scritto:
> > Parliamo del modulo della tua maschera.
> ho copiato-incollato il tuo codice in un Modulo1...
?
SuperPippo®
no ??? Crea - Modulo - Nuovo... ???
non è così ???
Ciao...
Lenny
> ---------------
> no ??? Crea - Modulo - Nuovo... ???
no.
apri la tua prima maschera e vai nel codice e lo copi.
ciao
lenny
SuperPippo®
news:a5q340$bgt$1...@lacerta.tiscalinet.it...
scusa lenny... l'ho fatto... ma non funzia...
la maschera č settata a Pop Up =si
ma lo devo mettere su qualche evento...
tipo su apertura ???
e cme il codice non inizia con un Private etc tec...
-----------------------------
Option Compare Database
Option Explicit
Const SW_HIDE = 0
Private Declare Function ShowWindow Lib "user32" _
(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Dim hWindow As Long
Dim nResult As Long
Dim nCmdShow As Long
hWindow = Application.hWndAccessApp
nCmdShow = SW_HIDE
nResult = ShowWindow(ByVal hWindow, ByVal nCmdShow)
End Sub
--------------------------
Lenny
> --------------------
> scusa lenny... l'ho fatto... ma non funzia...
> la maschera č settata a Pop Up =si
> ma lo devo mettere su qualche evento...
> tipo su apertura ???
> e cme il codice non inizia con un Private etc tec...
copia il codice che ha mandato karl la seconda volta (alle 20.36)
li c'č anche la riga per l'evento open form.
ciao
lenny
SuperPippo®
>
> copia il codice che ha mandato karl la seconda volta (alle 20.36)
>
> ciao
> lenny
---------------------
beh... ho fatto tutto per filo e per segno...
ma non funziona...mi vergogno anche a dirlo...
esce una finestra di errore che dice :
"L'espressione su apertura immessa come impostazione
della proprietà di evento ha provocato il seguente errore :
dopo End Sub, End Function e End Property sono ammessi
solo commenti. L'espressione non è il nome di una macro
il nome di una funzione definita dall'utente oppure
(Routine Evento). Errore durante la valutazione di un evento,
di una funzione o di una macro.."
Ciao...