Disabilitare tasto shift

[Dino]

Ciao a tutti (pensavate di aver perso le mie tracce ???) ho questa
problematica con la routine per
disabilitare il tasto shift.

Premetto che ho seguito tutti i consigli trovati sul sito
comune.cioe':

nella maschera principale mi sono creato un pulsante di comando; ho
inserito la proprieta' trasparente e in etichetta ho inserito il nome
&- (non l'ho inserito nella riga nome perche' non funziona).
Nell'evento On click del pulsante sono andato ad inserire la seguente
funzione:
Private Sub Ctl___Click()
Dim stLinkCriteria As String
Dim strinput As String
Dim strMsg As String
Dim domanda As String
Dim messaggio As String
Dim intopzioni As Integer

strinput = InputBox("Inserire una password valida.")
strMsg = "Password corretta"

' Prova il valore di input utente.
If strinput = "password" Then
On Error Resume Next


domanda = InputBox("Chiudere il database?")
Const DB_Boolean As Long = 1
If domanda = "Apri" Then

ChangeProperty "AllowBypassKey", DB_Boolean, True
Else

ChangeProperty "AllowBypassKey", DB_Boolean, False
End If

Else
intopzioni = vbCritical
messaggio = "La password immessa è ERRATA."
byscelta = MsgBox(messaggio, intopzioni)

DoCmd.Quit
End If
End Sub


Quando cerco di attivare il pulsante nascosto pigiando ALT + - mi esce
la finestra ERRORE DI COMPILAZIONE dicendomi Sub o function non
definita sottolineando la parola PROPERTY.

Dove puo' essere l'inghippo?
GRAZIE IN ANTICIPO
Ciao Dino

[geppo]

Post by Dino
Ciao a tutti (pensavate di aver perso le mie tracce ???) ho questa
problematica con la routine per
disabilitare il tasto shift.
Premetto che ho seguito tutti i consigli trovati sul sito
nella maschera principale mi sono creato un pulsante di comando; ho
inserito la proprieta' trasparente e in etichetta ho inserito il nome
&- (non l'ho inserito nella riga nome perche' non funziona).
Nell'evento On click del pulsante sono andato ad inserire la seguente
Private Sub Ctl___Click()
Dim stLinkCriteria As String
Dim strinput As String
Dim strMsg As String
Dim domanda As String
Dim messaggio As String
Dim intopzioni As Integer
strinput = InputBox("Inserire una password valida.")
strMsg = "Password corretta"
' Prova il valore di input utente.
If strinput = "password" Then
On Error Resume Next
domanda = InputBox("Chiudere il database?")
Const DB_Boolean As Long = 1
If domanda = "Apri" Then
ChangeProperty "AllowBypassKey", DB_Boolean, True
Else
ChangeProperty "AllowBypassKey", DB_Boolean, False
End If
Else
intopzioni = vbCritical
messaggio = "La password immessa è ERRATA."
byscelta = MsgBox(messaggio, intopzioni)
DoCmd.Quit
End If
End Sub
Quando cerco di attivare il pulsante nascosto pigiando ALT + - mi esce
la finestra ERRORE DI COMPILAZIONE dicendomi Sub o function non
definita sottolineando la parola PROPERTY.
Dove puo' essere l'inghippo?

Io non ho capito quale funzione usi per disabilitare il tasto shift, ma se
usi quella che inizia per:

Sub EnableShift(blnFlag As Boolean)
.....


allora ti basta passargli false o true.

enableshift(false) ' disabilita

enabledshift(true) 'abilita

[Alessandro Baraldi]

Post by Dino
Ciao a tutti (pensavate di aver perso le mie tracce ???) ho questa
problematica con la routine per
disabilitare il tasto shift.
Premetto che ho seguito tutti i consigli trovati sul sito
nella maschera principale mi sono creato un pulsante di comando; ho
inserito la proprieta' trasparente e in etichetta ho inserito il nome
&- (non l'ho inserito nella riga nome perche' non funziona).
Nell'evento On click del pulsante sono andato ad inserire la seguente
Private Sub Ctl___Click()
Dim stLinkCriteria As String
Dim strinput As String
Dim strMsg As String
Dim domanda As String
Dim messaggio As String
Dim intopzioni As Integer
strinput = InputBox("Inserire una password valida.")
strMsg = "Password corretta"
' Prova il valore di input utente.
If strinput = "password" Then
On Error Resume Next
domanda = InputBox("Chiudere il database?")
Const DB_Boolean As Long = 1
If domanda = "Apri" Then
ChangeProperty "AllowBypassKey", DB_Boolean, True
Else
ChangeProperty "AllowBypassKey", DB_Boolean, False
End If
Else
intopzioni = vbCritical
messaggio = "La password immessa è ERRATA."
byscelta = MsgBox(messaggio, intopzioni)
DoCmd.Quit
End If
End Sub
Quando cerco di attivare il pulsante nascosto pigiando ALT + - mi esce
la finestra ERRORE DI COMPILAZIONE dicendomi Sub o function non
definita sottolineando la parola PROPERTY.
Dove puo' essere l'inghippo?
GRAZIE IN ANTICIPO
Ciao Dino

Conosci la possibilità di usare il COMPILA....?
Da codice prima di lanciare l'esecuzione seleziona COMPILA e vedi dove
ti restituisce erorri...!

Hai compiato la Funzione ChangeProperty oltre il resto...?

@Alex