Newsgroup: it.comp.appl.access
Titolo: [OT] FAQ 1.8

1.8 IMPEDIRE L'USO DEL TASTO SHIFT ALL'AVVIO
Problema
L'utente aggira le impostazioni d'avvio tenendo premuto il tasto <Shift>
all'apertura dell'mdb.
Soluzione
Da A97 esiste la proprietà AllowBypassKey (vedi l'help in linea).
Potete impostare questa proprietà ad esempio con la seguente funzione (di
Jörg Ackermann):
'*************  INIZIO CODICE *************
Function StartOptionenEin(flag As Boolean) As Integer
Dim db As DAO.Database
On Error GoTo Err_StartOptionenEin
Set db = CurrentDb
db.Properties!AllowBypassKey = flag
Exit_StartOptionenEin:
Exit Function
Err_StartOptionenEin:
    If Err = 3270 Then
        db.Properties.Append db.CreateProperty("AllowBypassKey", dbBoolean,
flag)
        Resume Next
    Else
        MsgBox "Fehler: " & Error$ & "(" & Err & ")"
        Resume Exit_StartOptionenEin
    End If
End Function
'*************  FINE CODICE *************
Chiamata per impedire l'uso del tasto <Shift>:  StartOptionenEin (False)
Chiamata per permettere l'uso del tasto <Shift>::  StartOptionenEin (True)
Dove tale funzione venga richiamata non ha importanza. Appena la funzione
viene richiamata una volta, l'impostazione di "AllowBypassKey" viene
impostata nel modo scelto per il database in cui viene richiamata fino al
successivo cambiamento esplicito. Puoi quindi utilizzare qualunque evento a
scelta o anche la finestra di controllo. (ndr. questa non l'ho capita)
Molta attenzione a lasciarti un percorso nascosto per settare a True tale
proprietà per poter accedere tu stesso ai tuoi oggetti. (per esempio
l'evento click di un'etichetta non visibile in un posto che passi
inosservato.)
AllowBypassKey senza l'attivazione delle protezioni di Access può essere
modificata dall'esterno con conoscenze minime di programmazione. (ndr.
adesso si che mi sento ignorante! :) Qualora siano attive le protezioni di
Access si può permettere di modificare tale proprietà solo a chi possieda le
autorizzazioni neccessarie. (ndr. la parte che segue è tradotta
letteralmente perchè non sono certo di averla capita) In più potete con il
metodo CreateProperty impostare il parametro DDL a Vero. (vedi l'help in
linea per CreateProperty) Un esempio:
db.Properties.Append db.CreateProperty("AllowBypassKey", dbBoolean, flag,
True)

...
Grazie.
Ho cambiate un po' il codice e adatto qualche parola nella
traduzione. Vedete se trovate sbagli nel risultato sul sito.
-- 
cu
Karl
*********
Access FAQ: 
www.donkarl.com/it

 ...Ho cambiate...
eeerrore di battitura - giuro!

 -- 
Il msgbox lo metteri in italiano.
Molta attenzione a lasciarti un percorso nascosto
per settare a True tale proprietą per poter
accedere tu stesso ai tuoi oggetti
Fai olta attenzione a lasciarti un "passaggio
segreto" per settare a True tale proprietą per
poter accedere tu stesso ai tuoi oggetti
la precisazione era per l'aggiunta Fai, mentre lo
scrivevo mi č venuta la chicca del passaggio
segreto
MAssimiliano

 eeerrore di battitura - giuro!
Pure questo è un errore????
Karl, ma come parli l'italiano!!???
; - )))))
MAssimiliano

 segreto
Ok, fatto.
Sebbene non ho trovato "olta" nel dizionario.


 ha scritto
nel messaggio news:2li4ttF...@uni-berlin.de...

Probabilemente hai un dizionario vecchio ;-)
MAssimiliano

 ha scritto
nel messaggio news:2li4ttF...@uni-berlin.de...


Io farei
Per permetterti di accedere ai tuoi oggetti
esempio di qui soppra:
Significa sopra a tutto????
MAssimiliano

 Significa sopra a tutto????
No, ca. 10 cm sopra/più su/alto?
-- 
cu
Karl
*********
Access-FAQ 
http://www.donkarl.com/it


Meglio:
Per l'esempio sopra riportato: