Newsgroup: it.comp.appl.access
Titolo: bottone chiusura finestra Access

Ciao a tutti
cerco di usare la funzione presente nel sito Comune nella sezione General
per rimuovere il pulsante di chiusura (X),
ma mi restituisce "Errore di run-time '6': Overflow".
Qualcuno sa dirmi xfavore cosa posso aver sbagliato!

 ha scritto nel messaggio
news:1Iyib.34027$e6.12...@twister2.libero.it...

Se mi ricordo bene quella cosa funzionava solo fino alla versione 97.
Tu che c'hai?
Antonio

 ha scritto nel messaggio
news:Gnzib.32146$vO5.1...@twister1.libero.it...

access2000

 wrote in message
Upzib.32155$vO5.1...@twister1.libero.it...

Imposta la proprietą "pulsante di chiusura" della maschera a "no"
dovrebbe funzionare
ciao
Dario

 ha scritto nel messaggio
news:DGzib.209555$hE5.7...@news1.tin.it...

Si hai ragione questo gią lo faccio con tutte le altre Form, perņ io lo
vorrei fare sulla finestra del database di Access per impedire agli
utilizzatori di uscire in quel modo
ciao
Luca


Premesso che sono un principiante e non conosco bene access:
non ho capito se devi far sparire la "x" dalla finestra di access o da
quella del database, ma se è quella del database che devi far sparire forse
sarebbe sufficiente fare in modo che la maschera aperta copra la finestra
del database, in modo che anche se la "x" c'è, non si vede.
ti ricordo però che sono un novellino, e potrei averti detto una cavolata.
comunque ciao
Dario

 ha scritto nel messaggio
news:XWzib.209630$hE5.7...@news1.tin.it...

Scusami Dario ma avrei bisogno di una soluzione un po più drastica, anche se
a volte anch'io ho risolto alcune cose con scorciatoie semplici ma efficaci.
Rinnovo comunque la mia richiesta al Newsgroup
Grazie e ciao
Luca

 ti ricordo però che sono un novellino, e potrei averti detto una cavolata.
Dario....
la prima e la seconda che hai detto...
Per la cronaca la finestra database che dici tu è quella che contiene gli
oggetti di database.
Quella che dice lui, è la finestra windows che contiene tutto l'mdb.
Per togliere la x da quella non credo ci sia la versione a2000 in giro
Antonio

 ha scritto nel messaggio
news:PaAib.32296$vO5.1...@twister1.libero.it...

...esatto, comunque grazie Antonio
Luca

"annilux" <

I problemi li da solo con sistemi operativi di tipo NT.
La variabile che ti da overflow ... dimensionala al Long.
Bye

 ha scritto nel messaggio
news:XWzib.209630$hE5.7...@news1.tin.it...

Questa funziona con tutte le versioni...
Copia il seguente testo in un modulo:
Option Compare Database
Option Explicit
Private Declare Function SendMessage Lib "user32" _
 Alias "SendMessageA" _
 (ByVal hWnd As Long, ByVal wMsg As Long, _
 ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function SetWindowLong Lib "user32" _
 Alias "SetWindowLongA" (ByVal hWnd As Long, _
 ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" _
 Alias "GetWindowLongA" (ByVal hWnd As Long, _
 ByVal nIndex As Long) As Long
Private Const GWL_STYLE = -16
Private Const WS_SYSMENU = &H80000
Private Const WM_NCPAINT = &H85
Public Sub ShowAccessBtn(ShowIt As Boolean)
    On Error GoTo Errors
    Dim lngOldStyle As Long
    Dim lngNewStyle As Long
    Dim mhWnd As Long
    mhWnd = Application.hWndAccessApp
    'Legge il valore attuale
    lngOldStyle = GetWindowLong(mhWnd, GWL_STYLE)
    If ShowIt Then
        lngNewStyle = lngOldStyle Or WS_SYSMENU
    Else
        lngNewStyle = lngOldStyle And Not WS_SYSMENU
    End If
    'Questa è l'unica Funzione indispensabile
    'che esegue realmente il comando Hide/Show
    'dei Pulsanti
    Call SetWindowLong(mhWnd, GWL_STYLE, lngNewStyle)
    'Manda un Repaint alla Finestra di Access
    Call SendMessage(mhWnd, WM_NCPAINT, 1, 0)
ExitHere:
    Exit Sub
Errors:
   MsgBox Err.Description, vbCritical, "Errore n° = " & Err.Number
   Resume ExitHere
End Sub
-Sulla prima maschera che  apri devi mettere
Private Sub Form_Current()
Dim s As Boolean
  ShowAccessBtn s
   s = Not s
End Sub
Leonardo

 ha scritto nel messaggio
news:4oAib.32348$vO5.1...@twister1.libero.it...

miiiiiiiticooooooooo Leonardo ... funziona perfettamente
Grazie 100000
Ciao
Luca

 Leonardo
Ah Leonardo, cita la fonte... allegato a Access 2000 Jackson libri (non
ricordo l'autore)
MAssimiliano
p.s. A proposito, in "Non ci resta che piangere" hai capito perchè il
caminetto, pur mettendoci dentro la legna,
non va?


Dai MA..... è una vita che lo giri anche tu il CD della JK, ma
ancora non hai capito come aprirlo......!!!!
;-)
@Alex.


Ma che dici, è tutto di un pezzo non si apre... o almeno hanno nascosto
benissimo il pulsante!?!
MAssimiliano

 MAssimiliano
He..He...!
Allora il tuo è COPIATO, il mio ha il CommandButton nella parte
superiore con l'icona....!!!
@Alex.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG