Password su un pulsante in maschera

di
ernestosup
il
25 risposte

25 Risposte - Pagina 2

  • A
    Angelo_Tbp
    Utente Attivo
    Iscritto da
    gen, 2014
    Messaggi:
    439

    Re: Password su un pulsante in maschera

    Il codice sembrerebbe esatto... prova a fare cosi:
    crea un pulsante nella maschera (ovviamente una maschera diversa da "SOTTOMENU").
    anzichè seguire la procedura guidata fai annulla e poi con il tasto destro del mouse sul pulsante cerca "genera evento" e poi "generatore di codice" infine incolla il codice sotto all'interno della routine (non cancellare nulla...)

    assicurati che il nome della maschera richiamata sia effettivamente SOTTOMENU
    
Dim pw As String
pw = InputBox("Password")
If pw = "PIPPO" Then
   DoCmd.OpenForm "SOTTOMENU", , , , , acDialog
Else
   MsgBox "password errata"
End If
  • E
    ernestosup
    Utente Attivo
    Iscritto da
    nov, 2013
    Messaggi:
    167

    Re: Password su un pulsante in maschera

    Commetterò sicuramente qualche errore banale.
    anche questa volta non funziona.
    la cosa più strana è il fatto che non mi compare nemmeno la maschera per inserire la password, è proprio come se il codice non ci fosse.
    Comunque grazie
  • A
    Angelo_Tbp
    Utente Attivo
    Iscritto da
    gen, 2014
    Messaggi:
    439

    Re: Password su un pulsante in maschera

    Clicca con il tasto destro sul pilsante vai su proprietà, scheda tutte e postami il "nome elemento"
    poi fai click con il destro sul suddetto pulsante scegli "Genera evento..." e poi codice... ti dovrebbe andare nella parte che riguarda il pulsante... postami tutto il codice che hai inserito... e vediamo se riusciamo a risolvere
  • E
    ernestosup
    Utente Attivo
    Iscritto da
    nov, 2013
    Messaggi:
    167

    Re: Password su un pulsante in maschera

    Nome elemento :Comando31

    Private Sub Comando31_Click()
    Dim pw As String
    pw = InputBox("Password")
    If pw = "PIPPO" Then
    DoCmd.OpenForm "SOTTOMENU", , , , , acDialog
    Else
    MsgBox "password errata"
    End If
    End Sub
    grazie
  • C
    Chiaro
    Pochi posts
    Iscritto da
    nov, 2013
    Messaggi:
    12

    Re: Password su un pulsante in maschera

    Scusate se mi intrometto ma suggerirei al posto del Inputbox
    di aprire una maschera in popup con un'unica casella di testo che ha come Maschera di input "password". In questo modo quando si digita si vedono asterischi che impediscono la visione di quello che si sta scrivendo da occhi indiscreti.
  • E
    ernestosup
    Utente Attivo
    Iscritto da
    nov, 2013
    Messaggi:
    167

    Re: Password su un pulsante in maschera

    Potresti spiegarmi più chiaramente come operare?
    grazie
  • C
    Chiaro
    Pochi posts
    Iscritto da
    nov, 2013
    Messaggi:
    12

    Re: Password su un pulsante in maschera

    Devi procedere in questo modo:
    Innanzitutto crea una maschera che potresti chiamare "MsPassword" con modalità PopUp e a Scelta Obbligatoria.
    Inserisci una Casella di Testo chiamata per es."Tpsw"
    Nelle Proprietà di questa casella sezione Dati, proprietà "Maschera di input", scegliere "Password"
    Poi nella maschera creata potresti aggiungere un pulsante di nome "CmdPsw"
    e all'evento On Clik potersti inserire il listato seguente:
    If Tpsw ="(quì inserisci la password desiderata)" then
    DoCmd.Close: DoCmd.OpenForm "(quì metti il nome della maschera che vuoi aprire in caso affermativo"
    Else
    MsgBox "Password Errata !":Tpsw="":DoCmd.Gotocontrol "Tpsw"
    End If
    Ciao, spero di esserti stato di aiuto.
  • E
    ernestosup
    Utente Attivo
    Iscritto da
    nov, 2013
    Messaggi:
    167

    Re: Password su un pulsante in maschera

    Ho proceduto come tu mi hai suggerito, ma purtroppo non succede nulla.
    Ovvero, creata la maschera e inserito il pulsante, la maschera viene visualizzata, inserisco la password, schiaccio il pulsante, ma non mi apre la maschera da me desiderata.
    Sul pulsante CmdPsw evento on clic io ho : routine evento, [...] sotto [...] ho digitato il tuo suggerimento.
    Ho sbagliato qualcosa?
    grazie
  • E
    ernestosup
    Utente Attivo
    Iscritto da
    nov, 2013
    Messaggi:
    167

    Re: Password su un pulsante in maschera

    Il codice corretto è quello che mi ha suggerito Angelo_Tbp
    Private Sub Comando31_Click()
    Dim pw As String
    pw = InputBox("Password")
    If pw = "PIPPO" Then
    DoCmd.OpenForm "SOTTOMENU", , , , , acDialog
    Else
    MsgBox "password errata"
    End If
    End Sub
    Quando lo usate ATTENTI ad avere i contenuti attivati.
    Grazie a tutti
  • C
    Chiaro
    Pochi posts
    Iscritto da
    nov, 2013
    Messaggi:
    12

    Re: Password su un pulsante in maschera

    Ernesto, non capisco perchè non ti funziona!
    Sei riuscito ad ottenere almeno gli asterischi al posto delle lettere?
    Hai digitato bene il nome della maschera che vuoi aprire su clic del pulsante ?
    Se la maschera che vuoi aprire si chiama "pippo" devi scrivere:
    DoCmd.OnenForm "pippo"
    Fammi sapere.
    Ciao
  • E
    ernestosup
    Utente Attivo
    Iscritto da
    nov, 2013
    Messaggi:
    167

    Re: Password su un pulsante in maschera

    Forse ti è sfuggito il messaggio precedente.
    Io ho risolto con il codice, ma funziona bene anche il tuo suggerimento
    che nasconde la digitazione delle password.
    ciao grazie del tuo aiuto
    ernesto
Devi accedere o registrarti per scrivere nel forum
25 risposte