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

    Função If Then

    Compartilhe

    marcelo3092
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 79
    Registrado : 19/08/2010

    Função If Then

    Mensagem  marcelo3092 em Qui 27 Jul 2017, 01:51

    Ola Pessoal mais uma vez estou aq para uma duvida referente a estas função de validade do vba implementei o código do amigo plinio mabesi login seguro que codifica a senha do usuario na tabela muito show o problema foi nas permissões pois o código que usava para valida o usuario atual pegava a senha verdadeira e usava com o login seguro e preciso converte a senha digitada pela criptografada exemplo se vc tem uma função que so o admin pode liberar. no meu caso o produto x so pode 5% de desconto se passar disso pede a senha do admin. Com muito custo consegui adapta o código no exemplo do mestre avelino o Imputbox personalizado ficando assim.

    Dim x As String
    Dim Produto1
    Produto1 = DLookup("[Limite_Desconto]", "Produto", "[Cód_Produto] =" & [Combinação3].[Column](1))
    If Desconto > Produto1 Then
    x = InputBox2("Entre com a Senha do Administrador.", "SYS VENDAS.", , "password")
    argSenha = getMD5(x)
    If StrPtr(x) = 0 Then
    Cancel = True
    Else
    If DCount("*", "Usuario", "DESCONTOPRODUTO=-1 AND senha = '" & argSenha & "'") = 0 Then
    MsgBox "Senha não confere...", vbInformation, "Aviso"
    Cancel = True
    End If
    End If
    End If

    Que funcionou muito bem.

    Agora vem minha duvida referente a função, se puderem me ajuda
    1º validação ele verifica se o usuario atual tem permissão.
    If DLookup("[CLIENTENOVO]", "usuario", "[login] = txtUsuarioAtual") Then

    2º Pergunta caso o usuario teja a permissão
    If MsgBox("Deseja Adicionar Novo Cliente.", vbYesNo, "SYS VENDAS.") = vbYes Then
    DoCmd.GoToRecord , , acNewRec
    Me.Empresa = [Forms]![FPrincipal]![Cód_Empresa]
    Else
    Cancel = True
    Me.Undo
    End If

    3º se ele não tiver pede a senha do admin atraves da imputbox.

    Se puderem me ajuda n sei como monta essa rotina de validação.

    Desde ja agradeço.

    marcelo3092
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 79
    Registrado : 19/08/2010

    Função If Then

    Mensagem  marcelo3092 em Qui 27 Jul 2017, 16:38

    Bom dia amigos consegui contornar um pouco porem a pergunta se deseja adicionar novo registro n consegui adicionar se alguem tiver uma ideia e pude me ajudar.

    Private Sub BTNOVO_Click()
    On Error GoTo Err_BTNOVO_Click

    Dim x As String

    If DLookup("[CLIENTENOVO]", "Usuario", "[login] = txtUsuarioAtual") Then
    DoCmd.GoToRecord , , acNewRec
    Else
    x = InputBox2("Entre com a Senha do Administrador.", "SYS VENDAS.", , "password")
    argSenha = getMD5(x)
    If DCount("*", "Usuario", "DESCONTOPRODUTO=-1 AND senha = '" & argSenha & "'") = 0 Then
    MsgBox "Senha não confere...", vbInformation, "Aviso"
    Cancel = True
    Else
    DoCmd.GoToRecord , , acNewRec
    End If
    End If

    Exit_BTNOVO_Click:
    Exit Sub
    Err_BTNOVO_Click:

    Resume Exit_BTNOVO_Click

    End Sub

      Data/hora atual: Qui 21 Set 2017, 02:36