[Resolvido]Problema com Consulta no Formulário

Estou usando o seguinte.

If DCount("*", "qryconsulta2") = 0 Then
MsgBox "Não existe nenhum parcelamento para Este Cliente!", , " Atenção"
DoCmd.CancelEvent
Me.nomecliente.SetFocus
End If

If DCount("*", "qryconsulta2") > 0 Then

Dim stdocname As String
Dim stlinkcriteria As String

stdocname = "resumodébitos"

stlinkcriteria = "[nomecliente]=" & Me![ncliente]
DoCmd.OpenForm resumodébitos, , , stlinkcriteria
End If


End Sub

só que está sempre aparecendo que não existe! Agora já mudei mais tem coisa errada e eu não consegui ainda!

Está a utilizar a função DCount, estude-a!
A sua sintaxe é DCount("NomeCampo","NomeTabela","Critério")
Se quer filtrar tem de indicar o critério

Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.