Newsgroup: it.comp.appl.access
Titolo: password e finestra popup

Salve a tutti,
mi trovo a dover affrontare il problema di dover gestire il problema
dell'apertura di una maschera sotto password.
Dopo aver cercato un pò in rete sono giunto ad una soluzione tramite
l'utilizzo delle Inputbox che però mi da il problema che la password
risulta visibile.
Sempre cercando in rete ho visto che per risolvere questa questione
bisogna utilizzare una maschera popup con determinate caratteristiche e
fare in modo che la maschera da proteggere abbia in apertura la
suddetta maschera popup.
Diciamo che concettualmente ho capito perfettamente cosa devo fare, i
miei problemi nascono nel momento in cui vado a mettere in pratica il
tutto, non essendo molto pratico di access ed essendo praticamente la
prima volta che mi accingo a scrivere degli script di programmazione in
vbscript.
Ecco quello che ho "combinato":
1) Ho creato la mia maschera popup, "Inserisci password", con un
controllo non associato e a cui ho dato come maschera di input le
caratteristiche di password
2) Ho inserito in tale maschera un pulsante di comando a cui
hoassociato, su clic, il seguente codice:
Private Sub Corpo_Click()
          Public psw
          If Forms![Inserisci password]![Testo3] <> "miapassword" Then
psw = True
          Else: psw = False
          End if
End Sub
3) A questo punto sono andato sulla finestra da proteggere con password
ed ho inserito sull'evento di apertura il seguente codice:
Private Sub Form_Open(Cancel as Integer)
           DoCmd.OpenForm"Inserisci password",,,,, asDialog
           if psw = True Then Cancel = False
           Exit Sub
End Sub
E' inutile dire che questo "pastrocchio" non funziona.....avete qualche
suggerimento da darmi oppure qualche link dove posso trovare la
soluzione al mio problema?
Ringrazio anticipatamente tutti coloro che vorranno aiutarmi

 
Che vuol dire non funziona ?
Da errore oppure spiega che comportamento ha.
Purtroppo non ho modo di provarlo al momento.
in ogni caso mi viene in mente una cosa:
sostituisci
if psw = True Then Cancel = False
con
Cancel = Not psw

Non funziona nel senso che inserendo la password nella casella di testo
e cliccando il pulsante non succede niente, ne se la password è giusta
ne se la password è sbagliata.
Inoltre chiudendo la finestra "Inserisci password" mi apre comunque la
maschera da proteggere.
P.S. Anche modificando il codice come mi hai suggerito non cambia
nulla..

and...@sapsystem.it
 ha scritto:

Apri la Form d'immissione PWD in modalità acDialog non asDialog e
lascia fare a lei...
passa tramite la proprietà Args il nome della Forms chiamante.
DoCmd.OpenForm"Inserisci password",,,,Me.Name, acDialog
Nella Form(PWD) se non digiti la PWD corretta chiudi sia la
FormsChiamante
che la Form stessa:
Su Evento Verifica della PWD nella Form [Inserisci password]
If Me!TxtPWD<>"miapassword" then
   Docmd.Close acForm, Me.OpenArgs
   Docmd.Close acForm, Me.Name
End if
Ciao
@Alex

 End if
Che intendi per evento verifica?
E' un evento che trovo nelle proprietà della maschera o del pulsante
di comando?
Mi serve ancora il pulsante di comando?
Grazie tante e perdona la mia "ignoranza"...

 Grazie tante e perdona la mia "ignoranza"...
@Alex

Mi da errore di run-time '13'
Tipo non corrispondente
su questa riga:
DoCmd.OpenForm"Inserisci password",,,,Me.Name, acDialog
Da che può dipendere?

and...@sapsystem.it
 ha scritto:

Questo l'ho risolto così:
DoCmd.OpenForm"Inserisci password",,,,,acDialog,Me.Name
Però il tutto continua a non funzionare.
Credo che il problema stia quì:
If Me!TxtPWD<>"miapassword" then
Questo TxtPWD con cosa devo sostituirlo, col nome del controllo dove
inserisco il testo, cioè [Testo3]?

and...@sapsystem.it
 ha scritto:

Visto che Testo3 non significa nulla impara anche a chiamare i
controlli
in un modo conforme al significato.
Fossi in te quindi farei il contrario, rinominereiil controllo Testo3
in txtPWD.
Ciao
@Alex


Hai ragione Alex, ho rinominato il controllo.
Il problema è che non succede niente, nel senso che clicco sulla mia
maschera, si apre inserisci pasword, però una volta inserito il testo
e fatto click sul pulsante non succede niente...dove sbaglio?

and...@sapsystem.it
 ha scritto:

E' dura capire cosa hai sbagliato sia perchè sono 2 righe di codice in
tutto
sia perchè la cosa è realmente semplice.....!
Prova ad inviarmi il file con le 2 maschere zippato che vedo.
@Alex

Alex, c'è posta per te...