MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Aviso de recebimento

    avatar
    davipaulino
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 17/02/2016

    [Resolvido]Aviso de recebimento Empty [Resolvido]Aviso de recebimento

    Mensagem  davipaulino 29/7/2017, 13:04

    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?
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7198
    Registrado : 15/03/2013

    [Resolvido]Aviso de recebimento Empty Re: [Resolvido]Aviso de recebimento

    Mensagem  ahteixeira 30/7/2017, 13:44

    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
    avatar
    davipaulino
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 17/02/2016

    [Resolvido]Aviso de recebimento Empty Re: [Resolvido]Aviso de recebimento

    Mensagem  davipaulino 31/7/2017, 11:10

    Maravilha!!!

    Perfeito, é isso que eu precisava.



    Obrigado.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7198
    Registrado : 15/03/2013

    [Resolvido]Aviso de recebimento Empty Re: [Resolvido]Aviso de recebimento

    Mensagem  ahteixeira 31/7/2017, 11:53

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

      Data/hora atual: 21/4/2021, 19:22