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]Consulta Muito complexa

    avatar
    Carla Cavalcante
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 10
    Registrado : 24/03/2014

    [Resolvido]Consulta Muito complexa Empty [Resolvido]Consulta Muito complexa

    Mensagem  Carla Cavalcante 13/4/2014, 18:57

    Ola!!

    Estou fazendo uma consulta , porem apresenta mensagem "A expressão que voce inseriu é muito complexa"

    Proxima :SeImed([FAIXA]=1;"Amarela";SeImed([FAIXA]=2;"VERMELHA";SeImed([FAIXA]=3;"LARANJA";SeImed([FAIXA]=4;"VERDE I";SeImed([FAIXA]=5;"VERDE II";SeImed([FAIXA]=6;"VERDE III";SeImed([FAIXA]=7;"VERDE";SeImed([FAIXA]=8;"ROXA";SeImed([FAIXA]=9;"MARROM";SeImed([FAIXA]=10;"VERDE";SeImed([FAIXA]=11;"PRETA 1º DAN";SeImed([FAIXA]=12;"PRETA 2º DAN";SeImed([FAIXA]=13;"PRETA 3º DAN";SeImed([FAIXA]=14;"PRETA 4º DAN";SeImed([FAIXA]=15;"PRETA 5º DAN";SeImed([FAIXA]=16;"PRETA 6º DAN";SeImed([FAIXA]=17;"PRETA 7º DAN";SeImed([FAIXA]=18;"PRETA 8º DAN";SeImed([FAIXA]=19;"PRETA 9º DAN";" ")))))))))))))))))))

    Teste a expressão individualmente e só apresenta o erro a partir :

    SeImed([FAIXA]=15;"PRETA 5º DAN";SeImed([FAIXA]=16;"PRETA 6º DAN";SeImed([FAIXA]=17;"PRETA 7º DAN";SeImed([FAIXA]=18;"PRETA 8º DAN";SeImed([FAIXA]=19;"PRETA 9º DAN";" ")))))))))))))))))))
    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1314
    Registrado : 21/01/2012

    [Resolvido]Consulta Muito complexa Empty Re: [Resolvido]Consulta Muito complexa

    Mensagem  Cláudio Más 13/4/2014, 19:21

    Olá,

    Tente a função Opção() no lugar de SeImed():

    Opção([FAIXA]=15;"PRETA 5º DAN";[FAIXA]=16;"PRETA 6º DAN";[FAIXA]=17;"PRETA 7º DAN";[FAIXA]=18;"PRETA 8º DAN";[FAIXA]=19;"PRETA 9º DAN")
    avatar
    Carla Cavalcante
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 10
    Registrado : 24/03/2014

    [Resolvido]Consulta Muito complexa Empty Consulta Muito complexa

    Mensagem  Carla Cavalcante 13/4/2014, 19:42

    Claudio,


    tentei assim mas também apresenta erro


    Proxima: Opção ([FAIXA]=1;"Amarela";[FAIXA]=2;"VERMELHA";[FAIXA]=3;"LARANJA";[FAIXA]=4;"VERDE I";[FAIXA]=5;"VERDE II";[FAIXA]=6;"VERDE III";[FAIXA]=7;"VERDE";[FAIXA]=8;"ROXA";[FAIXA]=9;"MARROM";[FAIXA]=10;"VERDE";[FAIXA]=11;"PRETA 1º DAN";[FAIXA]=12;"PRETA 2º DAN";[FAIXA]=13;"PRETA 3º DAN";[FAIXA]=14;"PRETA 4º DAN";[FAIXA]=15;"PRETA 5º DAN";[FAIXA]=16;"PRETA 6º DAN";[FAIXA]=17;"PRETA 7º DAN";[FAIXA]=18;"PRETA 8º DAN";[FAIXA]=19;"PRETA 9º DAN")
    Anexos
    [Resolvido]Consulta Muito complexa Attachmentteste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (216 Kb) Baixado 28 vez(es)


    Última edição por Carla Cavalcante em 13/4/2014, 19:53, editado 1 vez(es) (Motivo da edição : anexar teste)
    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1314
    Registrado : 21/01/2012

    [Resolvido]Consulta Muito complexa Empty Re: [Resolvido]Consulta Muito complexa

    Mensagem  Cláudio Más 13/4/2014, 20:14

    Carla,

    Resolvi com uma gambiarra...  Smile 

    Proxima: SeImed(Negado ÉNulo(Opção([FAIXA]=1;"Amarela";[FAIXA]=2;"VERMELHA";[FAIXA]=3;"LARANJA";[FAIXA]=4;"VERDE I";[FAIXA]=5;"VERDE II";[FAIXA]=6;"VERDE III";[FAIXA]=7;"VERDE";[FAIXA]=8;"ROXA";[FAIXA]=9;"MARROM"));Opção([FAIXA]=1;"Amarela";[FAIXA]=2;"VERMELHA";[FAIXA]=3;"LARANJA";[FAIXA]=4;"VERDE I";[FAIXA]=5;"VERDE II";[FAIXA]=6;"VERDE III";[FAIXA]=7;"VERDE";[FAIXA]=8;"ROXA";[FAIXA]=9;"MARROM");Opção([FAIXA]=10;"VERDE";[FAIXA]=11;"PRETA 1º DAN";[FAIXA]=12;"PRETA 2º DAN";[FAIXA]=13;"PRETA 3º DAN";[FAIXA]=14;"PRETA 4º DAN";[FAIXA]=15;"PRETA 5º DAN";[FAIXA]=16;"PRETA 6º DAN";[FAIXA]=17;"PRETA 7º DAN";[FAIXA]=18;"PRETA 8º DAN";[FAIXA]=19;"PRETA 9º DAN"))
    avatar
    Carla Cavalcante
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 10
    Registrado : 24/03/2014

    [Resolvido]Consulta Muito complexa Empty Consulta Muito complexa

    Mensagem  Carla Cavalcante 14/4/2014, 00:23

    Oi Claudio,


    Funcionou!! Mesmo com a gambiarra esta também não funciona. O que estou fazendo errado????


    Vencimento: Seimed(negado énulo(opção([FAIXA]=1;DATAM([DataUltimo];3);[FAIXA]=2;DATAM([DataUltimo];4);[FAIXA]=3;DATAM([DataUltimo];5);
    [FAIXA]=4;DATAM([DataUltimo];6);[FAIXA]=5;DATAM([DataUltimo];3);[FAIXA]=6;DATAM([DataUltimo];3);[FAIXA]=7;DATAM([DataUltimo];3);
    [FAIXA]=8;DATAM([DataUltimo];3);[FAIXA]=9;DATAM([DataUltimo];12);[FAIXA]=10;DATAM([DataUltimo];12);[FAIXA]=11;DATAM([DataUltimo];24);
    [FAIXA]=12;DATAM([DataUltimo];36);[FAIXA]=13;DATAM([DataUltimo];48);[FAIXA]=14;DATAM([DataUltimo];60);[FAIXA]=15;DATAM([DataUltimo];72);
    [FAIXA]=17;DATAM([DataUltimo];96);[FAIXA]=18;DATAM([DataUltimo];108)))
    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1314
    Registrado : 21/01/2012

    [Resolvido]Consulta Muito complexa Empty Re: [Resolvido]Consulta Muito complexa

    Mensagem  Cláudio Más 14/4/2014, 05:33

    Carla, a gambiarra correta é:

    Vencimento: SeImed(Negado ÉNulo(Opção([FAIXA]=1;DATAM([DataUltimo];3);[FAIXA]=2;DATAM([DataUltimo];4);[FAIXA]=3;DATAM([DataUltimo];5);[FAIXA]=4;DATAM([DataUltimo];6);[FAIXA]=5;DATAM([DataUltimo];3);[FAIXA]=6;DATAM([DataUltimo];3);[FAIXA]=7;DATAM([DataUltimo];3);[FAIXA]=8;DATAM([DataUltimo];3);[FAIXA]=9;DATAM([DataUltimo];12)));Opção([FAIXA]=1;DATAM([DataUltimo];3);[FAIXA]=2;DATAM([DataUltimo];4);[FAIXA]=3;DATAM([DataUltimo];5);[FAIXA]=4;DATAM([DataUltimo];6);[FAIXA]=5;DATAM([DataUltimo];3);[FAIXA]=6;DATAM([DataUltimo];3);[FAIXA]=7;DATAM([DataUltimo];3);[FAIXA]=8;DATAM([DataUltimo];3);[FAIXA]=9;DATAM([DataUltimo];12));Opção([FAIXA]=10;DATAM([DataUltimo];12);[FAIXA]=11;DATAM([DataUltimo];24);[FAIXA]=12;DATAM([DataUltimo];36);[FAIXA]=13;DATAM([DataUltimo];48);[FAIXA]=14;DATAM([DataUltimo];60);[FAIXA]=15;DATAM([DataUltimo];72);[FAIXA]=17;DATAM([DataUltimo];96);[FAIXA]=18;DATAM([DataUltimo];108)))
    avatar
    Carla Cavalcante
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 10
    Registrado : 24/03/2014

    [Resolvido]Consulta Muito complexa Empty Consulta Muito complexa

    Mensagem  Carla Cavalcante 17/4/2014, 15:28

    Oi Claudio Bom dia!!


    tentei assim mas também apresenta erro Informando que texto é muito longo


    Vencimento: SeImed(Negado ÉNulo
    (Opção([FAIXA]=1;SomData("m";3;[DataUltimo]);
    [FAIXA]=2;SomData("m";4;[DataUltimo]);
    [FAIXA]=3;SomData("m";5;[DataUltimo]);
    [FAIXA]=4;SomData("m";6;[DataUltimo]);
    [FAIXA]=5;SomData("m";3;[DataUltimo]);
    [FAIXA]=6;SomData("m";3;[DataUltimo]);
    [FAIXA]=7;SomData("m";3;[DataUltimo]);
    [FAIXA]=8;SomData("m";3;[DataUltimo]);
    [FAIXA]=9;SomData("m";12;[DataUltimo])));
    Opção([FAIXA]=1;SomData("m";3;[DataUltimo]);
    [FAIXA]=2;SomData("m";4;[DataUltimo]);
    [FAIXA]=3;SomData("m";5;[DataUltimo]);
    [FAIXA]=4;SomData("m";6;[DataUltimo]);
    [FAIXA]=5;SomData("m";3;[DataUltimo]);
    [FAIXA]=6;SomData("m";3;[DataUltimo]);
    [FAIXA]=7;SomData("m";3;[DataUltimo]);
    [FAIXA]=8;SomData("m";3;[DataUltimo]);
    [FAIXA]=9;SomData("m";12;[DataUltimo]));
    Opção([FAIXA]=10;SomData("m";12;[DataUltimo]);
    [FAIXA]=11;SomData("m";24;[DataUltimo]);
    [FAIXA]=12;SomData("m";36;[DataUltimo]);
    [FAIXA]=13;SomData("m";48;[DataUltimo]);
    [FAIXA]=14;SomData("m";60;[DataUltimo]);
    [FAIXA]=15;SomData("m";72;[DataUltimo]);
    [FAIXA]=17;SomData("m";96;[DataUltimo]);
    [FAIXA]=18;SomData("m";108;[DataUltimo]))
    Anexos
    [Resolvido]Consulta Muito complexa Attachmentteste.zip
    teste
    Você não tem permissão para fazer download dos arquivos anexados.
    (115 Kb) Baixado 16 vez(es)
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3848
    Registrado : 04/04/2010

    [Resolvido]Consulta Muito complexa Empty Re: [Resolvido]Consulta Muito complexa

    Mensagem  Avelino Sampaio 17/4/2014, 16:14

    Olá!

    Informe o resultado esperado para os 10 primeiros registros da sua consulta.

    Faixa Tempo  Proxima
    VERDE     21 ?
    LARANJA   42 ?
    ROXA      43 ?
    LARANJA   34 ?
    ROXA      42 ?
    LARANJA   22 ?
    ROXA      88 ?
    PRETA 1º DAN  69  ?
    PRETA 1º DAN  104  ?


    No aguardo


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    Carla Cavalcante
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 10
    Registrado : 24/03/2014

    [Resolvido]Consulta Muito complexa Empty Re: [Resolvido]Consulta Muito complexa

    Mensagem  Carla Cavalcante 17/4/2014, 20:42

    Ola Avelino!!

    O resultado esperado é o vencimento para o próximo exame de faixa em meses

    DataUltimo Faixa Tempo Próxima Vencimento
    22/10/1994 VERDE 21 VERDE II 22/01/1995 = data Ultimo + 3 meses
    31/10/1993 LARANJA 42 VERDE I 31/01/1994 = data Ultimo + 3 meses
    18/02/1995 ROXA 43 MARROM 18/02/1996 = data Ultimo + 12 meses
    31/01/1996 LARANJA 34 VERDE I 31/04/1996 = data Ultimo + 3 meses
    03/09/1994 ROXA 42 MARROM 03/09/1995 = data Ultimo + 12 meses
    31/01/1996 LARANJA 22 VERDE I 31/04/1996 = data Ultimo + 3 meses
    21/12/1995 ROXA 88 MARROM 21/12/1996 = data Ultimo + 12 meses
    02/12/2000 PRETA 1º DAN 69 PRETA 2º DAN 02/12/2002 = data Ultimo + 24 meses
    15/12/2001 PRETA 1º DAN 104 PRETA 2º DAN 15/12/2003 = data Ultimo + 24 meses
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3848
    Registrado : 04/04/2010

    [Resolvido]Consulta Muito complexa Empty Re: [Resolvido]Consulta Muito complexa

    Mensagem  Avelino Sampaio 17/4/2014, 21:44

    Olá!

    Criei duas funções para este seu projeto, que são:


    Public Function fncPro(intFaixa%) As String
    Select Case intFaixa
    Case 1: fncPro = "Amarela"
    Case 2: fncPro = "Vermelha"
    Case 3: fncPro = "Laranja"
    Case 4: fncPro = "Verde I"
    Case 5: fncPro = "Verde II"
    Case 6: fncPro = "Verde III"
    Case 7, 10: fncPro = "Verde"
    Case 8: fncPro = "Roxa"
    Case 9: fncPro = "Marron"
    Case 11: fncPro = "Preta 1º DAN"
    Case 12: fncPro = "Preta 2º DAN"
    Case 13: fncPro = "Preta 3º DAN"
    Case 14: fncPro = "Preta 4º DAN"
    Case 15: fncPro = "Preta 5º DAN"
    Case 16: fncPro = "Preta 6º DAN"
    Case 17: fncPro = "Preta 7º DAN"
    Case 18: fncPro = "Preta 8º DAN"
    Case 19: fncPro = "Preta 9º DAN"
    End Select
    End Function

    Public Function fncVenc(intFaixa%, dataVenc As Date) As Date
    Select Case intFaixa
    Case 1, 5, 6, 7, 8: fncVenc = DateAdd("m", 3, dataVenc)
    Case 2: fncVenc = DateAdd("m", 4, dataVenc)
    Case 3: fncVenc = DateAdd("m", 5, dataVenc)
    Case 4: fncVenc = DateAdd("m", 6, dataVenc)
    Case 9, 10: fncVenc = DateAdd("m", 12, dataVenc)
    Case 11: fncVenc = DateAdd("m", 24, dataVenc)
    Case 12: fncVenc = DateAdd("m", 36, dataVenc)
    Case 13: fncVenc = DateAdd("m", 48, dataVenc)
    Case 14: fncVenc = DateAdd("m", 60, dataVenc)
    Case 15: fncVenc = DateAdd("m", 72, dataVenc)
    Case 16: fncVenc = DateAdd("m", 3, dataVenc)
    'Case 17: fncVenc = DateAdd("m", 3, dataVenc)
    Case 18: fncVenc = DateAdd("m", 108, dataVenc)
    'Case 19: fncVenc = DateAdd("m", 3, dataVenc)
    End Select
    End Function


    Abra a sua consulta e veja as funções sendo aplicadas.

    Bom estudo!
    Anexos
    [Resolvido]Consulta Muito complexa AttachmentDatabase1_rev.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (48 Kb) Baixado 33 vez(es)


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    Carla Cavalcante
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 10
    Registrado : 24/03/2014

    [Resolvido]Consulta Muito complexa Empty Re: [Resolvido]Consulta Muito complexa

    Mensagem  Carla Cavalcante 24/4/2014, 00:57

    Ola Avelino!!


    As funções funcionaram, Muito obrigada!! No fim ficou assim.
    Mas agora como faço para executar a consulta ???
    Anexos
    [Resolvido]Consulta Muito complexa AttachmentDatabase1_rev.zip
    Base
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.1 Mb) Baixado 23 vez(es)
    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1314
    Registrado : 21/01/2012

    [Resolvido]Consulta Muito complexa Empty Re: [Resolvido]Consulta Muito complexa

    Mensagem  Cláudio Más 26/4/2014, 12:10

    Consultas do tipo seleção podem ser utilizadas como base para formulários e relatórios.
    A consulta teria alguma outra finalidade para o seu sistema?
    avatar
    Carla Cavalcante
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 10
    Registrado : 24/03/2014

    [Resolvido]Consulta Muito complexa Empty Re: [Resolvido]Consulta Muito complexa

    Mensagem  Carla Cavalcante 29/4/2014, 21:27

    Ola Claudio,

    A consulta seria para usar no formulário e depois gerar relatório como no exemplo que postei.
    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1314
    Registrado : 21/01/2012

    [Resolvido]Consulta Muito complexa Empty Re: [Resolvido]Consulta Muito complexa

    Mensagem  Cláudio Más 30/4/2014, 01:25

    Oi Carla,

    É só usar os assistentes de formulário e relatório sobre a consulta.
    Ou eu não entendi bem a sua dúvida.
    avatar
    Carla Cavalcante
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 10
    Registrado : 24/03/2014

    [Resolvido]Consulta Muito complexa Empty Re: [Resolvido]Consulta Muito complexa

    Mensagem  Carla Cavalcante 4/5/2014, 20:31

    Ola Claudio,

    Crie o formulario "Detalhe de Faixa"com a seguinte seleção, mas não esta funcionando.

    Private Sub GrupointProxima_Click()

    Dim criterio As String

    Select Case GrupointProxima.Value
    Case 1
    criterio = fncPro = "Amarela"
    Me.Filter = criterio
    Me.FilterOn = True

    Case 2
    criterio = fncPro = "Vermelha"
    Me.Filter = criterio
    Me.FilterOn = True

    Case 3
    criterio = fncPro = "Laranja"
    Me.Filter = criterio
    Me.FilterOn = True

    Case 4
    criterio = fncPro = "Verde"
    Me.Filter = criterio
    Me.FilterOn = True

    Case 5
    criterio = fncPro = "Verde I"
    Me.Filter = criterio
    Me.FilterOn = True

    Case 6
    criterio = fncPro = "Verde II"
    Me.Filter = criterio
    Me.FilterOn = True

    Case 7
    criterio = fncPro = "Verde III"
    Me.Filter = criterio
    Me.FilterOn = True

    Case 8
    criterio = fncPro = "Roxa"
    Me.Filter = criterio
    Me.FilterOn = True

    Case 9
    criterio = fncPro = "Marrom"
    Me.Filter = criterio
    Me.FilterOn = True

    Case 10
    criterio = fncPro = "Preta 1º DAN"
    Me.Filter = criterio
    Me.FilterOn = True

    Case 11
    criterio = fncPro = "Preta 2º DAN"
    Me.Filter = criterio
    Me.FilterOn = True

    Case 12
    criterio = fncPro = "Preta 3º DAN"
    Me.Filter = criterio
    Me.FilterOn = True


    Case 13
    criterio = fncPro = "Preta 4º DAN"
    Me.Filter = criterio
    Me.FilterOn = True

    Case 14
    criterio = fncPro = "Preta 5º DAN"
    Me.Filter = criterio
    Me.FilterOn = True

    Case 15
    criterio = fncPro = "Preta 6º DAN"
    Me.Filter = criterio
    Me.FilterOn = True

    Case 16
    criterio = fncPro = "Preta 7º DAN"
    Me.Filter = criterio
    Me.FilterOn = True

    Case 17
    criterio = fncPro = "Preta 8º DAN"
    Me.Filter = criterio
    Me.FilterOn = True

    Case 18
    criterio = fncPro = "Preta 9º DAN"
    Me.Filter = criterio
    Me.FilterOn = True

    Case 19
    Me.FilterOn = False
    End Select

    End Sub

    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1314
    Registrado : 21/01/2012

    [Resolvido]Consulta Muito complexa Empty Re: [Resolvido]Consulta Muito complexa

    Mensagem  Cláudio Más 4/5/2014, 21:34

    Oi Carla,

    Use o evento "Após atualizar" no lugar de "Ao clicar".

    E os critérios devem ficar conforme o exemplo abaixo:

    criterio = "fncPro = 'Amarela'"

    Se ainda não funcionar, pode enviar o arquivo que eu tento resolver.
    avatar
    Carla Cavalcante
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 10
    Registrado : 24/03/2014

    [Resolvido]Consulta Muito complexa Empty Re: [Resolvido]Consulta Muito complexa

    Mensagem  Carla Cavalcante 5/5/2014, 03:36

    Ola,

    No fim ficou assim, usei Click() e o nome da columa de pesquisa com texto a ser pesquisado entre ''

    Private Sub GrupoProxima_Click()

    Dim criterio As String

    Select Case GrupoProxima.Value
    Case 1
    criterio = "Proxima = 'Amarela'"
    Me.Filter = criterio
    Me.FilterOn = True
    Anexos
    [Resolvido]Consulta Muito complexa AttachmentDatabase1_rev.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1 Mb) Baixado 29 vez(es)
    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1314
    Registrado : 21/01/2012

    [Resolvido]Consulta Muito complexa Empty Re: [Resolvido]Consulta Muito complexa

    Mensagem  Cláudio Más 5/5/2014, 05:27

    Então está funcionando?
    avatar
    Carla Cavalcante
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 10
    Registrado : 24/03/2014

    [Resolvido]Consulta Muito complexa Empty Re: [Resolvido]Consulta Muito complexa

    Mensagem  Carla Cavalcante 5/5/2014, 12:33

    Sim. Muito obrigada a todos pela ajuda!!

    Conteúdo patrocinado


    [Resolvido]Consulta Muito complexa Empty Re: [Resolvido]Consulta Muito complexa

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 19/3/2024, 07:31