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

    [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: Qua 20 Set 2017, 20:59