[Resolvido]Mensagem Automática

Bom dia, tudo bem!
Recorro a vocês com mais uma dúvida. Agradeço desde já pela atenção.
Tenho um banco de dados dividido, como tenho dois usuário utilizando o Bd, eu gostaria que a cada alteração nas tabelas fosse exibida para os demais usuários uma mensagem que houve a alteração, e em que tabela foi.
No exemplo abaixo, deixei um modelo, pois não sei se é possível fazer o que estou querendo.

http://www.mandamais.com.br/download/3evm75201095929

Mais uma vez, agradeço pela atenção.

Boa tarde, tudo bem!
Com a ajuda de outros feras, em discussões em outros foruns. Consegui adaptar para as minhas necessidades, um código que registra as alterações e exclusões feitas pelo usuário logado.
No entanto, não estou conseguindo fazer com que o código registre também as alterações feitas nos subformulários. Sendo assim, recorro a vocês, no intuito de solicitar ajuda para resolver esse problema.
Abaixo deixo o arquivo para download. Após o login, será exibido um formulário que contém um subformulário. dentro do arquivo contém também o formulário produtos que não contém subform, mas funciona o código.
Agradeço desde já pela força.

http://www.megaupload.com/?d=CC6OMEVW

Obs.: Já coloque essa dúvida em outro forum, se por ventura encontrar uma solução, também deixarei aqui a resposta.

Creio que possamos chegar a uma solução, enquanto isso, deixo uma dica: tente postar exemplos em servidores como o Esnips - www.esnips.com - ou similar. O Esnips não nos obriga a esperar para poder baixar o arquivo.

vê aqui a solução

http://www.forumweb.com.br/foruns/index.php?/topic/71801-gerar-historico-atraves-de-login-do-usuario/

Boa tarde, agradeço pelo retorno.

Raquel, eu já havia encontrado esse post, mas tentei realizar a alteração e não funcionou.

Olá,

Veja na sala de Repositórios de Exemplos Ms Access. Lá tem um exemplo chamado:

Quem introduziu, quem alterou (http://maximoaccess.forumeiros.com/repositorio-de-exemplos-ms-access-f7/quem-introduziu-quem-alterou-t213.htm

Talvez só precise adaptar.

Nivaldo.

Boa tarde, Nivaldo, agradeço o contato.
O exemplo que você indicou é muito bom, porém ele não controla a exclusão.

Pessoal,

Com a ajuda do Sr. Roberto Pires, consegui fazer funcionar no sub formulário bastando substituir o código conforme abaixo:

Function LogChange(strTipo As String)
Dim db As Database, rslog As Recordset
Dim frm As Form, subfrm As SubForm, I As Integer
Dim strLog As String

Set db = CurrentDb
Set rslog = db.OpenRecordset("tbl_LogChange")
Set frm = Screen.ActiveForm
Dim strMax As Date

Dim Control As Control
For Each Control In frm.Controls
If Control.ControlType = acSubform Then
Set subfrm = Control
For I = 0 To subfrm.Controls.Count - 1
If TypeOf subfrm.Controls(I) Is TextBox Or TypeOf subfrm.Controls(I) Is ComboBox Or TypeOf subfrm.Controls(I) Is CheckBox Or TypeOf subfrm.Controls(I) Is OptionGroup Or TypeOf subfrm.Controls(I) Is ListBox Then
If strTipo = "E" Then
If strLog = "" Then
strLog = subfrm.Controls(I).Name & " " & subfrm.Controls(I).Value
Else
strLog = strLog & "," & subfrm.Controls(I).Name & " " & subfrm.Controls(I).Value
End If
Else
If subfrm.Controls(I).OldValue <> subfrm.Controls(I).Value Then
If strLog = "" Then
strLog = subfrm.Controls(I).Name & " " & subfrm.Controls(I).OldValue & " -> " & subfrm.Controls(I).Value
Else
strLog = strLog & "," & subfrm.Controls(I).Name & " " & subfrm.Controls(I).OldValue & " -> " & subfrm.Controls(I).Value
End If
End If
End If
End If
Next

strMax = DMax("strDataHora", "tblUsers")
rslog.AddNew
rslog("strNomeForm") = subfrm.Name
rslog("strTipoLog") = strTipo
rslog("mmolog") = strLog
rslog("strUser") = DLookup("strUserID", "tblUsers", "strDataHora = #" & strMax & "#")
rslog("dtLog") = Now
On Error Resume Next
rslog.Update
rslog.Close
strLog = ""
End If
Next


Set rslog = db.OpenRecordset("tbl_LogChange")

For I = 0 To frm.Controls.Count - 1
If TypeOf frm.Controls(I) Is TextBox Or TypeOf frm.Controls(I) Is ComboBox Or TypeOf frm.Controls(I) Is CheckBox Or TypeOf frm.Controls(I) Is OptionGroup Or TypeOf frm.Controls(I) Is ListBox Then
If strTipo = "E" Then
If strLog = "" Then
strLog = frm.Controls(I).Name & " " & frm.Controls(I).Value
Else
strLog = strLog & "," & frm.Controls(I).Name & " " & frm.Controls(I).Value
End If
Else
If frm.Controls(I).OldValue <> frm.Controls(I).Value Then
If strLog = "" Then
strLog = frm.Controls(I).Name & " " & frm.Controls(I).OldValue & " -> " & frm.Controls(I).Value
Else
strLog = strLog & "," & frm.Controls(I).Name & " " & frm.Controls(I).OldValue & " -> " & frm.Controls(I).Value
End If
End If
End If
End If
Next


strMax = DMax("strDataHora", "tblUsers")
rslog.AddNew
rslog("strNomeForm") = frm.Name
rslog("strTipoLog") = strTipo
rslog("mmolog") = strLog
rslog("strUser") = DLookup("strUserID", "tblUsers", "strDataHora = #" & strMax & "#")
rslog("dtLog") = Now
On Error Resume Next
rslog.Update
rslog.Close
db.Close
End Function

No entanto, infantilmente, eu estava testando no arquivo de modelo que consegui no site informeaccess. Porém, o bd que eu quero implantar esse controle é baseado em um sistema fornecido pelo grande Avelino Sampaio (www.usandoaccess.com.br), que controla as ribbons.
Nesse bd, ainda não consigo fazer funcionar, deixo o arquivo abaixo, se alguém puder me ajudar.

http://www.esnips.com/doc/6dceec75-e33a-4be7-b149-132945017d70/LogSub1

O usuário de login é João e a senha é 123, qualquer coisa você pode acessar a base via shit+enter.

Agradeço desde já.

faz o que o osmar diz lá no link que te passei que resulta, afinal este codigo é dele.

Bom dia, tudo bem!
O link enviado acima estava quebrado, deixo um endereço mais garantido abaixo.

O código que mencionei acima funciona corretamente para o formulário tarefas. Porém, não estou conseguindo fazer funcionar no outro formulários que chamo de "pedidos".

Por favor, se me puderem ajudar novamente segue abaixo o arquivo.


http://questaotrabalhista.com/download/LogSub1.accdb

Olá Rodrigo;

Esse código também tem a minha contribuíção, numa parte do código, lembra-se no outro fórum ?

Veja se funfa, foi testado:
http://dl.dropbox.com/u/771097/LogSub1_OLD.rar

JPaulo, você tem toda a razão mil desculpas.
Aliás, suas contribuições são muito valorozas para mim e tenho certeza que para outras pessoas também.
Vou verificar o que você postou e retorno em breve.
Muito Obrigado.

JPaulo,
No arquivo que você disponibilizou, as alterações funcionaram corretamente. No entanto, coloquei mais um form com subform e não consigo fazer funcionar.
Pòr gentileza, você poderia indicar a alteração que você realizou para que eu possa fazer nos outros formulários.
agradeço pela atenção.


http://questaotrabalhista.com/download/LogSub1_OLD1.zip
O formulário que não funciona é o frmCadastrodeEmpresas, que contém o subform SubFormularioCadEmp

Amigão, os forms ou subforms têm de ter a Legenda (Caption) igual ao nome do próprio form ou subform.

Reveja e qualquer coisa dê um grito.

JPaulo,
Me perdoe a ignorância, mas não consigo encontrar.
Onde fica essa "Legenda (Caption)"

Propriedades do form ou subform

Aba Todos

O meu está em inglês mas dá para você entender;

JPaulo, agradeço pelo rápido retorno.
Por favor, veja no link da imagem abaixo, como deixei a propriedade do subform, mas mesmo assim não funcionou.

https://2img.net/r/ihimizer/i/imagemgox.jpg/

Coloque aqui novamente o banco com esses novos forms e subforms se faz favor.

ok,
segue o link abaixo.


http://questaotrabalhista.com/DOWNLOAD/LogSub1_OLD1.zip

Veja o simples;

http://dl.dropbox.com/u/771097/LogSub1_OLD2.rar

Você tem ae o seu, agora compare as diferenças do seu com o que eu lhe envio.

(Você colocou a lengenda igual ao do formulario...) Cada um tem de ter a sua rsrsrsrs

boa tarde, JPaulo.
Sinceramente eu não consigo enchergar o erro.
Substitui o que havia colocado na legenda do subform, pelo seu nome, assim como está no arquivo que você me enviou, mas não funciona....
Já não sei o que fazer, experimentei até mesmo, colocar novo form no arquivo que você envio, verifiquei os campos mas não funciona.

Se ainda puder olhar, coloquei de novo o arquivo para download com as alteraçãoes que pude identificar no arquivo que você enviou.


http://questaotrabalhista.com/DOWNLOAD/LogSub1_OLD1.zip

Veja a funfar;

http://dl.dropbox.com/u/771097/LogSub1_OLD_II.rar

JPaulo,
Agradeço a paciência.
Eu não estava conseguindo, porque estava colocando a função =logChange("A") no campo após atualizar, sendo que na verdade tinha que ser no campo, antes de atualizar. Meu colega Roberto que detectou e me informou.
Fiz os testes e deu certo.

Mais uma vez muito obrigado pela força.

Att.

Alan

O form frmCadastrodeEmpresas tinha na legenda CadastrodeEmpresas, teria de ter frmCadastrodeEmpresas

Também necessita de ter a chamada da função na linha do evento antes de atualizar =logChange("A") bem como no excluír =logChange("E"), não tinha.

No subform, tinha o =logChange("A") no evento depois de atualizar, tem de estar no antes de atualizar

testado e a funcionar, qualquer coisa dê um grito.

Pelo que vi não foi o seu colega não, veja com atenção todos os modelos que lhe enviei se eu mudei ou não mudei ?

è vc mudou sim, eu que não vi nas minhas comparações falhas, rsrsr...
A sua ajuda foi essencial, pois além de mostrar o erro, ajuda a gente a pensar.
Obrigado

Valew, qualquer coisa tamos ae.

JPaulo, bom dia.
É sou eu novamente.

Atualizando meu bd, me deparei com a seguinte situação. Tenho um form, que contém um subform, que contém um subform em folha de dados.

Pelos seus conhecimentos, você acredita que o código deste assunto, deveria funcionar para o segundo subform? Acontece que comigo não está funcionando, você teria como verificar, por gentileza?

Obrigado desde já

http://questaotrabalhista.com/download/TESTES.zip