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 : 51
    Registrado : 23/12/2013

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

    Mensagem  moacirfj em Ter 10 Jun 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 4 vez(es)
    O autor desta mensagem foi removido do fórum - Ver a mensagem

    moacirfj
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  moacirfj em Ter 10 Jun 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 14 vez(es)
    O autor desta mensagem foi removido do fórum - Ver a mensagem
    avatar
    Beto Givoni
    VIP
    VIP

    Respeito às Regras 0%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1207
    Registrado : 04/01/2011

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

    Mensagem  Beto Givoni em Ter 10 Jun 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 : 51
    Registrado : 23/12/2013

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

    Mensagem  moacirfj em Ter 10 Jun 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
    O autor desta mensagem foi removido do fórum - Ver a mensagem

      Data/hora atual: Seg 21 Ago 2017, 16:58