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

    [Resolvido]Dúvida - Alterando valor de um checkbutton

    Compartilhe

    zuuGG
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 29/10/2013

    [Resolvido]Dúvida - Alterando valor de um checkbutton

    Mensagem  zuuGG em Seg 25 Jul 2016, 12:59

    Caros, bom dia!

    Estou tendo um problema quanto a atualização do valor de um checkbutton.

    Seguinte, tenho um formulário principal onde exitem alguma opções para serem selecionadas (checkbuttons) quando uma dessas opções é selecionada é aberto um novo formulário como PopUp exibindo alguns outros checkbutton de opções, até ai tudo bem, ele abre, atualiza os registros quando seleciono algo desse PopUp e etc.., porém o que eu não estou conseguindo fazer é o seguinte:

    Se eu não selecionar nenhuma opção desse PopUp e clicar em "OK" esse PopUp é fechado e retorno para o formulário principal, porém o checkbutton que acionou esse PopUp ainda fica "checado", não estou conseguindo fazer ele ficar sem o "check" caso nenhuma das opções do PopUp seja selecionada.

    Alguém consegue me dar uma ajudinha com isso?

    zuuGG
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 29/10/2013

    Re: [Resolvido]Dúvida - Alterando valor de um checkbutton

    Mensagem  zuuGG em Seg 25 Jul 2016, 20:34

    Caros, boa tarde!

    Consegui resolver meu problema!

    No evento do botão "OK" do formulário aberto no PopUp fiz uma validação de dados dos checkbutton e uma referencia ao campo do formulário principal alterando o valor dele.

    Segue um exemplo da forma que achei pra solucionar essa minha dúvida:

    Código:
    Public Sub btn_Ok_Click()
       
        On Error Resume Next
           
        If (Me.chk_Erro1 = 0) And (Me.chk_Erro2 = 0) Then
           
            DoCmd.RunCommand acCmdSaveRecord
            DoCmd.Close
            DoCmd.OpenForm "Geral"
            Forms("Geral").[chk_Teste1].Value = 0
                   
        Else
       
            DoCmd.RunCommand acCmdSaveRecord
            DoCmd.Close
            DoCmd.OpenForm "Geral"

        End If

    End Sub

      Data/hora atual: Dom 04 Dez 2016, 12:15