[Resolvido]Dcount e o uso de criterio em consultas

Boa tarde, tenho um relatorio de contagem do rebanho dentro deste relatorio puxo a quantidade de Matrizes, Touros, Novilhas, Bezerros (Machos e Femeas), so que quando coloquei um criterio na (consulta de Bezerro) tipo: Como "*"+[Qual Propriedade?] & "*", o seguinte comando para contar bezerro nao funciona mais =DCount("[NumTatuBeze]", "Consulta Bezerro", "[sexbeze]='Macho'") colocado na fonte de controle.
Observação antes de colocar o criterio na consulta bezerro funcionava redondo, alguem help me???

Bom dia,

Seria mais facil se postasses aqui a tua bd para poder dar-mos um help.

Abraço..

Segue o BD, Roberto por enquanto obrigada...

boa tarde,

Nas consultas aparece esta palavra que o msaccess não reconhece "fncIdadeCompleta"
Podes dizer o que é?

Obrigado

Aqui vai....

Era isso????


Agradeço feed-back.

Boa tarde Roberto desculpe a demora tive problemas com a internet, nao tenho esta funcao fncidade. Vou ver o que me enviou em anexo o banco de dados bezerro???

Ola roberto me equivoquei esta funcao pertence ao calculo da idade completa:

Public Function FncIdadeCompleta(DataNascimento As Date) As String
On Error GoTo trataerro
Dim Anos As Byte, Meses As Variant, Dias As Byte, DataRef As Date
If DataNascimento > Date Or DataNascimento = 0 Then
FncIdadeCompleta = ""
Exit Function
End If
If DataNascimento = Date Then
FncIdadeCompleta = 0
Exit Function
End If
Anos = Int(DateDiff("d", DataNascimento, Date) / 365.25)
DataRef = DateSerial(Year(Date) + (Format(DataNascimento, "mmdd") > Format(Date, "mmdd")), Format(DataNascimento, "mm"), Format(DataNascimento, "dd"))
Meses = DateDiff("m", DataRef, Date) + (Format(DataNascimento, "dd") > Format(Date, "dd"))
DataRef = DateSerial(Year(Date), Format(Date, "mm") + (Format(DataNascimento, "dd") > Format(Date, "dd")), Format(DataNascimento, "dd"))
Dias = CDbl(Date) - CDbl(DataRef)
FncIdadeCompleta = IIf(Anos <= 1, IIf(Anos = 0, "", Anos & " ano "), Anos & " anos ") & _
IIf(Meses <= 1, IIf(Meses = 0, "", Meses & " mes "), Meses & " meses ") & _
IIf(Dias <= 1, IIf(Dias = 0, "", Dias & " dia "), Dias & " dias ")
sair:
Exit Function
trataerro:
'MsgBox "Erro: " & Err.Number & vbCrLf & Err.Description, vbCritical, "Aviso", Err.HelpFile, Err.HelpContext
Resume sair:
'IdaBeze = Anos & Meses & Dias
End Function

Bom dia,

Viste a Bd que enviei???

Abraço...

ok!

Boa tarde,

O "ok!" foi para dizer que resolves-te?
Se sim é favor marcar tópico como [RESOLVIDO], o forum agradece.

Obrigado

bom dia, nao estou conseguindo abrir o banco de dados que vc enviou??? Segue erro em anexo, desculpe a ignorancia mas...

ACCESS 2010

Qual é o seu?

2010 tbem!!

não da pk???
Nem k tecla shift?

Boa tarde,

Para poder resolver seu problema tive que revincular as tabelas no meu PC.
Abre a BD com a tecla Shift e de seguida revincule as tabelas para as tabelas do seu PC.

Abraço.