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


2 participantes

    [Resolvido]Código para consulta

    Genebrinha
    Genebrinha
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 29/05/2014

    [Resolvido]Código para consulta Empty [Resolvido]Código para consulta

    Mensagem  Genebrinha 6/8/2014, 16:00

    Senhores, bom dia!

    Mais uma vez, venho a este forum, solicitar o vosso apoio, pois criei uma consulta, onde preciso de criar um código para calcular quantidades de dias, porém com algumas condições, para este resultado. Estou enviado em anexo um arquivo que relata o que preciso para esta consulta.

    agradeço antecipadamente
    Anexos
    [Resolvido]Código para consulta AttachmentCon_TI.pdf
    Você não tem permissão para fazer download dos arquivos anexados.
    (226 Kb) Baixado 13 vez(es)
    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    [Resolvido]Código para consulta Empty Re: [Resolvido]Código para consulta

    Mensagem  Leandro 6/8/2014, 17:50

    Boa tarde,

    Use esta função:

    Public Function fncQdias(I As Date, R As Date, E1 As Date, E2 As Date) As Integer
    If I < E1 Then
       fncQdias = R - E1
       Else
    If R > E2 Then
       fncQdias = (E2 - I) + 1
       Else
        fncQdias = R - I
    End If
    End If
    End Function


    Crie um campo virtual com o nome que você quiser e troque pelos nomes corretos na tabela, ex:

    Total: fncqdias([Inicio];[Retorno];[Expr1];[Expr2])

    Convenções:
    I = Início
    R = Retorno
    E1 = Expr1
    E2 = Expr2

    Genebrinha
    Genebrinha
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 29/05/2014

    [Resolvido]Código para consulta Empty Código para consulta

    Mensagem  Genebrinha 6/8/2014, 22:05

    Meu amigo, boa noite!

    Não sei porque, não consegui inserir o código.

    Estou anexando o banco para que possa fazer a gentileza de analizar para mim. O nome da consulta é Con_TI, e eu troquei o nome de Expr1 e Expr2 para Par1 e Par2.

    obrigado
    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    [Resolvido]Código para consulta Empty Re: [Resolvido]Código para consulta

    Mensagem  Leandro 7/8/2014, 11:53

    Bom dia, eu só tenho access 2000 aqui, você pode converter e enviar novamente?

    Genebrinha
    Genebrinha
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 29/05/2014

    [Resolvido]Código para consulta Empty Código para consulta

    Mensagem  Genebrinha 7/8/2014, 18:06

    Vou tentar mudar a versão
    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    [Resolvido]Código para consulta Empty Re: [Resolvido]Código para consulta

    Mensagem  Leandro 7/8/2014, 18:44

    Vá em: Arquivo > Salvar/Publicar

    Genebrinha
    Genebrinha
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 29/05/2014

    [Resolvido]Código para consulta Empty Código para consulta

    Mensagem  Genebrinha 7/8/2014, 18:56

    Já tentei conforme anexo.
    Anexos
    [Resolvido]Código para consulta AttachmentGestão de logistica.pdf
    Você não tem permissão para fazer download dos arquivos anexados.
    (312 Kb) Baixado 5 vez(es)
    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    [Resolvido]Código para consulta Empty Re: [Resolvido]Código para consulta

    Mensagem  Leandro 7/8/2014, 18:59

    Verei o que faço aqui, aguarde um pouco.

    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    [Resolvido]Código para consulta Empty Re: [Resolvido]Código para consulta

    Mensagem  Leandro 7/8/2014, 19:18

    Veja, está com um erro de caminho, quando vc enviar bancos que tenham BE e FE, tente mudar o vínculo se isso não for relevante, ajuda a te ajudar, entende?
    Esvrevi a função diretamente no SQL, agora vc terá que inserir o campo no relatório.
    Outra coisa, desculpe, eu esqueci de dizer que era pra colocar a função em um novo módulo.

    Genebrinha
    Genebrinha
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 29/05/2014

    [Resolvido]Código para consulta Empty Código para consulta

    Mensagem  Genebrinha 8/8/2014, 14:24

    Leandro obrigado, porém não chegou ao total que eu esperava apena calculou duas das condições que eu gostaria, dando total com diferença de um dia a mais para uma delas.

    As condições seriam:

    Nos casos que a data "Logística.Retorno" for maior que "Paramentros.Par2", o calculo que preciso é que o campos Total que você criou resulte em campo "Par2" - "Inicio" + "1"
    Nos casos que a data "Logística.Início" for menor que "Par1", o calculo que preciso é que o resultado do campo Total seja "Logística.Retorno" - "Par1"
    Nos casos que não forem diferentes das opções acima, que continue calculando normalmente o "Logística.Retorno" - "Logística.Início"


    Genebrinha
    Genebrinha
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 29/05/2014

    [Resolvido]Código para consulta Empty Código para consulta

    Mensagem  Genebrinha 8/8/2014, 18:36

    Caro Leandro,

    Gostaria de agradecer, pois entrei na função e corrigi o que estava dando erro. Se não fosse sua ajuda não teria conseguido.

    Obrigado
    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    [Resolvido]Código para consulta Empty Re: [Resolvido]Código para consulta

    Mensagem  Leandro 8/8/2014, 18:50

    Obrigado pela resposta!


    Conteúdo patrocinado


    [Resolvido]Código para consulta Empty Re: [Resolvido]Código para consulta

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 26/4/2024, 15:45