[Resolvido]Duvida com DCount

Amigos,

em uma caixa de texto colocada em form, preciso que conte os registros de uma outra tabela (relacionada) dentro das seguintes condições:

então eu tenho TblNucFam, o campo NucDataSaida que deve ser Nulo e o campo CasoId que deve ser = ao campo CasoId do form.



agradeço a colaboração

Boa tarde Alcides,


Me.CaixaDeTexto = DCount("[NucDataSaida]","TablNucFam","[Casold]=[txtCasold]")




Alcides mude o nome da caixa de texto do form, isso por experiencia minha,


então eu tenho TblNucFam, o campo NucDataSaida que deve ser Nulo e o campo CasoId que deve ser = ao campo CasoId do form.

Com a permissão dos dois;

=DCount("*";"TblNucFam";"CasoId=" & [CasoId] & " AND [NucDataSaida] Is Null")

Quem sou eu para rejeitar sua intervencao, rsrsrs.

E eu tambem.

mas coloquei o código na Origem do controle do campo e está dando #Erro.

conferi nomes de controles e campos. o que poderá ser.?

Tranquilo...

A instrução que passei é para a origem da caixa de texto.

Se fizer por VBA, será;

Me.SuaCaixaTexto.Value=DCount("*","TblNucFam","[CasoId]=" & Me.CasoId.Value & " AND [TblNucFam].[NucDataSaida] Is Null")

Desculpe, Desculpe, Desculpe.

estava faltando algo. funcionando agora.

Muitíssimo obrigado.

Veja o caminho das pedras.

Navegue até ao registro Nº3

https://dl.dropbox.com/u/771097/Alcides_II.rar

Se Resolvido, resolvido está, fico feliz.

Oi. desculpe voltar o tópico.
Teria como evitar #Erro quando não há Registro.
por exemplo, no seu modelo indo para o registro 9 que é um novo registro, a caixa de texto apresenta #Erro.

tem como ?

Sem duvida que sim, utilizando a função Nz

Me.SuaCaixaTexto.Value=Nz(DCount("*","TblNucFam","[CasoId]=" & Me.CasoId.Value & " AND [TblNucFam].[NucDataSaida] Is Null"),0)

Ou se for direto na origem;

=Nz(DCount("*";"TblNucFam";"CasoId=" & [CasoId] & " AND [NucDataSaida] Is Null"),0)

JPaulo. Continua dando erro. usando o modelo enviado por voce.
Fonte do Controle: =Nz(DContar("*";"TblNucFam";"CasoId=" & [CasoId] & " AND [NucDataSaida] Is Null"),0)
dá erro de Sintaxe

se coloco:
Fonte do Controle:=Nz(DContar("*";"TblNucFam";"CasoId=" & [CasoId] & " AND [NucDataSaida] Is Null");0)

aceita, mas continua aparecendo '#Erro' na caixa de texto quando não há registro.

Voce acha que seria melhor então usar o VBA no atual do form. ?

abraços.

Bom Dia ;

Utilize o IsError com um IIf ou Seimed

=IIf(IsError([SeuCampo]);0;Nz(DContar("*";"TblNucFam";"CasoId=" & [CasoId] & " AND [NucDataSaida] Is Null");0))

JPaulo, agora acho que podemos dar por RESOLVIDO.

ficou assim: =SeImed(ÉNulo([CasoId]);0;Nz(DContar("*";"TblNucFam";"CasoId=" & [CasoId] & " AND [NucDataSaida] Is Null");0)).

fiz umas adições no modelo que voce enviou e deu certo.

então tá. muito obrigado.

até a próxima. já tenho mais uma sobre tecla de atalho, vou abrir um tópico. pode ser ?



abraços

Perfeito.

Obrigado pelo retorno.