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]Solicitar duas senhas distintas para desbloquear um formulário

    Compartilhe

    nikolas
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 13/10/2011

    [Resolvido]Solicitar duas senhas distintas para desbloquear um formulário

    Mensagem  nikolas em Ter 22 Ago 2017, 01:19

    Boa noite pessoal, estou com uma solicitação de pedir duas senhas distintas de dois usuários diferentes para tornar um formulário ativo.

    A princípio vou deixar o formulário bloqueado e quando clicar no botão desbloquear precisava que fosse solicitada a senha de um primeiro usuário,
    em seguida do segundo, de forma que não pode repetir a mesma duas vezes, e este usuário e senha vai ser uma tabela.

    Desde já agradeço pessoal.
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3412
    Registrado : 14/08/2013

    Re: [Resolvido]Solicitar duas senhas distintas para desbloquear um formulário

    Mensagem  FabioPaes em Qua 23 Ago 2017, 20:05

    Veja aqui o básico do que irá ter que fazer para selecionar um Usuario Aleatóriamente:
    Utilize o Int(rnd() * 10) + 1 'Ira mostrar numeros aleatorios entre 1 e 10. Pode repetir...
    Aplica o rdn() para o Usuario1, depois aplique para o Usuario2. COmpara se são os mesmo valores, se for, aplica novamente para o Usuario2. Quando usuario1 e usuario2 forem diferentes... Então ja tem os ID dos dois usuários, basta então solicitar suas senhas!

    Como termos os IDs dos dois usuário, basta fazer um Dlookup no campo Senha, tendo como critério os IDs do Usuario1 e Usuario2 para verificar se as senhas estão ou não corretas!

    Veja mais aqui:
    usandoaccess.com.br/tutoriais/sons-no-access-bingo.asp?id=1


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    nikolas
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 13/10/2011

    Re: [Resolvido]Solicitar duas senhas distintas para desbloquear um formulário

    Mensagem  nikolas em Qui 24 Ago 2017, 00:13

    blz, vou tentar aqui, obrigado.

    nikolas
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 13/10/2011

    Resolvido

    Mensagem  nikolas em Ter 05 Set 2017, 01:04

    Era mais ou menos isso, deu certo aqui. Obrigado
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3412
    Registrado : 14/08/2013

    Re: [Resolvido]Solicitar duas senhas distintas para desbloquear um formulário

    Mensagem  FabioPaes em Ter 05 Set 2017, 13:44

    Bacana amigo! Poste o Código utilizado... Assim ajudará os que tiverem a mesma duvida!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    nikolas
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 13/10/2011

    Utilizado

    Mensagem  nikolas em Qui 07 Set 2017, 13:43

    Bom, deixei uma senha só mesmo que busca da tabela de usuários logados e coloquei no evento ao abrir de cada formulário:

    Private Sub Form_Open(Cancel As Integer)

    If [Forms]![Dados do Login]![Contratos] = "S" Then
    Else
    MsgBox "Acesso Negado", vbCritical, "Atenção"
    Cancel = True
    End If

    End Sub

    No caso tenho uma tabela de permissões com campos referente a cada form para marcar S ou N se o usuário vai poder utilizar,
    nesse exemplo o formuário é Contratos.

      Data/hora atual: Sab 18 Nov 2017, 08:08