Newsgroup: it.comp.appl.access
Titolo: togliere i 3 tasti in alto a destra di access (in windows XP però)

ho già la funzione presa sul sitocomune che toglie i 3 tasti in alto a
destra di access in modo che l'utente non possa uscire magari mentre sta
facendo una fattura.
però in windows XP non funziona, qualcuno a già affrontato il problema e lo
ha risolto?
Grazie.

 ha scritto nel messaggio
news:bkudnb$tf7$1...@lacerta.tiscalinet.it...

questa è la soluzione trovata in un post
[cut]
"Lo copiata da Paperino (e-mail del 14/07/99) e riadatta per Access dove non
esiste l'evento
QueryUnload.
Private Sub Form_Unload(Cancel As Integer)
Dim intScelta As Integer
Dim UnloadMode As Integer
    If UnloadMode = vbFormControlMenu Then
             intScelta = MsgBox("Vuoi uscire veramente?", vbYesNo "
            If (intScelta = vbYes) Then
                MsgBox "Ciao :)"
                Cancel = False
            Else
            Cancel = True
            Exit Sub
            End If
        End If
End Sub
io lo riadattata per le mie esigenze ho tolto il messaggio e faccio uscire
dal programma solo se si preme il bottone di uscita dalla maschera iniziale
funziona su access2000 e Xp su 97 non ho provato
Stefano (Kabisa)


scusa ma questo però non impedisce di uscire con la X in alto a destra
quella di access la piu esterna non quella della form aperta.
o sbaglio?

 o sbaglio?
Sempre che Ctrl-F4 ed Alt-F4 siano bloccate.
rgrds
SC
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


CommandBars("Menu Bar").Enabled = False
Ma te lo sconsiglio.Io faccio cosě:
Sostituisco la barra del menu con una mia barra.Nella frm di menu che chiudo
solo
all'uscita dell'applicazione metto.
Private Sub Form_Unload(Cancel As Integer)
        If Chiudi Then
         Else
                Cancel = True
          End If
        End Sub
Ed in un modulo
Function Chiudi()
Dim intScelta As Integer
        Chiudi = True
            intScelta = MsgBox("Vuoi uscire veramente?", vbYesNo)
                If (intScelta = vbYes) Then
                        MsgBox "Ciao!", vbExclamation
                        db.Close
                        Set db = Nothing
                        DoCmd.Quit
                Else
                        Chiudi = False
                        Exit Function
                End If
End Function
Ti mette al sicuro da qualsiasi uscita "involontaria" perchč se l'utente
prova a chiudere dalla x di access ,access stesso prova a chiudere la frm di
menu
cosa che viene intercettata dalla function.
SunRex

 wrote in message
news:bkudnb$tf7$
1...@lacerta.tiscalinet.it

E' un problema di API, la versione di XP con quella di 98
hanno litigato.
In effetti è reale il problema, ma non saprei come aiutarti.
@Alex.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 @Alex.
se fanno pace dimmelo, grazie ;)

 ha scritto nel messaggio
news:bkv3cs$al2$1...@lacerta.tiscalinet.it...

Prova a metterlo nella prima forms che apri (naturalmente non la chiuderai
fino all'uscita dell'applicazione ma la metterai in stato invisibile).
non potrai uscire con la X dell'applicazione perch'è no potrà fare l'evento
unload della form.
funziona (toglie anche alt F4)
se vuoi un esempio scarica il file stup KAbisa dal sito
www.intenso.it
\kabisa la pasword e login sono  kabisa
arrivi alla maschera principale prova a chiderla con la x .
se mi mandi il tuo indirizzo di posta elettronica ti mando uno zip con la
struttura delle immagini che permette di andare avanti col programma.
mando un zip con qualche cartella e tre immagini che sbloccano il programma.
Stefano