MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


2 participantes

    Referencia Admin

    marcelo3092
    marcelo3092
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    Referencia Admin Empty Referencia Admin

    Mensagem  marcelo3092 3/6/2016, 18:47

    Boa tarde a todos espero que me ajudem tenho uma duvida aq vou explicar

    tenho um formulario chamado produto dentro dele tem um botão para excluir registro nesse botão ao clicar ele aparece pedindo a senha do admin que tenho um formulario cadastro de funcionários que cadastra login e senha porem um usuario tem que ser o admin que so ele tem o direito de alterar ou excluir registro. ai que vem minha duvida adicionei um campo no cadastro de funcionários uma caixa de seleção com o nome admin para reparar o administrador do sistema. porem não consigo referencia a caixa de seleção no botão como sim ele e admin segue o código abaixo que estou usando

    Private Sub Comando20_Click()
    Dim y As String
    Dim strForm As String
    Dim strRet As String
    y = InputBoxDK("Digite a Senha!!!.", "Autorização do Administrador")
    If y = DLookup("Senha", "Funcionários") Then
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
    'este valor entre parenteses é o nome do formulário protegido
    Else
    MsgBox "Senha incorreta", vbCritical, "Senha incorreta"
    'aqui a mensagem de senha incorreta. Pode alterar
    End If
    End Sub

    Funciona perfeitamento porem ele vai pega a senha de qualquer funcionário cadastrado, sei que podia criar um formulario separado para os usuarios mais se puderem me ajudar agradeço.
    rubenscouto
    rubenscouto
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 679
    Registrado : 02/10/2011

    Referencia Admin Empty Re: Referencia Admin

    Mensagem  rubenscouto 3/6/2016, 22:41

    Dim SenhaAdmin as String
    SenhaAdmin =DLookup("Senha", "Funcionários"; "SeuCampoUsuariodaTabelaFuncionario" = 'Admin'" )



    y = InputBoxDK("Digite a Senha!!!.", "Autorização do Administrador")
    If y = SenhaAdmin Then
    Executa Comando
    else
    msgbox ("Senha Errada"

    É mais ou menos por ai.

      Data/hora atual: 29/3/2024, 07:41