[Resolvido]Diferença de 2003 para 2007

Bom dia

Com este comando no Access 2003 Funciona, mas no 2007 não funciona "Dá erro, e bloqueia a Base de Dados "

If DCount(" * ", Me.RecordSource) = 0 Then
MsgBox "Não Existem Vendas Registadas Neste Dia Para Visualizar", vbQuestion, "Aviso"
Cancel = True
DoCmd.openForm "MeuForm"

Obrigado

Bom Assis;

Não existe qualquer diferença, funciona plenamente no 2007.

http://dl.dropbox.com/u/771097/Assis.accdb

Tem de colocar no evento ao abrir do relatório;

Private Sub Report_Open(Cancel As Integer)
If DCount(" * ", Me.RecordSource) = 0 Then
MsgBox "Não Existem Vendas Registadas Neste Dia Para Visualizar", vbQuestion, "Aviso"
Cancel = True
DoCmd.OpenForm "MeuForm"
Else
Exit Sub
End If
End Sub

JPaulo

Desculpe a demora do retorno, e desde já obrigado, mas continua a dar erro, no 2007 só.

Cumprimentos

Bom dia Assis;

Mas dá erro nesse pequeno exemplo que lhe mandei ?

É que é no Access 2007 e não me dá erro algum.

Boa tarde JPaulo

Eu não posso ver esse exemplo eu tenho o 2003.
Só que estou a fazer Um programa para um amigo que tem o 2007 e ele é que me diz que dá erro.

Obrigado

Assis até no 2010 eu testei e funfa.

Mas se tiver problemas com essa instrução pode sempre optar por esta, que faz a mesma coisa.

Private Sub Report_NoData(Cancel As Integer)
MsgBox "Não Existem Vendas Registadas Neste Dia Para Visualizar...", vbCritical, ""
Cancel = True
DoCmd.OpenForm "MeuForm"
If Err = 2501 Then Err.Clear
End Sub

Obrigado JPaulo

Bom fim de semana

O amigo havia se esquecido de dar o tópico por Resolvido