[Resolvido]Codigo para executar macro numa consulta com dados

Amigos, é possivel criar algum codigo que (depois de executada a consulta) caso existam dados na consulta seja executada uma macro?
Ou seja:
"executa consulta e se existirem dados executa macro se não existirem nao faz nada"

Abraço e desde já muito obrigado

Tente assim:

If DCount("*", "Consulta") > 0 Then
DoCmd.RunMacro "NomeMacro"
Else
Exit Sub
End If

Amigo Criquio,
Vou testar e ja lhe comunico o resultado.
Abraço

Certo. Aguardando...

Beleza... funcionou lindamente

Abraço e muito obrigado

Obrigado pelo retorno. Precisando, assovie

Amigo Cricio,
So mais uma duvida que surgio como devo fazer para repetir este codigo?
Ou seja:
If DCount("*", "Consulta1") > 0 Then
DoCmd.RunMacro "NomeMacro"
Else
Exit Sub

If DCount("*", "Consulta2") > 0 Then
DoCmd.RunMacro "NomeMacro"
Else
Exit Sub

Que efectue o dcount em varias consultas.

Mais uma vez obrigado

Se para cada consulta, uma macro separada, então melhor que seja assim mesmo, com um If para cada uma. Agora, se for o caso de se avaliar várias consultas para correr uma única macro, então pode colocar todas na mesma instrução If:

If DCount("*", "Consulta1") > 0 And DCount("*", "Consulta2") > 0 And DCount("*", "Consulta3") > 0 Then
DoCmd.RunMacro "NomeMacro"
Else
Exit Sub

No caso acima, todas as consultas precisam retornar maior que 0 para rodar a macro. Caso uma delas precise ser mais que o 0 e as outras não tem essa necessidade, mude And por Or.

Pois é amigo é cada consulta executa uma macro vou ter que fazer:

If DCount("*", "Consulta") > 0 Then
DoCmd.RunMacro "NomeMacro"
Else
Exit Sub

Para cada consulta.

Valeu amigão