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]Caixa de Seleção - VBA Comando

    Compartilhe

    edjunho
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 188
    Registrado : 24/12/2011

    [Resolvido]Caixa de Seleção - VBA Comando

    Mensagem  edjunho em Qua 04 Out 2017, 19:06

    Boa tarde,

    Gostaria de saber se é possível por meio de uma caixa de seleção realizar um comando para, caso a caixa esteja "não marcada" este comando me abrisse um formulário.
    Tentei assim: Mas não consegui êxito. O que pode estar errado?

    Private Sub Bem_Segurado__AfterUpdate()

    If MsgBox("O Bem está Assegurado?", vbYesNo) = vbYes Then

    MsgBox "Marcado como Bem Assegurado."
    Me.Bem_Segurado_ = "Não"
    Me.Bem_Entregue_.SetFocus
    Else
    MsgBox "Marcado NÃO Assegurado, Abrindo o Cadastro..."

    DoCmd.OpenForm "Cadastro de Seguro"
    "Ação de abrir o formulário de cadastro"

    End If

    End Sub
    avatar
    thiagomcosta
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 231
    Registrado : 23/01/2017

    Re: [Resolvido]Caixa de Seleção - VBA Comando

    Mensagem  thiagomcosta em Qua 04 Out 2017, 19:52

    Tente colocar o código no evento "ao receber foco" do controle.

    edjunho
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 188
    Registrado : 24/12/2011

    Re: [Resolvido]Caixa de Seleção - VBA Comando

    Mensagem  edjunho em Qua 04 Out 2017, 20:23

    Boa tarde,

    Descobri o erro... O formulário estava abrindo mas ficava atrás do Menu de Cadastro, por isso não conseguia visualizar. Outra coisa foi um "Sim" na opção Bem entregue.

    Obrigado pela ajuda. É sempre um aprendizado.

      Data/hora atual: Qua 22 Nov 2017, 10:54