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]Mudar de Formulário através de uma Caixa de Combinação

    Jitano
    Jitano
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Localização : Portugal
    Mensagens : 99
    Registrado : 13/06/2011

    [Resolvido]Mudar de Formulário através de uma Caixa de Combinação Empty Mudar de Formulário através de uma Caixa de Combinação

    Mensagem  Jitano 27/1/2012, 12:07

    Oi

    Tenho 3 formulários com a estrutura igual:
    - form 1
    - form 2
    - form 3

    Queria por exemplo no form 1 ter uma Caixa de Combinação com "link" para o form 2 e form 3.

    É possível ou tenho de usar botões?

    Obrigado
    avatar
    Convidad
    Convidado


    [Resolvido]Mudar de Formulário através de uma Caixa de Combinação Empty Re: [Resolvido]Mudar de Formulário através de uma Caixa de Combinação

    Mensagem  Convidad 27/1/2012, 12:29


    Olá

    Vc pode colocar como origem dos registros da ComboBox uma lista de valores:
    "Form1";"Form2";"Form3"

    No evento AfterUpdate da ComboBox:

    Private Sub NomeComboBox_AfterUpdate()
    If Me.NomeComboBox = Form1 Then DoCmd.OpenForm "Form1"
    If Me.NomeComboBox = Form2 Then DoCmd.OpenForm "Form2"
    If Me.NomeComboBox = Form3 Then DoCmd.OpenForm "Form3"
    End Sub


    Isto se os forms estiverem fechados. Se já estão abertos, mude para:
    If Me.NomeComboBox = "Form1" Then Forms!Form1.SetFocus
    Jitano
    Jitano
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Localização : Portugal
    Mensagens : 99
    Registrado : 13/06/2011

    [Resolvido]Mudar de Formulário através de uma Caixa de Combinação Empty Re: [Resolvido]Mudar de Formulário através de uma Caixa de Combinação

    Mensagem  Jitano 27/1/2012, 17:59

    Obrigado pela ajuda norbs!

    Funciona!
    Só tive de adicionar "" ao texto na ComboBox.

    Só mais uma coisa, eu pretendia que ele abri-se no mesmo formulário... porque desta maneira ele abre o novo formulário numa janela nova.
    É possível ou tenho de adicionar um DoCmd.Close ao form que vou deixar?

    Obrigado
    avatar
    Convidad
    Convidado


    [Resolvido]Mudar de Formulário através de uma Caixa de Combinação Empty Re: [Resolvido]Mudar de Formulário através de uma Caixa de Combinação

    Mensagem  Convidad 27/1/2012, 18:26


    Pode fechar o form direto no código da Combo colocando DoCmd.Close na linha acima do End Sub.
    Ou seja, após abrir o form da combo, fecha o atual.



    avatar
    Convidado
    Convidado


    [Resolvido]Mudar de Formulário através de uma Caixa de Combinação Empty Re: [Resolvido]Mudar de Formulário através de uma Caixa de Combinação

    Mensagem  Convidado 27/1/2012, 20:16

    Como dizem os portugueses posso dar um pitaco....

    http://speedy.sh/KnXE4/Menu-personalizado.rar
    Jitano
    Jitano
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Localização : Portugal
    Mensagens : 99
    Registrado : 13/06/2011

    [Resolvido]Mudar de Formulário através de uma Caixa de Combinação Empty Re: [Resolvido]Mudar de Formulário através de uma Caixa de Combinação

    Mensagem  Jitano 30/1/2012, 16:36

    Obrigado norbs pela ajuda, valeu!

    cafpr, esse menu personalizado é TOP!
    Vou tentar adaptar. OBRIGADO!
    Very Happy
    avatar
    Convidad
    Convidado


    [Resolvido]Mudar de Formulário através de uma Caixa de Combinação Empty Re: [Resolvido]Mudar de Formulário através de uma Caixa de Combinação

    Mensagem  Convidad 30/1/2012, 16:44


    Disponha! Agradecemos o retorno.

    Quando resolver sua dúvida, clique no botão Resolvido, que está logo acima e a direita do botão Enviar.
    Nesta eu clico por você.
    Jitano
    Jitano
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Localização : Portugal
    Mensagens : 99
    Registrado : 13/06/2011

    [Resolvido]Mudar de Formulário através de uma Caixa de Combinação Empty Re: [Resolvido]Mudar de Formulário através de uma Caixa de Combinação

    Mensagem  Jitano 30/1/2012, 17:02

    Sim, eu sei norbs!

    Só ia clicar resolvido depois de acabar de adaptar o exemplo enviado pelo colega cafpr!

    Mas fica já, ok!

    Obrigado

    Conteúdo patrocinado


    [Resolvido]Mudar de Formulário através de uma Caixa de Combinação Empty Re: [Resolvido]Mudar de Formulário através de uma Caixa de Combinação

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 16:47