Password su un pulsante in maschera

di Anonimizzato13622 il
25 risposte
/
Anonimizzato13622
Utente anonimizzato
Nel mio db ho una maschera di menù principale con un pulsante che mi apre un altra maschera di sottomenù.
Desidererei che il pulsante in questione, mi aprisse la maschera dopo l'inserimento di una password.
Ho provato con "code case =.............." ma non ho ottenuto nulla.
Al clic del pulsante mi compare la maschera che dice: se case= "nome" e una nuova macro, o un nuovo gruppo di macro, assicurarsi di aver salvato o aver digitato correttamente il nome.
Ho inserito : Case= "Utente" else case Form.close end
Qualcuno può aiutarmi ?

25 Risposte

  • /
    Anonimizzato13622
    Utente anonimizzato
    In Evento, su clic ho inserito il codice sotto:
    Password = InputBox("Insert the Password", "abcdefgh")
    If Password = "abcdefgh" Then
    DoCmd.OpenForm "[SOTTOMENU]", acNormal, "", "", , acNormal
    ElseIf Password = "" Or IsNull(Password) = True Then
    Exit Sub
    ElseIf MsgBox("Password not valid" & Chr(13) & Chr(10) & "Try again", vbCritical + vbYesNo, "Errore") = vbYes Then
    GoTo Richiesta
    Else
    Exit Sub
    End If
    End Sub
    Al clic sul pulsante, non succede assolutamente nulla.
    Questo codice è giusto??
    C'è qualche altro sistema?
    grazie
  • /
    Anonimizzato13622
    Utente anonimizzato

    Giammi77 ha scritto:

    Per richiedere la password
    http://office.microsoft.com/it-it/access-help/funzione-inputbox-HA001228856.aspx
    Poi fai un if then else
    Gian
    Ho provato ma mi dice sempre che sono necessari separatori.
    Scusa la mia ignoranza, sicuramente sbaglio la sintassi.
    se mi fai un esempio che io riporto, risolvi il mio problema.
    La mia password è "PIPPO" e la maschera da aprire si chiama "Bellamaschera".
    Per favore dove devo inserirlo ?
    Io l'ho inserito su - Proprietà > dati > su clic > evento routine >[...] > visual basic code.
    E corretto?
  • /
    Anonimizzato13622
    Utente anonimizzato
    Scusami ti riporto quanto scritto in visual basic:
    Private Sub Comando38_Click()
    Richiesta:
    Password = InputBox(PromptInsertthePassword, "PassWord")
    If Password = "[PIPPO]" Then
    DoCmd.OpenForm "[Bellamaschera]", acNormal, "", "", , acNormal
    ElseIf Password = "" Or IsNull(Password) = True Then
    Exit Sub
    ElseIf MsgBox("Password not valid" & Chr(13) & Chr(10) & "Try again", vbCritical + vbYesNo, "Errore") = vbYes Then
    GoTo Richiesta
    Else
    Exit Sub
    End If
    End Sub
    Grazie per la risposta
    ciao
  • /
    Anonimizzato12666
    Utente anonimizzato
    Io farei così 
    Private Sub cmdApri_Click()
Dim pw As String
pw = InputBox("Password")
If pw = "PIPPO" Then
    DoCmd.OpenForm "frm2", , , , , acDialog
Else
    MsgBox "password errata"
End If
End Sub
  • /
    Anonimizzato13622
    Utente anonimizzato
    Va inserita come codice visual basic??
    grazie
  • /
    Anonimizzato12666
    Utente anonimizzato
    E certo ... Ma scusa il codice che avevi scritto sopra dove lo mettevi
    Gian
  • /
    Anonimizzato13622
    Utente anonimizzato
    Scusami, ma non mi apre la maschera "Sottomenu", anche se la specifico dove tu hai scritto "frm2"
    Private Sub Comando31_Click()
    Private Sub cmdApri_Click()
    Dim pw As String
    pw = InputBox("Password")
    If pw = "PIPPO" Then
    DoCmd.OpenForm "frm2", , , , , acDialog
    Else
    MsgBox "password errata"
    End If
    End Sub
    ciao
  • /
    Anonimizzato12666
    Utente anonimizzato
    E che messaggio di errore ti da ?
  • /
    Anonimizzato13622
    Utente anonimizzato
    Susa il ritardo,
    non mi da nessun messaggio di errore.
    Quando schiaccio il pulsante, è come se si attivasse, ma non mi lancia nulla.
    grazie
  • /
    Anonimizzato13935
    Utente anonimizzato
    Prova a controllare le proprietà della maschera richiamata... magari metti popup si e scelta obbligatoria si e vedi che succede
  • /
    Anonimizzato13622
    Utente anonimizzato
    Ho cambiato le proprietà come tu hai detto, ma non succede nulla, il pulsante è come se fosse attivo, ma non lancia la maschera.
    Scusami se insieme a te faccio una riflessione:
    il codice che io ho creato, è:
    Private Sub Comando31_Click()
    Private Sub cmdApri_Click()
    Dim pw As String
    pw = InputBox("Password")
    If pw = "PIPPO" Then
    DoCmd.OpenForm "SOTTOMENU", , , , , acDialog
    Else
    MsgBox "password errata"
    End If
    End Sub
    L'ho inserito nelle proprietà, cartella evento, evento routine, [....] il codice sopra elencato
    è possibile che devo agire diversamente??
    Se il codice è giusto, puoi essere così gentile da indicarmi passo passo cosa fare?
    Grazie
  • /
    Anonimizzato13935
    Utente anonimizzato
    Private Sub Comando31_Click()
    Private Sub cmdApri_Click()
    pensavo che fosse un refuso... uno dei 2 va cancellato... come si chiama il pulsante comando31 o cmdApri???
  • /
    Anonimizzato13622
    Utente anonimizzato
    Cmd apri......... l'ho eliminato.
    Il pulsante si chiama "comando 31" creato con la procedura guidata "apri Maschera"
    ciao grazie
Devi accedere o registrarti per scrivere nel forum
25 risposte