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
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  edjunho em 4/10/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 : 259
    Registrado : 23/01/2017

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

    Mensagem  thiagomcosta em 4/10/2017, 19:52

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

    edjunho
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  edjunho em 4/10/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: 24/6/2018, 07:54