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]Botão de Opção com código VBA

    Compartilhe

    moacirfj
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 52
    Registrado : 23/12/2013

    [Resolvido]Botão de Opção com código VBA

    Mensagem  moacirfj em 10/6/2014, 13:20

    Bom dia prezados,

    Estou, novamente com uma dificuldades.

    Tenho um banco de dados que que possui um campo RG_RE, onde irei armazenar o RG ou o RE. Neste campo necessito da mácara de entrada somente para o RG "123.456.789-0". Criei um grupo de opções para que ao selecionar a opção RG, ele posiciona o foco no campo RG_RE, aplica a máscara no campo, caso escolha RE, executa a mesma operação mas não coloca máscara.

    Digitei a seguinte instrução:

    Private Sub grupoopcao_AfterUpdate()
       
       Select Case grupoopcao
           Case 1
               Me.rgre = 1
               Me.rg_re SetFocus
               Me.rg_re.InputMask = "000\.000\.000\-0"
           Case 2
               Me.rgre = 2
               Me.rg_re SetFocus
               Me.rg_re.InputMask = "000000"
       End Select
       
    End Sub

    Ele apresentou erro já no SetFocus. Quando removo a instrução, não consigo selecionar a opção. Gostaria de uma ajuda.

    Segue cópia do arquivo.

    Att.

    Moacir
    Anexos
    Sistema em Access - v002-01 - Segurança e Monitoramento.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (92 Kb) Baixado 5 vez(es)

    Convidado
    Convidado

    Re: [Resolvido]Botão de Opção com código VBA

    Mensagem  Convidado em 10/6/2014, 13:48

    Olá, do jeito que colocastes o grupo de opções para funcionar terás que mudar o formato da origem, ou seja, na tabela "tab_envolvidos_monitoramento" altera o formato do campo "tipo_doc" de sim/não para número e no vba colocas:

    Select Case grupoopcao
    Case 1
    Me.tipo_doc = 1
    Me.rg_re.SetFocus
    Me.rg_re.InputMask = "000\.000\.000\-0"
    Case 2
    Me.tipo_doc = 2
    Me.rg_re.SetFocus
    Me.rg_re.InputMask = "000000"
    End Select

    moacirfj
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 52
    Registrado : 23/12/2013

    Re: [Resolvido]Botão de Opção com código VBA

    Mensagem  moacirfj em 10/6/2014, 16:17

    Boa tarde Beto Givoni,

    Fiz como você me orientou, porém o sistema está retornando erro, segue o print da tela de erro e o arquivo modificado para verificar se estou errando em alguma instrução.

    Agradeço a ajuda.

    Att.

    Moacir
    Anexos
    Sistema em Access - v002-01 - Segurança e Monitoramento.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (116 Kb) Baixado 15 vez(es)

    Convidado
    Convidado

    Re: [Resolvido]Botão de Opção com código VBA

    Mensagem  Convidado em 10/6/2014, 17:42

    é o nome do controle do grupo de opções que está diferente, ou muda o nome de Quadro30 para tipo_doc ou altera no vba, ficaria assim:

    Select Case Quadro30
    Case 1
    Me.Quadro30 = 1
    Me.rg_re.SetFocus
    Me.rg_re.InputMask = "000\.000\.000\-0"
    Case 2
    Me.Quadro30 = 2
    Me.rg_re.SetFocus
    Me.rg_re.InputMask = "000000"
    End Select

    moacirfj
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 52
    Registrado : 23/12/2013

    Re: [Resolvido]Botão de Opção com código VBA

    Mensagem  moacirfj em 10/6/2014, 20:02

    Beto Givoni,

    Funcionou perfeitamente, agradeço a colaboração e a chamada de atenção ao que eu não estava enchergando no código.

    Grande abraço.

    Att.

    Moacir

    Convidado
    Convidado

    Re: [Resolvido]Botão de Opção com código VBA

    Mensagem  Convidado em 10/6/2014, 22:27

    Saudações do fórum pelo retorno e fechamento do tópico.

      Data/hora atual: 22/6/2018, 06:50