MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    problemas com alterações em código de permissão

    Compartilhe

    bernardweger
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 101
    Registrado : 22/12/2014

    problemas com alterações em código de permissão

    Mensagem  bernardweger em Ter 04 Ago 2015, 14:25

    Olá pessoal, bom dia.

    estou com um pequeno problema para executar um código Sad
    já tentei, tentei, más não consigo, será que alguem poderia me dar uma luz?

    Private Sub CmdObra_Click()
    If DLookup("[cond3]", "Tbl_Usuário", "[login] = txtUsuarioAtual") Then
    DoCmd.OpenForm "Frm_cadobras"
    Else

    MsgBox "Acesso Negado", _
    vbOKOnly + vbCritical, "Permissão 3"
    End If

    este código ele verifica o usuário que está logado, caso esse usuário não tenha a permissão ele não abre o Frm, eu gostaria de mudar um pouquinho esse código, más não consegui...

    eu gostaria que quando um campo chamado txtmenor fosse maior que 5000 ele verificasse o usuário se for o usuário com a Cond3 ele muda o campo TxtEfetuada para verdadeiro (true) se não ele manda uma msgbox que informa que ele não tem autorização para isso.
    caso o valor seja menor que 5000 o usuário com a cond2 possa mudar o campo txtefetuada para (true)

    alguem poderia me dar uma luz de como posso fazer isso? Agradeço a todos desde já e fiquem com Deus!

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2503
    Registrado : 29/06/2012

    Re: problemas com alterações em código de permissão

    Mensagem  Noobezinho em Sex 28 Ago 2015, 13:23

    Bernard

    Vou tentar te ajudar

    Aqui:

    If DLookup("[cond3]", "Tbl_Usuário", "[login] = txtUsuarioAtual") Then

    Acredito que Cond3 seja o nome de um campo, o que existem nesse campo?
    Agora se for dado, cond3, qual é o nome do campo que está esse dado?

    Acertando essa linha, podemos colocar o código no evento Ao abrir do formulário.

    [ ] 's


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

      Data/hora atual: Qua 07 Dez 2016, 18:17