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

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.

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


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


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

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

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...

Era isso mesmo, obrigado amigo

Excelente!

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

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:

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