Newsgroup: it.comp.appl.access
Titolo: Esecuzione automatica

è possible far eseguire in automatico una routine anche se si accede al
database tenendo premuto il tasto shift?
è possibile bloccare da codice sia l'avvio del tasto shift che i tasti
"speciali" di access (F11, Ctrl+Bloc Scorr, ecc)?
GRAZIE

 ha scritto nel messaggio
news:wyRka.20831$DT4.6...@twister1.libero.it...

Sul sito comune trovi qualche esempio sulla possibilità di disabilitare il
tasto Shift
sugli altri tasti non so aiutarti.
Io  utilizzo questo codice:
'Funzione per disabilitare il tasto shift della tastier
'Ricordati di fare back up del mdb per poter aprire il
'database.
Function ChangeProperty(strPropName As String, varPropType As Variant,
varPropValue As Variant) As Integer
    Dim dbs As Object, prp As Variant
    Const conPropNotFoundError = 3270
    Set dbs = CurrentDb
    On Error GoTo Change_Err
    dbs.Properties(strPropName) = varPropValue
    ChangeProperty = True
Change_Bye:
    Exit Function
Change_Err:
    If Err = conPropNotFoundError Then    ' Property not found.
        Set prp = dbs.CreateProperty(strPropName, _
            varPropType, varPropValue)
        dbs.Properties.Append prp
        Resume Next
    Else
        ' Unknown error.
        ChangeProperty = False
        Resume Change_Bye
    End If
End Function
Function DisabilitaShift()
Const DB_Text As Long = 10
Const DB_Boolean As Long = 1
        ChangeProperty "AllowBypassKey", DB_Boolean, False
End Function

"Alex De Rossi" <omis...@SPAMlibero.it> ha scritto nel messaggio
news:uRSka.21115$DT4.6...@twister1.libero.it...

se non ho capito male come funziona la tua function tu lanci la change
property dandogli come  parametro il nome della proprietà, quindi potrebbe
essere che funzioni anche con le altre.
ps il tpo proprietà e il valore come faccio a sapere cosa dargli come
parametro?
grazie

 grazie
Anchio penso che sia così, non so pero dirti quale sia o se esista  la
properties giusta per quello che tu cerchi almeno che non provi a crearti un
ciclo di sul dbs.properties .
Puoi anche vede sull' help se ti puo interessare l' evento della maschera su
tasto giù dove sulla pressione del tasto scelto puoi far si che l' un vento
si verifichi o meno
Puoi utilizzare  queste costanti:
 Costante Valore Descrizione
      vbKeyLButton 0x1 Pulsante sinistro del mouse
      vbKeyRButton 0x2 Pulsante destro del mouse
      vbKeyCancel 0x3 Tasto ANNULLA
      vbKeyMButton 0x4 Pulsante centrale del mouse
      vbKeyBack 0x8 Tasto BACKSPACE
      vbKeyTab 0x9 Tasto TAB
      vbKeyClear 0xC Tasto CANCELLA
      vbKeyReturn 0xD Tasto INVIO
      vbKeyShift 0x10 Tasto MAIUSC
      vbKeyControl 0x11 Tasto CTRL
      vbKeyMenu 0x12 Tasto MENU
      vbKeyPause 0x13 Tasto PAUSA
      vbKeyCapital 0x14 Tasto BLOC MAIUSC
      vbKeyEscape 0x1B Tasto ESC
      vbKeySpace 0x20 Tasto BARRA SPAZIATRICE
      vbKeyPageUp 0x21 Tasto PGSU
      vbKeyPageDown 0x22 Tasto PGGIÙ
      vbKeyEnd 0x23 Tasto FINE
      vbKeyHome 0x24 Tasto HOME
      vbKeyLeft 0x25 Tasto FRECCIA SINISTRA
      vbKeyUp 0x26 Tasto FRECCIA SU
      vbKeyRight 0x27 Tasto FRECCIA DESTRA
      vbKeyDown 0x28 Tasto FRECCIA GIÙ
      vbKeySelect 0x29 Tasto SELEZIONA
      vbKeyPrint 0x2A Tasto STAMP
      vbKeyExecute 0x2B Tasto ESEGUI
      vbKeySnapshot 0x2C Tasto SNAPSHOT
      vbKeyInsert 0x2D Tasto INS
      vbKeyDelete 0x2E Tasto CANC
      vbKeyHelp 0x2F Tasto GUIDA
      vbKeyNumlock 0x90 Tasto BLOC NUM
Saluti
Ale

"Alex De Rossi" <omis...@SPAMlibero.it> ha scritto nel messaggio
news:naZka.22566$iy5.6...@twister2.libero.it...

Grazie per le numerose informazioni.
i nomi delle proprietà li ho trovati.
appena genero la routine e la testo ti faccio sapere

"Alex De Rossi" <omis...@SPAMlibero.it> ha scritto nel messaggio
news:uRSka.21115$DT4.6...@twister1.libero.it...

FUNZIONA!!!
cambiando il nome della proprietà si spossono impostare tutte le proprietà
che troviamo nella scermata avvio
Grazie ancora