Newsgroup: it.comp.appl.access
Titolo: Disattivare il pulsante"X" del Database

Salve a tutti,
Ho provato ad utilizzare il codice presente sul "sito comune", ma non
essendo pratico di VBA probabilmente sbaglierò qualcosa.
E' possibile tramite macro?
Inoltre ho diviso il mio database in FE e BE e volevo salvarlo in MDE;
purtroppo ricevo un errore d'impossibilità di salvarlo in MDE.
Utilizzo Access 2000 e Windows 2000, accedendo al sistema come
amministratore.
Il database attualmente non ha nessuna Password o protezione di alcun tipo.
Sperando in un vostro aiuto, Vi ringrazio e saluto!!!

 E' possibile tramite macro?
prova a impostare la proprietà  Pulsante chiusura , della maschera, : No


 ha scritto nel messaggio
news:8vmpff$4uo$1...@nslave2.tin.it...

Vorrei disattivare il tasto "X" dell'intera applicazione e non quello della
singola maschera che avevo già tolto.
Comunque ti ringrazio.


E' possibile, ti interessa ancora?
Michele Amato
P.S.
Mi sono imbattuto in questo thread per caso, quasi un mese dopo...

 E' possibile, ti interessa ancora?
A me sì ... :-)
OndaMax

Anche a me interesserebbe.

 wrote in message
k0wZ5.88980$hk4.3...@news.infostrada.it...

Soluzione A (skill medio-alto):
via API, faccio sparire i 3 pulsanti _ M X, attenzione però all'ALT-F4
Crea un nuovo modulo ed incolla questo codice
'INIZIO CODICE
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Compare Database
Option Explicit
Private Declare Function fxMAE_GetParentWind% Lib "User32" Alias "GetParent"
(ByVal hWnd%)
Private Declare Function fxMAE_GetWindowLong Lib "User32" Alias
"GetWindowLongA" (ByVal hWnd%, ByVal Index%) As Long
Private Declare Function fxMAE_SetWindowLong Lib "User32" Alias
"SetWindowLongA" (ByVal hWnd%, ByVal Index%, ByVal Style&) As Long
'----Declare Constants
Const GWL_STYLE = -16
Const WS_SYSMENU = &H80000
Const WS_MINIMIZEBOX = &H20000
Const WS_MAXIMIZEBOX = &H10000
Function fxMAE_HideApplicationButtons()
Dim llPrevWinStyle As Long, llNewWinStyle As Long
  llPrevWinStyle = fxMAE_GetWindowLong(Application.hWndAccessApp, GWL_STYLE)
  llNewWinStyle = (llPrevWinStyle And Not WS_SYSMENU And Not WS_MINIMIZEBOX)
Or WS_MAXIMIZEBOX
  llPrevWinStyle = fxMAE_SetWindowLong(Application.hWndAccessApp, GWL_STYLE,
llNewWinStyle)
  MsgBox "Pulsanti disattivati, attenzione, gestire l'ALT-F4!!!"
End Function
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'FINE CODICE
Soluzione B (skill medio), presuppone la presenza di un maschera usata come
"Pannello comandi":
nella routine evento Unload di tale maschera:
Private Sub Form_Unload(Cancel As Integer)
  If MsgBox("Confermi la chiusura dell'applicazione corrente?", vbQuestion +
vbYesNo) = vbYes Then
    Application.Quit
  Else
    Cancel = True
  End If
End Sub
Io personalmente preferisco usare la seconda: è - hard coded e + standard
windows (infatti la si può ritrovare nell'Access Navigator).
Chi vuole usare la prima, comunque, si ricordi di gestire l'ALT-F4...
HTH
Michele Amato
--
{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}
Sulla mia pagina personale
http://utenti.worldonline.it/micheleamato
è possibile trovare una add-in per Access97-2000:
          Access Navigator 3.0
{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}