MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Senha para Botão de Formulário

    Compartilhe

    Nardao
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 102
    Registrado : 06/12/2010

    Senha para Botão de Formulário

    Mensagem  Nardao em Seg 28 Fev 2011, 13:09

    Bom dia a todos,
    Eu precisava colocar uma senha num determinado botão. O problema é que quando o botão é criado, ele já cria um evento (pelo assistente) "ao clicar" para abrir um formulário especifico. O problema é que não quero que os usuarios abram este formulário, apenas o supervisor e com senha. E este formulário precisa ficar nesta máquina, pois é nela que são feitos os backups do aplicativo. Eu tentei colocar um código que eu peguei aqui mesmo no forum, porém ele pede a senha normalmente, mais se eu digitar errado, e dar ok ele fecha a caixa da senha e o formulario está aberto ´pdendo ser usado normalmente, devido ao evento que descrevi acima.
    Espero ter sido claro na esplanação, e que vocês possam mais uma vez me ajudar... Desde já agradaço a todos.
    avatar
    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7139
    Registrado : 11/05/2010

    Re: [Resolvido]Senha para Botão de Formulário

    Mensagem  vieirasoft em Seg 28 Fev 2011, 13:58

    Qual o código que tem no botão? Esse botão destina-se a abrir própriamente o quÊ?
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9703
    Registrado : 04/11/2009

    Re: [Resolvido]Senha para Botão de Formulário

    Mensagem  JPaulo em Seg 28 Fev 2011, 14:00

    [Você precisa estar registrado e conectado para ver este link.]

    Senha= jpaulo


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7139
    Registrado : 11/05/2010

    Re: [Resolvido]Senha para Botão de Formulário

    Mensagem  vieirasoft em Seg 28 Fev 2011, 14:16

    O Exemplo do Mestre é perfeito, mas se pretender faze-lo de uma forma simples e através do botão de comando, basta digitar no evento click:

    Static Tentativas As Integer
    Dim Msg, Style, Title
    Msg = "A password não condiz"
    Style = vbCritical
    Title = "Aviso"
    Tentativas = Tentativas + 1
    If pass = "xxxx" Then
    DoCmd.OpenForm "xxxxxxxx"
    Else
    Msg=MsgBox(Msg,Style,Title)
    If Tentativas = 3 Then DoCmd.Quit
    End If

    Nardao
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 102
    Registrado : 06/12/2010

    Re: [Resolvido]Senha para Botão de Formulário

    Mensagem  Nardao em Seg 28 Fev 2011, 14:59

    Obrigado, mais uma vez a todos... Testei o exemplo e o código e deu certo... ERa exatamente o que eu precisava e estava com dificuldade para implantar. Mais uma vez vocês me ajudaram bastante, pois onde estou a implantar este sistema que estou fazendo é necessário muita segurança, e esta solução me quebrou um galho... Muito obrigado a todos...
    Vocês são demaiiiiiis.....
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9703
    Registrado : 04/11/2009

    Re: [Resolvido]Senha para Botão de Formulário

    Mensagem  JPaulo em Seg 28 Fev 2011, 15:35

    A imaginação vai até onde nós proprios quisermos.

    Aproveitando ainda o tópico:

    Senha= JPaulo, não é a mesma coisa que Senha= jpaulo

    Então vamos fazer um sensitive case, com a comparação de binário em maiusculas e minusculas.


    Private Sub SeuBotão_Click()
    'By JPaulo ® Maximo Access
    Dim strResposta As String
    strResposta = InputBox("Entre com a senha...", "Senha", "", 2000, 1000)
    If StrComp(strResposta, "JPaulo", vbBinaryCompare) = 0 Then
    DoCmd.Close
    DoCmd.OpenForm "SeuSegundoFormulario"
    Else
    MsgBox "Senha incorreta...", vbCritical
    DoCmd.CancelEvent
    End If
    End Sub




    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    erilioaraujo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 40
    Registrado : 18/01/2012

    Re: [Resolvido]Senha para Botão de Formulário

    Mensagem  erilioaraujo em Seg 14 Jul 2014, 20:56

    Este exemplo do amigo jpaulo é ótimo. No entanto preciso adaptar este este código ai abaixo.



    este é o que desabillita a tecla e funciona.

    Private Sub Comando102_Click()
    SetProperties "AllowBypassKey", dbBoolean, False
    MsgBox "The Bypass Key was disabled." & vbCrLf & vbLf & _
    "The Shift key will NOT allow the users to bypass the startup options the next time the database is opened.", _
    vbInformation
    End Sub


    Como colocar uma senha para que este mesmo código possa funcionar como estava e pedir uma senha para ser executado

    Aguardo. Abraços.

    erilioaraujo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 40
    Registrado : 18/01/2012

    resolvido colocar senha em botão

    Mensagem  erilioaraujo em Ter 15 Jul 2014, 19:27

    O exemplo do nosso amigo JPaulo foi legal.

    colei  código no corpo da função e retirei os comando DoCmd.

    Problema resolvido. Abre a função diretamente

    So falta agora colocar mascara na senha pois esta sendo visualizada.
    avatar
    PauloMaia
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 97
    Registrado : 02/05/2014

    duvida

    Mensagem  PauloMaia em Ter 14 Mar 2017, 13:50

    Private Sub SeuBotão_Click()
    'By JPaulo ® Maximo Access
    Dim strResposta As String
    strResposta = InputBox("Entre com a senha...", "Senha", "", 2000, 1000)
    If StrComp(strResposta, "JPaulo", vbBinaryCompare) = 0 Then
    DoCmd.Close
    DoCmd.OpenForm "SeuSegundoFormulario"
    Else
    MsgBox "Senha incorreta...", vbCritical
    DoCmd.CancelEvent
    End If
    End Sub


    Esse codigo do JPaulo é muito Bom
    Mas quando eu clico em "cancelar" , "ok" ou o "X" de fechar aparece mensagem de senha incorreta
    Tambem quando não tem nada no campo senha e a gente aperta qualquer uma das opções citadas acima
    ele mostra mensagem de senha incorreta.
    Porem queria saber se tem como anular isso, e a mensagem de senha incorreta aparecer somente
    quando realmente a senha estiver errada.
    E o campo senha mostra a senha enquanto a gente digita , tem como fazer aparecer ****** no lugar
    daquilo que a gente esta digitando.
    E as mensagem de senha incorreta e de entre com a senha aparecerem centralizadas na tela.

    Grato. Att. Paulo

    Dougtha91
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 19/05/2017

    Ajuda JPaulo

    Mensagem  Dougtha91 em Seg 04 Set 2017, 15:31

    Eu adaptei o código do JPaulo, porém ele não segue a segunda instrução "cassia"

    Private Sub Comando794_Click()
    Dim strResposta As String

    If Forms![Menu Principal]!User = "Karine" Then
    strResposta = InputBox("Entre com a senha...", "Senha", "", 2000, 1000)
    If StrComp(strResposta, "teste", vbBinaryCompare) = 0 Then
    DoCmd.OpenForm "frmExemplo"

    ElseIf Forms![Menu Principal]!User = "Cassia" Then
    strResposta = InputBox("Entre com a senha...", "Senha", "", 2000, 1000)
    If StrComp(strResposta, "teste2", vbBinaryCompare) = 0 Then
    'DoCmd.Close
    DoCmd.OpenForm "frmExemplo"
    End If

    Else
    MsgBox "Senha incorreta...", vbCritical
    DoCmd.CancelEvent

    End If
    End If
    End Sub
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9703
    Registrado : 04/11/2009

    Re: [Resolvido]Senha para Botão de Formulário

    Mensagem  JPaulo em Seg 04 Set 2017, 17:34

    Código:
    Private Sub SeuBotao_Click()
    'By JPaulo ® Maximo Access
    Dim strResposta As String

    'se o user for a Karine, pede senha
    If Me.user = "Karine" Then
    strResposta = InputBox("Entre com a senha...", "Senha", "", 2000, 1000)
    'se cancelar a inputbox, fecha sem erro
        If StrPtr(strResposta) = 0 Then
        Exit Sub
        End If
    'valida a senha á Karine
        If StrComp(strResposta, "teste", vbBinaryCompare) = 0 Then
    'se acertar, abre o form1
        DoCmd.OpenForm "form1"
        Exit Sub
        Else
    'se não acertar, dá msg de erro
        MsgBox "Senha incorreta...", vbCritical
        DoCmd.CancelEvent
        Exit Sub
        End If
    End If

    'se o user for a Cassia, pede senha
    If Me.user = "Cassia" Then
    strResposta = InputBox("Entre com a senha...", "Senha", "", 2000, 1000)
    'se cancelar a inputbox, fecha sem erro
        If StrPtr(strResposta) = 0 Then
        Exit Sub
        End If
    'valida a senha á Cassia
    If StrComp(strResposta, "teste2", vbBinaryCompare) = 0 Then
    'se acertar, abre o form2
    DoCmd.OpenForm "form2"
    Exit Sub
        Else
    'se não acertar, dá msg de erro
        MsgBox "Senha incorreta...", vbCritical
        DoCmd.CancelEvent
        Exit Sub
    End If
    End If


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Dougtha91
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 19/05/2017

    Ajuda JPaulo

    Mensagem  Dougtha91 em Seg 04 Set 2017, 21:04

    Consegui, muito obrigado JPaulo
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9703
    Registrado : 04/11/2009

    Re: [Resolvido]Senha para Botão de Formulário

    Mensagem  JPaulo em Ter 05 Set 2017, 13:12

    Fico feliz.

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Dougtha91
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 19/05/2017

    Ajuda JPaulo

    Mensagem  Dougtha91 em Ter 05 Set 2017, 14:12

    JPaulo, me da mais uma ajuda, tenho um formulário com 400 registros como faço para sair do formulario exemplo no registro 320/400 e ao abri-lo novamente ele abra no registro 320/400 que foi o ultimo em que parei?
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9703
    Registrado : 04/11/2009

    Re: [Resolvido]Senha para Botão de Formulário

    Mensagem  JPaulo em Ter 05 Set 2017, 14:15

    Nova duvida, novo tópico.

    Este está Resolvido.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Dougtha91
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 19/05/2017

    Ajuda JPaulo

    Mensagem  Dougtha91 em Ter 05 Set 2017, 15:04

    Certo, criei me ajuda lá?
    [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Ter 21 Nov 2017, 17:39