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

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

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

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

é 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

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

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