MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Aviso de recebimento

    avatar
    davipaulino
    Novato
    Novato

    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 em Sab 29 Jul 2017, 09: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 100%

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

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

    Mensagem  ahteixeira em Dom 30 Jul 2017, 09: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 100%

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

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

    Mensagem  davipaulino em Seg 31 Jul 2017, 07:10

    Maravilha!!!

    Perfeito, é isso que eu precisava.



    Obrigado.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Seg 31 Jul 2017, 07:53

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

      Data/hora atual: Ter 02 Jun 2020, 09:39