Password su un pulsante in maschera

di Anonimizzato13622 il
25 risposte

25 Risposte - Pagina 2

  • /
    Anonimizzato13935
    Utente anonimizzato
    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
  • /
    Anonimizzato13622
    Utente anonimizzato
    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
  • /
    Anonimizzato13935
    Utente anonimizzato
    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
  • /
    Anonimizzato13622
    Utente anonimizzato
    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
  • /
    Anonimizzato13407
    Utente anonimizzato
    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.
  • /
    Anonimizzato13622
    Utente anonimizzato
    Potresti spiegarmi più chiaramente come operare?
    grazie
  • /
    Anonimizzato13407
    Utente anonimizzato
    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.
  • /
    Anonimizzato13622
    Utente anonimizzato
    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
  • /
    Anonimizzato13622
    Utente anonimizzato
    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
  • /
    Anonimizzato13407
    Utente anonimizzato
    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
  • /
    Anonimizzato13622
    Utente anonimizzato
    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