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

Início Procurar
Pesquisar
Resultados por: Mensagens Tópicos
Pesquisa avançada
Registrar Entrar

Você não está conectado. Conecte-se ou registre-se

3 participantes

[Resolvido]Consulta Muito complexa

Carla Cavalcante

Carla Cavalcante: Novato; Respeito às regras :

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

Mensagem nº1

[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";" ")))))))))))))))))))

Ediney75 gosta desta mensagem

Cláudio Más

Cláudio Más: Developer; Respeito às regras :

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

Mensagem nº2

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")

Ediney75 gosta desta mensagem

Carla Cavalcante

Carla Cavalcante: Novato; Respeito às regras :

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

Mensagem nº3

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

teste.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; Respeito às regras :

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

Mensagem nº4

Re: [Resolvido]Consulta Muito complexa

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

Carla,

Resolvi com uma gambiarra... Smile

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"))

Carla Cavalcante

Carla Cavalcante: Novato; Respeito às regras :

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

Mensagem nº5

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; Respeito às regras :

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

Mensagem nº6

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

Ediney75 gosta desta mensagem

Carla Cavalcante

Carla Cavalcante: Novato; Respeito às regras :

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

Mensagem nº7

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

teste.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; Respeito às regras :

Sexo :
Localização :
Mensagens : 3900
Registrado : 04/04/2010

Mensagem nº8

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 vitalício ao site UsandoAcces
Clique AQUI e analise o custo beneficio do material oferecido.

Carla Cavalcante

Carla Cavalcante: Novato; Respeito às regras :

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

Mensagem nº9

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; Respeito às regras :

Sexo :
Localização :
Mensagens : 3900
Registrado : 04/04/2010

Mensagem nº10

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

Database1_rev.zip: Você não tem permissão para fazer download dos arquivos anexados.; (48 Kb) Baixado 34 vez(es)

.................................................................................
Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces
Clique AQUI e analise o custo beneficio do material oferecido.

Carla Cavalcante

Carla Cavalcante: Novato; Respeito às regras :

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

Mensagem nº11

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

Database1_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; Respeito às regras :

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

Mensagem nº12

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?

Carla Cavalcante

Carla Cavalcante: Novato; Respeito às regras :

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

Mensagem nº13

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; Respeito às regras :

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

Mensagem nº14

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.

Carla Cavalcante

Carla Cavalcante: Novato; Respeito às regras :

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

Mensagem nº15

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; Respeito às regras :

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

Mensagem nº16

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.

Carla Cavalcante

Carla Cavalcante: Novato; Respeito às regras :

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

Mensagem nº17

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

Database1_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; Respeito às regras :

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

Mensagem nº18

Re: [Resolvido]Consulta Muito complexa

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

Então está funcionando?

Carla Cavalcante

Carla Cavalcante: Novato; Respeito às regras :

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

Mensagem nº19

Re: [Resolvido]Consulta Muito complexa

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

Sim. Muito obrigada a todos pela ajuda!!

Conteúdo patrocinado

Conteúdo patrocinado

Mensagem nº20

Re: [Resolvido]Consulta Muito complexa

Mensagem Conteúdo patrocinado

Tópicos semelhantes

» [Resolvido]consulta muito complexa
» [Resolvido]Consulta complexa
» [Resolvido]Caracteres muito estranhos na consulta
» [Resolvido]Fórmula desta Consulta - Complexa
» [Resolvido]Consulta: Ajuda - Consulta passagem SQL Muito lenta!

Data/hora atual: 8/11/2024, 03:57