MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Abre form com Senha

    avatar
    m_sousa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 51
    Registrado : 06/11/2020

    [Resolvido]Abre form com Senha Empty [Resolvido]Abre form com Senha

    Mensagem  m_sousa em 18/11/2020, 20:53

    Olá

    Preciso de abrir um form através de uma password tenho dois forms um botão que ao clicar abriria o form 2 mas pediria a password.

    Código:
    Private Sub Form_Open(Cancel As Integer)
    Dim PassWord As String
    PassWord = InputBox("Enter Password")
    Cancel = (PassWord <> "Sousa" And PassWord <> "Sousa")
    If Cancel Then MsgBox ("Password ERRADA !")
    End Sub

    Para além disso da um erro 2501...
    Deixo também um exemplo em anexo !!!

    Obrigado

    Um bem hajam !
    Anexos
    [Resolvido]Abre form com Senha Attachmentpassword.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (39 Kb) Baixado 5 vez(es)
    annissima
    annissima
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 146
    Registrado : 24/10/2017

    [Resolvido]Abre form com Senha Empty Re: [Resolvido]Abre form com Senha

    Mensagem  annissima em 18/11/2020, 21:02

    Coloque esse codigo no botão que clica para abrir o segundo form

    Código:
    Dim strResposta As String
    strResposta = InputBox("Digite a Senha", "Senha Requerida", "", 1000, 1000)
    If StrComp(strResposta, "Sousa", vbBinaryCompare) = 0 Then
    DoCmd.Close
                            DoCmd.OpenForm "frm_2", acNormal
    Else
    MsgBox "Senha Divergente", vbCritical
    DoCmd.CancelEvent
    End If

    E tire o seu código no evento open do form 2

    m_sousa gosta desta mensagem

    avatar
    m_sousa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 51
    Registrado : 06/11/2020

    [Resolvido]Abre form com Senha Empty Re: [Resolvido]Abre form com Senha

    Mensagem  m_sousa em 18/11/2020, 22:24

    Olá

    Obrigado.

    Ficou resolvido... Obrigado

      Data/hora atual: 3/12/2020, 20:33