Newsgroup: it.comp.appl.access
Titolo: Maschera avvio senza Access

salve... mi sono creato sul Desktop una maschera con avvio 
veloce posizionata sul desktop... ma quando la lancio compare 
dietro anche Access. come si fa a far comparire solo la Mashera.???
grazie...

 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

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

Ti crei un file con  'nomedatabase.bmp' lo metti nella stessa dir del DB
quando lanci l'mdb invece della maschera access compare quella
'nomedatabase.bmp'
spero intendessi questo.
ciao roberto

 *********
 --------------------
Ciao e grazie....

 ...
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


 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))

 ha scritto nel messaggio
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))

 ho copiato-incollato il tuo codice in un Modulo1...
?

 ha scritto nel messaggio
news:a5o0dq$8sli5$1...@ID-46617.news.dfncis.de...

---------------
no ???  Crea - Modulo - Nuovo... ???
non è così ???
Ciao...

 non č cosě ???
no.
apri la tua prima maschera e vai nel codice e lo copi.
ciao
lenny

 ha scritto nel messaggio
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
--------------------------

 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

 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...