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

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

    Compartilhe

    auegantz
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  auegantz em Seg 10 Abr 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.
    avatar
    irmessiasrf
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  irmessiasrf em Seg 10 Abr 2017, 03:50

    Posta o seu BD para que possamos ter uma melhor visão.

    auegantz
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  auegantz em Seg 10 Abr 2017, 04:02

    Para já.

    e desde logo agradeço
    Anexos
    BD para arrumar.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (593 Kb) Baixado 3 vez(es)
    avatar
    irmessiasrf
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  irmessiasrf em Seg 10 Abr 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

      Data/hora atual: Seg 25 Set 2017, 10:36