[Resolvido]Contar Registos num Formulário Filtrado

Boas

Estou com um problema para conseguir fazer uma verificação num formulário.
Tenho um formulário continuo filtrado onde apenas aparecem os registos onde um determinado campo é nulo.

No cabeçalho do formulário coloquei uma caixa que me conta o n de registos visiveis =Contar([CodArtigo]), onde CodArtigo é uma campo chave (obrigatório preencher)

Queria que quando não houvesse registos para mostrar, ou seja Contar([CodArtigo]) = 0 ele fechasse o formulário.

Usei o seguinte código:
Private Sub Form_Load()
'COUNTREG Campo com o valor de Contar([CodArtigo])
If COUNTREG Is Null Then DoCmd.Close
End If
End Sub

Tão simples, mas nunca fiz a rotina e não estou a conseguir ver o problema

Não resolveu.

Private Sub Form_Open(Cancel As Integer)
If Me.COUNTREG = 0 Then
Cancel = True
Exit Sub
End If
End Sub

ERROR 2427

Acho que tem a ver com o tipo de dado que retorna a função contar() no sql, porque ele não consegue avaliar a expressão

If Me.CountReg = 0 Or IsNull(Me.CountReg) Then

O simples de fazer fechar um formulario, se não existirem registros;


No evento VBA ao carregar do seu formulario:

Private Sub Form_Load()
If Me.Form.Recordset.RecordCount = 0 Then
MsgBox "Não há registos..."
DoCmd.Close
End If
End Sub

Já resolvi.

Deixei de usar o contador do formulário e conto directamente na consulta programado por VBA na instrução OPEN do formulário.

intctr = DCount("[CodArtigo]", "MATERIAISCons", "[FAMILIA] = null")

Depois é só

If intholder = 0 Then
Cancel = True
Exit sub

Estive a ler sobre as propriedades de Contar() directamente no sql e devolve um valor double, e não sei como programar VBA com o valor Double.
Devia ser esse o problema.

Obrigado pela ajuda.
Pedro

EDIT: Desculpe JPaulo, só vi a sua resposta depois de escrever isto, já agora vou testar, já digo alguma coisa.

Caro JPaulo

É isso mesmo, está mesmo a funcionar como queria.
Grande Obrigado

Pedro