Password su un pulsante in maschera

di
ernestosup
il
25 risposte
E
ernestosup
Utente Attivo
Iscritto da
nov, 2013
Messaggi:
167

Password su un pulsante in maschera

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

  • E
    ernestosup
    Utente Attivo
    Iscritto da
    nov, 2013
    Messaggi:
    167

    Re: Password su un pulsante in maschera

    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
  • G
    Giammi77
    Pochi posts
    Iscritto da
    giu, 2013
    Messaggi:
    40

    Re: Password su un pulsante in maschera

    Per richiedere la password
    http://office.microsoft.com/it-it/access-help/funzione-inputbox-HA001228856.aspx
    Poi fai un if then else
    Gian
  • E
    ernestosup
    Utente Attivo
    Iscritto da
    nov, 2013
    Messaggi:
    167

    Re: Password su un pulsante in maschera

    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?
  • E
    ernestosup
    Utente Attivo
    Iscritto da
    nov, 2013
    Messaggi:
    167

    Re: Password su un pulsante in maschera

    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
  • G
    Giammi77
    Pochi posts
    Iscritto da
    giu, 2013
    Messaggi:
    40

    Re: Password su un pulsante in maschera

    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
  • E
    ernestosup
    Utente Attivo
    Iscritto da
    nov, 2013
    Messaggi:
    167

    Re: Password su un pulsante in maschera

    Va inserita come codice visual basic??
    grazie
  • G
    Giammi77
    Pochi posts
    Iscritto da
    giu, 2013
    Messaggi:
    40

    Re: Password su un pulsante in maschera

    E certo ... Ma scusa il codice che avevi scritto sopra dove lo mettevi
    Gian
  • E
    ernestosup
    Utente Attivo
    Iscritto da
    nov, 2013
    Messaggi:
    167

    Re: Password su un pulsante in maschera

    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
  • G
    Giammi77
    Pochi posts
    Iscritto da
    giu, 2013
    Messaggi:
    40

    Re: Password su un pulsante in maschera

    E che messaggio di errore ti da ?
  • E
    ernestosup
    Utente Attivo
    Iscritto da
    nov, 2013
    Messaggi:
    167

    Re: Password su un pulsante in maschera

    Susa il ritardo,
    non mi da nessun messaggio di errore.
    Quando schiaccio il pulsante, è come se si attivasse, ma non mi lancia nulla.
    grazie
  • A
    Angelo_Tbp
    Utente Attivo
    Iscritto da
    gen, 2014
    Messaggi:
    439

    Re: Password su un pulsante in maschera

    Prova a controllare le proprietà della maschera richiamata... magari metti popup si e scelta obbligatoria si e vedi che succede
  • E
    ernestosup
    Utente Attivo
    Iscritto da
    nov, 2013
    Messaggi:
    167

    Re: Password su un pulsante in maschera

    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
  • A
    Angelo_Tbp
    Utente Attivo
    Iscritto da
    gen, 2014
    Messaggi:
    439

    Re: Password su un pulsante in maschera

    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???
  • E
    ernestosup
    Utente Attivo
    Iscritto da
    nov, 2013
    Messaggi:
    167

    Re: Password su un pulsante in maschera

    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