Newsgroup: it.comp.appl.access
Titolo: Maschera, metodo di visualizzazione

E' possibile in fase di avvio di un mdb, far si che sul monitor compaia solo
la maschera principale del programma mentre la struttura del programma
access risulti invisibile?
Mi sono spiegato bene?
-- 
strano...mavero
la vita è un dono prezioso, apprezzala per quello che potrà offrirti

 Mi sono spiegato bene?
Menů Strumenti/Avvio :
Togli la spunta a tutti i chekbox e inserisci il nome della maschera
principale nella combo "Visualizza Maschera"
E io ho capito bene?
-- 
Chi la dura la vince ;-)
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


Purtoppo no, vorrei che anche la struttura del programma access non fosse
visibile e poter vedere solo la maschera...is it possible?


 visibile e poter vedere solo la maschera...is it possible?
Certo che si...
forse ti trovo il codice...


 ha scritto nel messaggio
news:c6ogs9$lgc$1...@news.newsland.it...

MITICO!!!!!!!!

 MITICO!!!!!
Inserisci un MODULO e denominalo "Hide or Show Access Window"
Incollaci dentro questo codice :
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
....
Nella maschera principale nell'evento apertura :
 fAccessWindow ("Hide",False, False) 
NB
TUTTE LE FORM DEVONO ESSERE IN VISUALIZZAZIONE POPUP ALTRIMENTI NON
FUNZIONANO


fatto, mi dice in fase di apertura che è impossibile trovare la macro
fAccessWindow ("Hide",False, False)
non saprei dove guardare ... in totale sincerità!!


 non saprei dove guardare ... in totale sincerità!!
Hai ragione... ho sbagliato io...
1) Elimina il codice dall'evento apertura della maschera principale.
2) Costruisci una macro e denominala autoexec
3) Nella prima riga in Azioni scegli "EseguiCodice" e nella parte bassa
"Nome Funzione" inserisci il codice di cui prima... fAccessWindow
("Hide",False, False) 
4) Nella seconda riga scegli "Apri Maschera" e nella parte bassa scegli il
nome della maschera principale.
Ora salva tutto e riavvia... dovrebbe andare.
PS
FATTI COPIE DI BACKUP (non si può mai sapere)


 ha scritto nel messaggio
news:c6oirr$8r5$1...@news.newsland.it...

fatto, ora mi dice: impossibile trovare la macro ".
Non preoccuparti, i bkp sono praticamente delle mie abitudini!!! Grazie cmq
per il suggerimento.
Ora invece che si fa?!!!!!!


 ha scritto nel messaggio
news:c6oj5h$8hn$1...@lacerta.tiscalinet.it...

prosegue poi dicendo:
errore durante la compilazione della funzione
errore di sintassi nel modulo dell'applicaizone
controllare il codice quindi ricompilarlo

 Ora invece che si fa?!!!!!!
Si ricontrollano i post precedenti e si guarda un po dov'è l'errore, e se
non c'è si guarda un po che hai scritto tu...


strano....mavero ha scritto:
TROVATO!!!
Spediscimelo e me lo guardo io (ovviamente spediscimi il necessario,
ovvero la maschera principale)... 
pabli...@libero.it


 ha scritto nel messaggio
news:c6ojnu$gje$1...@news.newsland.it...

Mail in arrivo ... ma come fai ad essere così ferrato in materia?
PRECISO: non è una leccata!!!!!!


 PRECISO: non č una leccata!!!!!!
E' il mio lavoro
