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


2 participantes

    Mensagem avisa sobre novo registro inserido na tabela

    jleonardofcruz
    jleonardofcruz
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 75
    Registrado : 02/02/2012

    Mensagem avisa sobre novo registro inserido na tabela Empty Mensagem avisa sobre novo registro inserido na tabela

    Mensagem  jleonardofcruz 16/5/2013, 15:38

    Prezados,

    Preciso fazer uma caixa de mensagem que avise quando entrar um novo registro numa determinada tabela.

    Isso é possível no Access? Agradeço atenção.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Mensagem avisa sobre novo registro inserido na tabela Empty Re: Mensagem avisa sobre novo registro inserido na tabela

    Mensagem  criquio 16/5/2013, 18:19

    Explique melhor por gentileza. Trata-se de um sistema em rede com vários usuários e você quer que quando um deles inserir um novo registro emita um alerta? Se for isso, basta usar o Timer com um evento que fique verificando a tabela e emita a mensagem quando o número de registros aumentar:

    Código:
    Option Compare Database
    Option Explicit

    Dim Ultimo As Double
    No evento "Ao carregar" do formulário:
    Código:
    Ultimo = DMax("Código", "NomeDaTabela")
    No evento "No Timer":
    Código:
    If DMax("Código", "NomeDaTabela") > Ultimo Then
        MsgBox "Novo registro inserido", VBInformation, "Atenção"
        Ultimo = DMax("Código", "NomeDaTabela")
    End If


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


      Data/hora atual: 22/11/2024, 19:39