[Resolvido]Aviso de recebimento

Saudações galera

Vejamos se alguém pode me dar uma luz;

Tenho um relatório onde faz um Requery a cada 10 segundos;
Preciso que quando chegue um novo registro ele emita um aviso sonoro.


Alguém sabe qual seria o caminho pra eu conseguir isso?

Olá Davi,

Pode usar uma variável com o total de registos.
Verificar se aumenta quando faz requery.

Pode usar com alternativa o Dcount(...), veja será algo assim:

Código:

Option Compare Database
'ahteixeira (2017) para MaximoAccess
Dim totalRegistos, verificaRegisto As Double

Private Sub Form_Open(Cancel As Integer)
    'atribuir o nº de registos ao abrir
    totalRegistos = Nz(DCount("*", "SuaTabela"), 0)
End Sub

Private Sub Form_Timer()

    'atribuir à variável o nº de registos
    verificaRegisto = Nz(DCount("*", "SuaTabela"), 0)
    
    'verificar se tem registo novo
    If verificaRegisto > totalRegistos Then
        'adiciona à variável que tem novo registo encontrado
        totalRegistos = verificaRegisto
        
        'faz o que pretender, neste caso avisa
        MsgBox "Registo novo recebido", vbInformation, ""
    End If
End Sub

Abraço

Maravilha!!!

Perfeito, é isso que eu precisava.



Obrigado.

Olá Davi Paulino,
Fico feliz por ter ajudado.
Obrigado pelo retorno, o fórum agradece.
Abraço