[Resolvido]DSum e DCount - O que estou fazendo errado?

Vi este post neste link e não consegui resolver.

Me.Texto0 = DSum("[Quantidade]", "ConsQuadroHEVagas", "[Serviço] = '" & Me.AltaRenda.Caption & "' and [Data] = # " & [Forms]![FormControleHE]![DiaExtraTxt] & "#"" and [Horario]=" & [Forms]![FormControleHE]![HoraExtratxt]) - DCount("[ChaveOp]", "ConsHEReg", "[Principal] ='" & Me.AltaRenda.Caption & "' and [DiaExtra] = # " & [Forms]![FormControleHE]![DiaExtraTxt] & "#"" And [Horario] = " & [Forms]![FormControleHE]![HoraExtratxt])


O que errei? Não está funcionando.

Me.Texto0 = Nz(DSum("[Quantidade]", "ConsQuadroHEVagas", "[Serviço] ='" & Me.AltaRenda.Caption & "' and [Horario] =  " & Format([Forms]![FormControleHE]![HoraExtratxt], "hh:mm") & " and [Data] = #" & [Forms]![FormControleHE]![DiaExtraTxt] & "#") - DCount("[ChaveOp]", "ConsHEReg", "[Principal] ='" & Me.AltaRenda.Caption & "' and [HoraExtra] = " & Format([Forms]![FormControleHE]![HoraExtratxt], "hh:mm") & " and [DiaExtra] = #" & [Forms]![FormControleHE]![DiaExtraTxt] & "#"), 0)

Dando a seguinte mensagem





Achei um breve esclarecimento neste post porém e se for hora?

Quando o Campo é Hora, funciona da mesma forma como Data, tem que formatar e colocar o # no inicio e # no fim.


No caso do Amigo, na tabela tabQuadroHE o campo HoraExtra esta como texto (logo nao ha a necessidade de colocar o #...#, devendo ficar ' " & ... & " ' ).  Porem na tabela ControleHE o campo HoraExtra Esta como Data/hora, entao ha a necessidade de Formatar com o # e no #.

Então corrija de acordo com o que vc achar melhor...

Me.Texto0 = Nz(DSum("[Quantidade]", "ConsQuadroHEVagas", "[Serviço] ='" & Me.AltaRenda.Caption & "' and [Horario] = '" & Format([Forms]![FormControleHE]![HoraExtratxt], "hh:mm") & "' and [Data] = # " & Format([Forms]![FormControleHE]![DiaExtraTxt], "mm/dd/yyyy") & "#") - DCount("[ChaveOp]", "ConsHEReg", "[Principal] ='" & Me.AltaRenda.Caption & "' and [HoraExtra] = # " & Format([Forms]![FormControleHE]![HoraExtratxt], "hh:mm") & " # and [DiaExtra] = # " & Format([Forms]![FormControleHE]![DiaExtraTxt], "mm/dd/yyyy") & " # "), 0)
Assim funciona como esta seu exemplo... Texto em uma tabela e Hora na outra tabela.

Outra coisa que deve fazer é remover o Critério das Consultas...

Ainda não está a funcionar!

Tanto em texto como em Data.
O quadro dentro do formulário onde diz "Vagas disponíveis para HE por serviço" permanece zero.

Amigo, então vc esta selecionando datas, ou Horas erradas... Veja na imagem a baixo.



Dados da Tabela.



So lembrando que está filtrando Pelo Serviço: h_cartao_alta_renda Logo so ele aparecerá valor.

Estranho!!
Me mande o BD alterado para eu comparar.

https://www.dropbox.com/s/5bbbxs7v33eeh6h/BDHE.zip?dl=0

Vc removeu os filtros la das Consultas? Pois ja é realizado com Dcout e Dsum...

Descobri o problema!
Um simples detalhe na tabQuadroHE onde a tamanho do texto para o horário, onde vc colocou 6 e eu não tinha definido tamanho.

Rererere, que bom que deu certo...