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

    Código para botão com função de destravar com senha o formulário

    avatar
    auegantz
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 50
    Registrado : 11/09/2016

    Código para botão com função de destravar com senha o formulário Empty Código para botão com função de destravar com senha o formulário

    Mensagem  auegantz 10/4/2017, 03:32

    Boa tarde a todos, estou com duas dúvidas e gostaria de ajuda se possível
    1 - A primeira dúvida é - Tenho um formulário e nele coloquei dois botões, sendo que o primeiro tem a função de bloquear o BD e os subformulários impedindo a edições, e o segundo botão tem a função de destravar o BD permitindo edições, contudo sou novo em Access e programação e tentei colocar senha no botão de editar, contudo não sei quais comandos colocar para após a senha desbloquear o BD neste segundo botão (o que permite edição).

    Segue abaixo os Códigos que usei

    Comando para bloquear alterações (funcionando perfeitamente)

    Private Sub salvar_Click()
    Me.SB_FM_CURSOS.Locked = True
    Me.SB_FM_QUALIFICAÇÕES.Locked = True
    Form.AllowEdits = False

    Comando para desbloquear, não sei como após a senha chamar o comando de desbloqueio

    Private Sub Comando874_Click()
    Dim strResposta As String
    strResposta = InputBox("Entre com a senha...", "Senha", "", 2000, 1000)
    If StrComp(strResposta, "12", vbBinaryCompare) = 0 Then
    DoCmd.Close
    Form.AllowEdits = True
    Me.SB_FM_CURSOS.Locked = False
    Me.SB_FM_QUALIFICAÇÕES.Locked = False

    (tentei estes comandos mas não deu certo, e não faço a menor ideia de qual comando colocar, ja tentei vários)
    Else
    MsgBox "Senha incorreta...", vbCritical
    DoCmd.CancelEvent
    End If
    End Sub


    2 -Segunda  Dúvida - Quando clicar no botão de impedir a edição, gostaria que um botão do SUBFORMULÁRIO, ficasse invisível, mas não sei chamar este botão via código.

    Comando do botão de bloquear a edição.

    Private Sub salvar_Click()
    Me.SB_FM_CURSOS.Locked = True
    Me.SB_FM_QUALIFICAÇÕES.Locked = True
    Form.AllowEdits = False
    - Nesta linha gostaria que um botão do subformulario (mais precisamente o botão de deletar) ficasse invisível, e só ficasse visível quando clicar no segundo botão, o de desbloquear a edição.


    Sou novo, já pesquisei muito e fiquei 4 horas tentando de tudo, provavelmente é algo simples, como sou novo não faço a menor ideia de como fazer, diante disto se alguém puder me ajudar ficaria grato.
    irmessiasrf
    irmessiasrf
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 22/04/2016

    Código para botão com função de destravar com senha o formulário Empty Re: Código para botão com função de destravar com senha o formulário

    Mensagem  irmessiasrf 10/4/2017, 03:50

    Posta o seu BD para que possamos ter uma melhor visão.
    avatar
    auegantz
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 50
    Registrado : 11/09/2016

    Código para botão com função de destravar com senha o formulário Empty Re: Código para botão com função de destravar com senha o formulário

    Mensagem  auegantz 10/4/2017, 04:02

    Para já.

    e desde logo agradeço
    irmessiasrf
    irmessiasrf
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 22/04/2016

    Código para botão com função de destravar com senha o formulário Empty Re: Código para botão com função de destravar com senha o formulário

    Mensagem  irmessiasrf 10/4/2017, 21:17

    Veja se utilizando dessa maneira atende sua necessidade.

    Código:
    Private Sub Comando7010_Click()

    Dim strResposta As String
    strResposta = InputBox("Entre com a senha...", "Senha", "", 2000, 1000)

        If StrComp(strResposta, "12", vbBinaryCompare) = 0 Then
            Form.AllowEdits = True
            Me.SB_FM_QUALIFICAÇÕES!Excluir_Quali.Visible = True
            Me.SB_FM_CURSOS!Comando72.Visible = True
        Else
            MsgBox "Senha incorreta...", vbCritical
            DoCmd.CancelEvent
        End If
    End Sub

    Private Sub salvar_Click()

        Me.SB_FM_CURSOS.Locked = True
        Me.SB_FM_QUALIFICAÇÕES.Locked = True
        Form.AllowEdits = False
        Me.SB_FM_QUALIFICAÇÕES!Excluir_Quali.Visible = False
        Me.SB_FM_CURSOS!Comando72.Visible = False
        Me.Refresh
        
    End Sub

    Conteúdo patrocinado


    Código para botão com função de destravar com senha o formulário Empty Re: Código para botão com função de destravar com senha o formulário

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 15:13