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