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]Erro Estranho - Resultado DCount

    Nill.GO
    Nill.GO
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 74
    Registrado : 25/09/2017

    [Resolvido]Erro Estranho - Resultado DCount Empty [Resolvido]Erro Estranho - Resultado DCount

    Mensagem  Nill.GO 6/1/2023, 09:52

    Bom dia a todos,
    Pessoal, uma dúvida que já bati a cabeça e não entendi por que isto.
    Está me retornando todos os dias o valor = 3 em vez de ser "0"(zero) caso não tenha nenhuma saída do dia corrente.
    Notei isto alguns dias depois da virada de ano para 2023.

    Detalhes:
    Rótulo no FrmMenu (lblSaidas), para mostrar o resultado conforme o DCount.

    'Abrir do formulário Menu
    ----------------------------------------------
    Private Sub Form_Open(Cancel As Integer)
    Call Carregar_Saidas
    End Sub

    'Módulo: ModSaidas
    '----------------------------------------------
    Function Carregar_Saidas()
    Dim IntS As Integer

    IntS = DCount("[tipoSaidaID]", "[tbClientes]", "Format([dataSaida],'dd/mm/yyyy') = Format(Date(),'dd/mm/yyyy') And [tipoSaidaID] = 2 or [tipoSaidaID] = 3 or [tipoSaidaID] = 5")
    Forms![FrmMenu].lblSaidas.Caption = IntS

    End Function


    'Tabelas
    '----------------------------------------------
    tbClientes(clienteID, clienteNome, tipoSaidaID)
    tbSaidas (tipoSaidaID, tipoSaida)

    Desde já fico agradecido pela ajuda!
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2772
    Registrado : 13/12/2016

    [Resolvido]Erro Estranho - Resultado DCount Empty Re: [Resolvido]Erro Estranho - Resultado DCount

    Mensagem  Alexandre Fim 6/1/2023, 10:10

    Bom dia,
    Voce precisa utilizar a função NZ, como segue abaixo:
    IntS = Nz(DCount("[tipoSaidaID]", "[tbClientes]", "Format([dataSaida],'dd/mm/yyyy') = Format(Date(),'dd/mm/yyyy') And [tipoSaidaID] = 2 or [tipoSaidaID] = 3 or [tipoSaidaID] = 5"),0)

    É isso

    Att,

    Alexandre Fim


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Erro Estranho - Resultado DCount Setinf11
    Sistemas e Tecnologia Ltda
    Nill.GO
    Nill.GO
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 74
    Registrado : 25/09/2017

    [Resolvido]Erro Estranho - Resultado DCount Empty Erro Estranho - Resultado DCount

    Mensagem  Nill.GO 6/1/2023, 20:21

    Boa noite Alexandre,
    Atualizei mas ficou na mesma situação.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Erro Estranho - Resultado DCount Empty Re: [Resolvido]Erro Estranho - Resultado DCount

    Mensagem  Avelino Sampaio 7/1/2023, 06:03

    Olá!

    A lógica esta imprecisa devido a falta de parênteses.

    IntS = Nz(DCount("[tipoSaidaID]", "[tbClientes]", "(Format([dataSaida],'dd/mm/yyyy') = Format(Date(),'dd/mm/yyyy')) And ([tipoSaidaID] = 2 or [tipoSaidaID] = 3 or [tipoSaidaID] = 5")),0)

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Nill.GO
    Nill.GO
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 74
    Registrado : 25/09/2017

    [Resolvido]Erro Estranho - Resultado DCount Empty Erro Estranho - Resultado DCount

    Mensagem  Nill.GO 7/1/2023, 10:13

    Bom dia,

    Copiei e colei a sua linha de código para não errar uma vírgula, mas não deu certo.
    Não aceita a vírgula antes do zero e se retirar também não funciona.
    Uso o MS Office 2013
    Nill.GO
    Nill.GO
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 74
    Registrado : 25/09/2017

    [Resolvido]Erro Estranho - Resultado DCount Empty [Resolvido]Erro Estranho - Resultado DCount

    Mensagem  Nill.GO 7/1/2023, 11:59

    Não sei se é o correto, mas consegui resolver colocando menos três no final do código.

    IntS = DCount("[clientesID]", "[tbClientes]", "Format([dataSaida],'dd/mm/yyyy') = Format(Date(),'dd/mm/yyyy') And [tipoSaidaID] = 2 or [tipoSaidaID] = 3 or [tipoSaidaID] = 5") - 3

    Só corrigi aqui no início é o ID do cliente "clientesID"

    Funcionando agora!

      Data/hora atual: 7/2/2023, 22:10