sub formulario consulta quando chegar novo registro executa docmd beep

Boa tarde,

Estou precisando da ajuda de vocês,
tenho um formulário que tem subformulario que é alimentado por uma consulta, a cada 5 segundo no time, esse subformulario realiza um refresh para atualizar.
Gostaria que quando ele atualizar verificar se tem um novo registro se tiver ele executar o docmd beep.

Desde já agradeço.

Fiz essas alterações no codigo, mas quando a lista esta vazia da erro  diz que não pode ser null . não estou conseguindo solucionar peço novamente a juda.


Private Sub carregarDados()
Dim ListControl As Control
Set ListControl = Forms!Frm_Clientes_Exibir!!FrmSubClassificacaoPaniel!BE
Contar = ListControl
ListCount = "SELECT * FROM TB_ATENDIMENTO"


End Sub


Private Sub Form_Timer()
Refresh
RefreshDatabaseWindow
Connection

Dim ListControl As Control
Dim Contar As Integer
Set ListControl = Forms!Frm_Clientes_Exibir!!FrmSubClassificacaoPaniel!BE
Contar = ListControl
ListCount = "SELECT * FROM TB_ATENDIMENTO"

If ListControl > Contar Then

DoCmd.Beep

End If

olá

Olha se atende o que você precisa, só altere para sua consulta no select.

Código:

Private Sub carregarDados()
Dim ListControl As Control

Set ListControl = Forms!frm_clientes_exibir_old!ListaClientes

ListControl.RowSource = "SELECT * FROM tbl1"

End Sub

Código:

Private Sub Form_Timer()
Dim ListControl As Control
Dim Contar As Integer
Set ListControl = Forms!frm_clientes_exibir_old!ListaClientes

Contar = ListControl.ListCount
ListControl.RowSource = "SELECT * FROM tbl1"

If ListControl.ListCount > Contar Then

DoCmd.Beep

End If

End Sub