Newsgroup: it.comp.appl.access
Titolo: Bloccare il tasto shift - Avevo visto una soluzione, ma . . .

 . . . nella mia lungimiranza, non l'ho copiato! :-(
Funzionava con un file esterno nel quale si leggeva se c'era "false" o
"true".
Di conseguenza, il valore veniva 'importato in access' e gestito col comando
'allowbypasskey'.
Mi sapete dare una mano?

 scrisse:

Ecco qua !
Ovviamente, attenzione a fare una copia del db prima di impostare la
proprietà !
Function Proteggi_DB()
On Error GoTo Proteggi_Err
 
Dim dbs As Database, prp As Property
 
  Const conPropNotFoundError = 3270
  Set dbs = CurrentDb
  dbs.Properties("allowBypassKey") = False
Proteggi_Bye:
  Exit Function
Proteggi_Err:
  If Err = conPropNotFoundError Then  'proprietà non trovata
     Set prp = dbs.CreateProperty("allowBypassKey", dbBoolean, False)
     dbs.Properties.Append prp
     Resume Next
  Else
     'Errore sconosciuto
     Resume Proteggi_Bye
  End If
End Function
Vincenzo Turturro
---------------------------------------------------------
Se no diventiamo tutti **** dai portatili o peggio ancora 
provetti poeti fiorentini come vturturro.
(Così disse 
ivan....@tiscalinet.it
 Ven 25 Aug 2000 09:34:52 +0200)

Grazie prima di tutto!
Non capisco dov'è il richiamo ad un file esterno.


 wrote in message
8p2q6b$4mik$1...@stargate1.inet.it...

Ciao Fabio , l'avevo postato io, il codice è questo ;
On Error GoTo errDisableShift
Dim PS, SS, NomeFile
NomeFile = "C:\NomeFile.txt"
Open NomeFile For Input As #1 ' Apre il file per l'input.
Input #1, PS, SS
Input #1, PS, SS
Close #1    ' Chiude il file.
Dim db As Database
Dim prop As Property
Const conPropNotFound = 3270
Set db = CurrentDb()
db.Properties("AllowByPassKey") = IIf(InStr(SS, 0) = 15, False, True)
'(in pratica cerca nella 4 riga il 15 carattere, se uguale a 0 blocca la
propietà,
  ti basta aprire il txt e cambiare il valore per sbloccarla).
Exit Function
errDisableShift:
If err = conPropNotFound Then
Set prop = db.CreateProperty("AllowByPassKey", dbBoolean, False)
db.Properties.Append prop
Resume Next
Else
Beep
MsgBox "La funzione 'DisableShift' non è stata eseguita correttamente." & vb
NewLine & _
"Ricercato il File ;" & NomeFile, vbInformation
Close #1
Exit Function
End If
Ps. il File TXT è fatto così :
 Programma Gestione Preventivi Consuntivi
-----------------------------------------------------------------
Path =     c:\......................
Permission =  0
Author =      Marco Pretini
Data =        25-05-2000.-
Ciao Marco
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/

Non capisco dov'č il richiamo ad un file esterno.
Non c'č !
Intendiamoci bene: questa routine serve a proteggere il FE
disabilitando il tasto Shift all'avvio, e va richiamata all'interno
della macro Autoexec (se non ce l'hai creala).
Quindi agisce solo sul FE cioč sul mdb corrente; perchč quindi
dovrebbe servire un file esterno ?
Oppure ho frainteso la tua richiesta ?
Vincenzo Turturro
---------------------------------------------------------
Se no diventiamo tutti **** dai portatili o peggio ancora 
provetti poeti fiorentini come vturturro.
(Cosě disse 
ivan....@tiscalinet.it
 Ven 25 Aug 2000 09:34:52 +0200)

Per prima cosa, volevo ringraziare chi mi ha dato dei validissimi spunti.
Poi, la soluzione che ho trovato è questa:
Creo un file .txt con dentro un solo valore: true o false.
Nell'applicazione Access creo un pulsante che attiva una macro, che:
- importa il file .txt in una tabella con un campo;
- verifico il valore importato ed imposto la proprietà AllowByPassKey.
Ciò mi permette di "mettere" in rete il file .txt, e questo è modificabile
solo da me o un supervisore.
Inoltre, in ogni momento posso verific are lo status della proprietà con un
segnalino nella maschera iniziale dell'applicazione.

 solo da me o un supervisore.
cioè usando le protezioni di NT ????


Scusa il ritardo della risposta.
Sě, usando la protezione NT.