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

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

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

Grande IvanJr. !

Muitíssimo obrigado !

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

Valeu ! Tmj !!

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