MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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, 14: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, 17: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 11 vez(es)
    O autor desta mensagem foi removido do fórum - Ver a mensagem

    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, 18: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, 21: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: Sab 10 Dez 2016, 13:42