[Resolvido]Programa ordem de serviço

Boa Tarde!

Aqui onde trabalho desenvolvi um sistema de ordem de serviço, queria que qdo o colaborador fizesse um ordem de serviço - novo, eu com o programa minimizado, recebesse uma mensagem que tenho uma novo ordem de serviço, estava mensagem seria a cada ordem de serviço feita.

Sem que eu tenha que abrir o program toda hora, para ver as ordens de serviço novas, será que deu para entender...

Desde já obrigada.

Vanessa Pontes

Olá Vanessa, seja bem vinda ao forum.

Uma ideia poderia ser você colocar um evento no Timer do seu formulário para ficar loopando a tabela e se for detectada mudança no número de registro ou no número do último registro, lhe dispare a mensagem e armazene esse último número em uma variável para a próxima referência. Tente a dica abaixo.

Abra o módulo vba do seu formulário e adicione duas linhas logo após Option Compare Database assim:

Option Explicit
Dim UReg As Long

No evento "Ao carregar" do seu formulário, defina UReg como sendo o último código gravado na tabela:

UReg = DMax("Código", "NomeTabela")

Coloque o Intervalo do cronômetro em 1000 para a pesquisa ser feita segundo a segundo ou coloque o tempo que quiser e no evento "No timer" do formulário, coloque:

If DMax("Código", "NomeTabela") > UReg Then
MsgBox "Novo registro adicionado", vbOkOnly + vbInformation, "Atenção"
UReg = DMax("Código", "NomeTabela")
End If