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


3 participantes

    [Resolvido]Abrir formulário pop-up com senha

    julianovv
    julianovv
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 685
    Registrado : 14/12/2010

    [Resolvido]Abrir formulário pop-up com senha Empty [Resolvido]Abrir formulário pop-up com senha

    Mensagem  julianovv 5/4/2012, 18:08

    Tenho um formulário pop com um subform em folha de dados e preciso abri-lo somente com senha.
    No cadastro de ordens de serviço (OS), quando estão marcadas como "finalizada" (caixa de combinação "Status"), elas não aparecem mais para não serem mais editadas.
    Criei o formulário pop oculto com todas as OS finalizadas abertas para edição. Para abri-lo é preciso conhecer a tecla de atalho (Alt + Z) para abrir o formulário e nesse botão (que é invisível) preciso da senha.
    Alguém tem o código para abrir o formulário pop a partir de uma senha?

    Obrigado!
    Wink
    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    [Resolvido]Abrir formulário pop-up com senha Empty Re: [Resolvido]Abrir formulário pop-up com senha

    Mensagem  Leandro 5/4/2012, 18:42

    Será que serve?

    Private Sub Comando30_Click()
    Dim MyValue As Integer
    Dim Codigo As Integer
    Codigo = 1234
    MyValue = InputBox("Qual é a senha?")
    If MyValue = Codigo Then
    DoCmd.OpenReport "ConsQuantitativoLocalidades2", acViewPreview
    Else
    MsgBox ("Você informou a Senha incorreta!"), vbCritical, "Senha Errada"
    End If
    End Sub

    julianovv
    julianovv
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 685
    Registrado : 14/12/2010

    [Resolvido]Abrir formulário pop-up com senha Empty Re: Abrir formulário pop-up com senha

    Mensagem  julianovv 5/4/2012, 19:13

    Obrigado mas não deu certo.
    A sugestão é interessante. Pensei em algo como o usuário que for coordenador, ter uma senha de coordenador. Ele digitaria em um formulário pop-up a senha e se acertasse, o formulário abriria.

    Rolling Eyes
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009

    [Resolvido]Abrir formulário pop-up com senha Empty Re: [Resolvido]Abrir formulário pop-up com senha

    Mensagem  Alexandre Neves 5/4/2012, 19:19

    Boa tarde,

    Coloque

    Private Sub Form_Open(Cancel As Integer)
    If InputBox("Qual é a senha?")<>"1234" Then
    MsgBox "Senha errada."
    DoCmd.Close
    End If
    End Sub
    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    [Resolvido]Abrir formulário pop-up com senha Empty Re: [Resolvido]Abrir formulário pop-up com senha

    Mensagem  Leandro 5/4/2012, 19:45

    Você tem um grupo de usuários no Bd?

    É um montado em tabelas e formulários ou é aquele do assistente?

    Se for do assistente você pode usar o mesmo princípio demonstrado acima, mas se referindo ao CurrentUser().

    Com a Select Case e você como contrutor do BD terá conhecimento de todos os usuários e senhas e pode fazer a condicional para usuários definidos.

    Ex:

    Private Sub Botao_Click()

    Dim MyValue As Integer
    Dim Senha As Integer
    Select Case CurrentUser()
    Case Coordenador1
    Senha = 1234
    Case Coordenador2
    Senha = 4321

    MyValue = InputBox("Qual é a senha?")

    If MyValue = Senha Then

    DoCmd.OpenReport "SeuForm", acViewPreview

    Else

    MsgBox ("Você informou a Senha incorreta!"), vbCritical, "Senha Errada"

    End Select

    End If

    End Sub

    Acho que precisa organizar o código.

    julianovv
    julianovv
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 685
    Registrado : 14/12/2010

    [Resolvido]Abrir formulário pop-up com senha Empty Re: Abrir formulário pop-up com senha

    Mensagem  julianovv 5/4/2012, 21:04

    O sistema é um controle de ordens de serviço (OS). Nele está uma tabela (Tbl_Projetistas) com todos os dados de cada projetista que inclui um campo (password) onde ele insere a senha. Ela não é inventada, o número é criado aleatoriamente. No formulário de Projetistas (ficha geral deles onde edita ou adiciona novo nome) tem um botão que abre um form pop-up e insere a senha.
    Essa senha é usada para abrir o apontamento de horas na rede. Não existe grupos na rede, mas dentro do próprio sistema cada um tem sua própria senha.
    Eu tinha pensado em criar outro campo (password_co) para inserir uma senha para cada coordenador. Seria uma cópia adaptada desse formulário pop anterior mas achei mais prático jogar uma senha no próprio formulário oculto.
    Segue um exemplo da caixa de inserir senha que está no formulário de projetistas.

    Espero que eu tenha sido claro.
    Wink
    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    [Resolvido]Abrir formulário pop-up com senha Empty Re: [Resolvido]Abrir formulário pop-up com senha

    Mensagem  Leandro 5/4/2012, 21:19

    Foi bem claro!

    Já que estão dentro de uma tabela te dou a idéia de usar a DlookUp no clique do botão e você definir que alguns projetistas tenham função de coordenador, assim quando clicar no botão e ele fizer a procura e se constar função de coordenador ele abre o objeto, senão não.



    O que acha?

    julianovv
    julianovv
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 685
    Registrado : 14/12/2010

    [Resolvido]Abrir formulário pop-up com senha Empty Re: Abrir formulário pop-up com senha

    Mensagem  julianovv 5/4/2012, 21:34

    Sim, já pensei nisso mas o coordenador (chefe do setor) possui seus sub-coordenadores ou assistentes. Não tenho o número exato de quantos são por chefe mas sei que a edição de uma OS finalizada só o chefe do setor pode editar e, sendo assim, só eles podem ter a senha de coordenador geral.
    O melhor e mais prático é jogar uma senha no formulário. E eu, como administrador do sistema faria a troca da senha na hora que o patrão (dono da empresa) quiser...rsrs

    Wink
    avatar
    Convidado
    Convidado


    [Resolvido]Abrir formulário pop-up com senha Empty Re: [Resolvido]Abrir formulário pop-up com senha

    Mensagem  Convidado 6/4/2012, 03:31

    Boa noite Juliano... Veja se isso que procura. Senha 123

    http://speedy.sh/MKGGV/Juliano.rar
    julianovv
    julianovv
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 685
    Registrado : 14/12/2010

    [Resolvido]Abrir formulário pop-up com senha Empty Re: Abrir formulário pop-up com senha

    Mensagem  julianovv 6/4/2012, 16:09

    Bom dia! Pode reenviar o arquivo na versão do Access 2003?
    Obrigado!

    Wink
    avatar
    Convidado
    Convidado


    [Resolvido]Abrir formulário pop-up com senha Empty Re: [Resolvido]Abrir formulário pop-up com senha

    Mensagem  Convidado 6/4/2012, 20:43

    Conforme solicitado, teste e retorne...
    Senha 123
    http://speedy.sh/jMcrH/Juliano2003.rar
    julianovv
    julianovv
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 685
    Registrado : 14/12/2010

    [Resolvido]Abrir formulário pop-up com senha Empty Re: Abrir formulário pop-up com senha

    Mensagem  julianovv 9/4/2012, 13:31

    Bom dia. Desculpa a demora na resposta. Feriadão...eu esqueço..rsrs
    Obrigado pelo arquivo. Fiz o teste e deu certinho.
    Só uma pergunta: a senha eu posso colocar qualquer uma com letras ou símbolos ou tem alguma limitação?

    Wink
    avatar
    Convidado
    Convidado


    [Resolvido]Abrir formulário pop-up com senha Empty Re: [Resolvido]Abrir formulário pop-up com senha

    Mensagem  Convidado 9/4/2012, 14:19

    Bom dia Juliano, tudo tranquilo....
    Sim, pode usar qualquer combinação, letras maiusculas com minusculas, simbolos todos, enfim a salada que preferir....
    julianovv
    julianovv
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 685
    Registrado : 14/12/2010

    [Resolvido]Abrir formulário pop-up com senha Empty Res: [Resolvido]Abrir formulário pop-up com senha

    Mensagem  julianovv 9/4/2012, 17:56

    Valeu! Obrigado!
    Deu certo!

    Wink

    Conteúdo patrocinado


    [Resolvido]Abrir formulário pop-up com senha Empty Re: [Resolvido]Abrir formulário pop-up com senha

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 13:21