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


3 participantes

    [Resolvido]Abrir 2 Formulários diferentes Através de um ListBox

    avatar
    xxtailssxx
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 08/10/2020

    [Resolvido]Abrir 2 Formulários diferentes Através de um ListBox Empty [Resolvido]Abrir 2 Formulários diferentes Através de um ListBox

    Mensagem  xxtailssxx 5/11/2020, 20:06

    Queria tirar uma duvida, ou uma possível ajuda, comecei a me aventurar no access a pouco tempo, por volta de 1 mês por necessidade do meu supervisor fazer um controle de contratos, compromissos e eventos, ele sugeriu que eu fizesse no access, porém nunca tinha usado, e estou travado nessa condição pois não conheço muito bem a linguagem do access.

    A ideia é eu tenho uma coluna que determina o tipo de eventos, se o meu tipo de eventos for Emb./Desemb. , ao fazer duplo click no List box,
    quero que ele me retorne " abra" o formulário de Embarque, e caso o campo não for emb./desemb. , ele me retorne "abra" o formulário Compromissos.

    Acho que só precisaria usar um If, mas não sei bem como faria isso no access, e se é possível fazer da maneira que eu elaborei o meu projeto.




    Última edição por xxtailssxx em 9/11/2020, 19:44, editado 2 vez(es)
    avatar
    zcarloslopes
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 393
    Registrado : 28/10/2010

    [Resolvido]Abrir 2 Formulários diferentes Através de um ListBox Empty Re: [Resolvido]Abrir 2 Formulários diferentes Através de um ListBox

    Mensagem  zcarloslopes 6/11/2020, 12:34

    Bom dia,

    Bem vindo ao forum,

    Tente o seguinte:

    No duplo click da sua ListBox coloque:
    Código:
    Dim sAbreForm as String

    sAbreForm = Me.NomeDoCampoNaListBox.Column(x) '<-- Altere o X para nº da coluna pretendida

    If sAbreForm = "Emb./Desemb." Then '<-- Altere para o nome que pretende

         DoCmd.OpenForm "Embarque" '<-- Altere para o nome que pretende

    ElseIf sAbreForm = "OutroNome" Then '<-- Altere para o nome que pretende

         DoCmd.OpenForm "Compromissos" '<-- Altere para o nome que pretende

    Else

         Exit Sub

    End If

    xxtailssxx gosta desta mensagem

    avatar
    xxtailssxx
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 08/10/2020

    [Resolvido]Abrir 2 Formulários diferentes Através de um ListBox Empty Re: [Resolvido]Abrir 2 Formulários diferentes Através de um ListBox

    Mensagem  xxtailssxx 6/11/2020, 14:38

    Bom amigo, obrigado pela resposta, vou testar aqui e te retorno se consegui ou não, uma outra duvida nessa sugestão que você passou, teria como depois da Logica do If. Vou comentar no codigo

    Código:


    Dim sAbreForm as String

    sAbreForm = Me.NomeDoCampoNaListBox.Column(x) '<-- Altere o X para nº da coluna pretendida

    If sAbreForm = "Emb./Desemb." Then '<-- Altere para o nome que pretende

         DoCmd.OpenForm "Embarque" '<-- Altere para o nome que pretende

    ElseIf sAbreForm = "OutroNome" Then '<-- Altere para o nome que pretende ( Aqui nessa linha, teria como eu só por pra abrir o "Forme Compromissos" Direto sem ler nenhuma condição ? Pq a ideia era, caso a primeira condição fosse Verdadeira, ele iria para ela, se caso não atender a condição, ele abre direto o Form compromisso.)

         DoCmd.OpenForm "Compromissos" '<-- Altere para o nome que pretende

    Else

         Exit Sub

    End If

    xxtailssxx gosta desta mensagem

    avatar
    zcarloslopes
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 393
    Registrado : 28/10/2010

    [Resolvido]Abrir 2 Formulários diferentes Através de um ListBox Empty Re: [Resolvido]Abrir 2 Formulários diferentes Através de um ListBox

    Mensagem  zcarloslopes 6/11/2020, 14:54

    Nesse caso ficaria assim:
    Código:
    Dim sAbreForm as String

    sAbreForm = Me.NomeDoCampoNaListBox.Column(x) '<-- Altere o X para nº da coluna pretendida

    If sAbreForm = "Emb./Desemb." Then '<-- Altere para o nome que pretende

         DoCmd.OpenForm "Embarque" '<-- Altere para o nome que pretende
    Else
         DoCmd.OpenForm "Compromissos"
    End If

    xxtailssxx gosta desta mensagem

    avatar
    xxtailssxx
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 08/10/2020

    [Resolvido]Abrir 2 Formulários diferentes Através de um ListBox Empty Re: [Resolvido]Abrir 2 Formulários diferentes Através de um ListBox

    Mensagem  xxtailssxx 6/11/2020, 15:22

    Não esta dando certo  Crying or Very sad , ele ta indo direto pra condição do Else parece.



    Última edição por xxtailssxx em 9/11/2020, 12:46, editado 1 vez(es)
    avatar
    zcarloslopes
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 393
    Registrado : 28/10/2010

    [Resolvido]Abrir 2 Formulários diferentes Através de um ListBox Empty Re: [Resolvido]Abrir 2 Formulários diferentes Através de um ListBox

    Mensagem  zcarloslopes 6/11/2020, 15:48

    Acho que o problema esta na .Column(6)

    Acho que deve colocar .Column(5)

    Da esquerda para direita a 1ª coluna é (0), a 2ª é (1), e assim sucessivamente...

    xxtailssxx gosta desta mensagem

    avatar
    xxtailssxx
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 08/10/2020

    [Resolvido]Abrir 2 Formulários diferentes Através de um ListBox Empty Re: [Resolvido]Abrir 2 Formulários diferentes Através de um ListBox

    Mensagem  xxtailssxx 6/11/2020, 15:53

    Era isso mesmo, obrigado amigo Very Happy Very Happy Very Happy Very Happy
    avatar
    zcarloslopes
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 393
    Registrado : 28/10/2010

    [Resolvido]Abrir 2 Formulários diferentes Através de um ListBox Empty Re: [Resolvido]Abrir 2 Formulários diferentes Através de um ListBox

    Mensagem  zcarloslopes 6/11/2020, 15:55

    Excelente!

    Não esqueça de dar o tópico como resolvido!

    cheers

    xxtailssxx gosta desta mensagem

    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Abrir 2 Formulários diferentes Através de um ListBox Empty Re: [Resolvido]Abrir 2 Formulários diferentes Através de um ListBox

    Mensagem  Alvaro Teixeira 9/11/2020, 12:31

    REGRAS DO FÓRUM

    1. Tenha paciência com quem coloca aqui as suas duvidas.
    2. Clareza nos títulos dos tópicos e duvidas, evite a linguagem MSN.
    3. Não colocar diversas vezes a mesma dúvida.
    4. Explicar detalhadamente o problema e informar a versão do seu Office + Sistema Operativo.
    5. Retorne sempre se deu certo, esse retorno é muito importante.
    6. Respeite toda a equipe Staff e demais membros deste fórum.
    7. Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
    8. Não usar palavras como "Urgente". O fórum é livre e ninguém é obrigado a responder com urgência.
    9. A publicidade é proíbida e só pode ser feita pelo Administrador ou depois de aprovada pelo Administrador.
    10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!
    11. A colocação de Códigos ou Exemplos, devem constar sempre os créditos de quem o elaborou.
    12. Fale, não GRITE!   Só letras Maiúsculas, na Internet é o mesmo que gritar!
    13. É proibido tirar duvidas nas Salas de Repositório, devem abrir um novo tópico nas salas de duvidas, relacionando o Exemplo em causa.
    14. É proibido adicionar links externos nos tópicos, que redirecionem para outros sites ("backlinks"), excepto DropBox ou do próprio fórum.
    15. É permitido adicionar links externos, nos códigos VBA dentro das Base de Dados.


    Olá a todos.

    Vitor não são permitidos links externos.

    Verifico que está a colocar as fotos de forma incorreta.
    Deve clicar no Icon (assinalado a verde) e fazer o upload da foto.
    Por fim incluir a codificação htm conforme pode ver a vermelho:
    [Resolvido]Abrir 2 Formulários diferentes Através de um ListBox 0135
    Irei proceder à retificação.

    Por último, não devemos misturar questões, o tópico dividido, tenha mais atenção.

    Abraço e bons estudos

    xxtailssxx gosta desta mensagem


    Conteúdo patrocinado


    [Resolvido]Abrir 2 Formulários diferentes Através de um ListBox Empty Re: [Resolvido]Abrir 2 Formulários diferentes Através de um ListBox

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 07:29