Newsgroup: it.comp.appl.access
Titolo: ByPassKey Shift su db protetto

Salve a tutti
Tanti conscono l'utility per disabilitare/abilitare il tasto shift,
Ho la necessità di eseguire tale operazione di abilitazione/disabilitazione 
su un db protetto da used id e password.
Ovviamente conosco sia la user id da amministratore e la password ma non 
riesco a modificare opportunamente la routine seguente per risolvere il 
problema.
Qualcuno sa come aiutarmi?
Grazie anticipatamente
  Dim wrk As Workspace
    Dim dbs As Database
    Set wrk = DBEngine.Workspaces(0)
    If strMdb = "" Then
        Set dbs = CurrentDb()
    Else
        Set dbs = wrk.OpenDatabase(strMdb)
    End If
    dbs.Properties("AllowBypassKey") = bolVal
    BypassKey = True
    Set dbs = Nothing
    Set wrk = Nothing
    Exit Function
bypass_Err:
    If Err = 3270 Then
        Dim prp As Property
        Set prp = dbs.CreateProperty("AllowBypassKey", dbBoolean, True)
        dbs.Properties.Append prp
        Resume
    Else
        BypassKey = False
    End If
End Function
 

 ha scritto nel messaggio
news:325Jd.754774$35.29...@news4.tin.it...

Dall'Help:
'        Set arealavoro = CreateWorkspace(nome, utente, password, tipo)
' Crea un oggetto non denominato Workspace del
' tipo specificato dalla proprietà DefaultType
' di DBEngine (dbUseJet).
' Se così non fosse puoi accedere alla Proprietà DefaultType di DbEngine,
oppure
' passarla tramite la creazione dell'Oggetto WorkSpace
 Set wrkJet = CreateWorkspace("", "admin", "TuaPassword")
' A questo punto sull'Oggetto wrkJet apri il tuo Database come hai fatto
prima....!
Ciao
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------

 ha scritto nel messaggio 
news:41f52b0e$0$8207$5fc...@news.tiscali.it...

Grazie per la dritta in parte ci sono riuscito ma ho un problema, Access non 
tiene conto del percorso del mdw che gli indico alla 4° riga del codice qui 
sotto.
Pertanto mi restituisce un messaggio di errore che il login o la password 
sono errati (in realtà sono corretti in quanto se entro tramite collegamento 
a riga di comando che punta sul mdw denominato 'Protezione' entro 
regolarmente)
Se invece utilizzo il login del mdw di default (System.mdw) ovvero "admin" e 
password "" allora non mi restituisce errore alla 4° riga, ma alla 5° ovvero 
dice che non si hanno le autorizzazioni per entrare, ed è giusto, in quanto 
al db GTD.mdb si può accedere soltanto tramite mdw denominato 'Protetezione' 
e non tramite il System.mdw di default.
Per fare funzionare il tutto devo inevitabilmente far aderire l'intero 
Access al mdw denominato 'Protezione' ma a questo punto allora la riga 4 a 
cosa serve se comunque access tiene cono soltanto del file mdw assegnato al 
systema?
In sostanza Alessandro io vorrei tramire codice accedere al file GTD.mdb 
allo stesso modo di come si accede con collegamento a riga di comando che 
punta al mdw 'Protezione' mentre l'intero sistema è assegnato al system.mdw.
Ti ringrazio infinitamente per gli eventuali ulteriori consigli.
Claudio
Function ConnProtetta()
    Dim wrkJet As Workspace
    DBEngine.SystemDB = "C:\Documents and 
Settings\R\Desktop\GTD\Protezione.mdw"
    Set wrkJet = DBEngine.CreateWorkspace("", "pippo", "123456")
    Set dbs = DBEngine.OpenDatabase("C:\Documents and 
Settings\R\Desktop\GTD\GTD.mdb", False, False)
End Function

 Ti ringrazio infinitamente per gli eventuali ulteriori consigli.
Non avevo capito che si trattasse di un MDW, ho estratto il contenuto
di un Modulo di Classe che ho per gestire le Proprietà di un
Database protetto da MDW:
      DBEngine.SystemDB = strSysDb
      Set wrkJet = DBEngine.CreateWorkspace("#default#", strUserName,
strPass)
      Set dbs = wrkJet.OpenDatabase(Name)
 
Se non dovesse andare ti mando la Classe, che è anche semplice da usare
con un esempio.
Ciao
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio 
news:7ff8c4ce73f6334895...@mygate.mailgate.org...

Il contenuto che mi hai mandato è esattamente quello che ho fatto prima 
dell'ultimo post.
Pertanto approfitto aancora della tua cortesia provando con il modulo di 
classe che mi invierai.
La mia email è la seguente: newgem Chiocciola Tin.it
ciao
Grazie
Claudio