MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


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

    avatar
    moacirfj
    Intermediário
    Intermediário


    Respeito às regras : 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 Empty [Resolvido]Botão de Opção com código VBA

    Mensagem  moacirfj 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
    [Resolvido]Botão de Opção com código VBA AttachmentSistema 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)
    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 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
    avatar
    moacirfj
    Intermediário
    Intermediário


    Respeito às regras : 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 Empty Re: [Resolvido]Botão de Opção com código VBA

    Mensagem  moacirfj 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
    [Resolvido]Botão de Opção com código VBA AttachmentSistema em Access - v002-01 - Segurança e Monitoramento.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (116 Kb) Baixado 18 vez(es)
    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 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
    avatar
    moacirfj
    Intermediário
    Intermediário


    Respeito às regras : 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 Empty Re: [Resolvido]Botão de Opção com código VBA

    Mensagem  moacirfj 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
    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 10/6/2014, 22:27

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

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 09:04