MaximoAccess

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

Obrigado

Administração do MaximoAccess

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]Caixa de combinação -> Selecionar página em guia

    avatar
    filipebrg
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 18/12/2018

    [Resolvido]Caixa de combinação -> Selecionar página em guia Empty [Resolvido]Caixa de combinação -> Selecionar página em guia

    Mensagem  filipebrg em 18/12/2018, 18:18

    Amigos, boa tarde !

    É uma grande satisfação poder trocar ideias com vocês, com alguns dos quais já tive a honra de aprender um pouco mais de Access pelo YouTube.

    Minha dúvida é a seguinte (já procurei em diversos tópicos do fórum e não encontrei):

    - Tenho uma caixa de combinação (Cbo_Forma de Pgto), com dados oriundos de uma tabela (5_1 Formas de Pagamento), em um formulário (4_1 Nova inscrição);

    - Após selecionar uma determinada linha na Cbo_Forma de Pgto, gostaria que fosse aberta a página correspondente em um Controle Guia (Guia_FormadePgto);

    - A tabela "5_1 Formas de Pagamento" está assim construída:

    Formas de Pagamento
    Boleto Bancário
    Cartão de Crédito
    Cartão de Débito
    Transferência Bancária - DOC
    Transferência Bancária - TED
    Pagamento Presencial
    Link (PagSeguro)

    - A numeração dos índices (páginas) do controle guia está na mesma sequência (0 - Boleto Bancário; 1 - Cartão de Crédito; etc)

    Como procedo com a construção do código ???

    Desde já agradeço !!

    filipebrg
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2097
    Registrado : 22/11/2016

    [Resolvido]Caixa de combinação -> Selecionar página em guia Empty Re: [Resolvido]Caixa de combinação -> Selecionar página em guia

    Mensagem  DamascenoJr. em 18/12/2018, 20:55

    Mande o foco para a página com o setfocus

    Código:
    Private Sub Cbo_Forma_de_Pgto_AfterUpdate()

        if nz(me.activecontrol.value)="" then exit sub

        select case me.activecontrol.value

              case "Boleto Bancário"
                  me("NomeDaGuiaEncontradoNaFolhaDePropriedadesGuiaOutraPropriedadeNome").setfocus
              case "Cartão de Crédito"
                  me("NomeDaGuiaEncontradoNaFolhaDePropriedadesGuiaOutraPropriedadeNome").setfocus
              case "Cartão de Débito"
                  me("NomeDaGuiaEncontradoNaFolhaDePropriedadesGuiaOutraPropriedadeNome").setfocus
              case "Transferência Bancária - DOC"
                  me("NomeDaGuiaEncontradoNaFolhaDePropriedadesGuiaOutraPropriedadeNome").setfocus
              case "Transferência Bancária - TED"
                  me("NomeDaGuiaEncontradoNaFolhaDePropriedadesGuiaOutraPropriedadeNome").setfocus
              case "Pagamento Presencial"
                  me("NomeDaGuiaEncontradoNaFolhaDePropriedadesGuiaOutraPropriedadeNome").setfocus
              case "Link (PagSeguro)"
                  me("NomeDaGuiaEncontradoNaFolhaDePropriedadesGuiaOutraPropriedadeNome").setfocus

        end select
    End Sub


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    filipebrg
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 18/12/2018

    [Resolvido]Caixa de combinação -> Selecionar página em guia Empty Show !!!

    Mensagem  filipebrg em 18/12/2018, 23:28

    Grande IvanJr. !

    Muitíssimo obrigado !

    Fiz as mudanças necessárias e funcionou 100% !!!

    Valeu ! Tmj !!
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2097
    Registrado : 22/11/2016

    [Resolvido]Caixa de combinação -> Selecionar página em guia Empty Re: [Resolvido]Caixa de combinação -> Selecionar página em guia

    Mensagem  DamascenoJr. em 19/12/2018, 00:58

    Obrigado pelo retorno. O fórum agradece. Sucesso.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 6/7/2020, 18:28