Registro de Log e alteração nos Formularios

Amigo JPAULO,

peguei um artigo seu que se trata de registro "Quem Entrou e quem alterou", daí estou tentando aplicar para vários formularios, mas so consegui colocar em um.

duvidas;
é possivel aplicar o seu exemplo em mais de um formulario do mesmo banco de dados?

OBS: eu nao tenho conhecimento em VBA e criação de modulos, voce poderia me ajudar por favor?

segue link do meu BD.


https://onedrive.live.com/redir?resid=1CBC240C39947416!112&authkey=!ACN5cdwNlw5UErE&ithint=file%2crar


obrigado!!!

Olha, eu ja implementei sim em mais de um Formulário (se for o que estou pensando, como vc nao colocou o Link de Origem e nem Colocou nesse exemplo o formulário que ja fez, fica difícil saber se é realmente o que vi a um tempo).

A principo o que precisa fazer é copiar o comando la do Botao Salvar para o novo formulario, botao salvar... Fazer as devidas alteraçoes de Nomes de Campos... e Realizar a chamada dele nos botoes de Navegação... Bem como fazer o mesmo com o Botao Excluir...

grande Fabio,

seguinte, acho que nao me expressei legal, daí ficou dificil o entendimento.

seguinte, eu quero aplicar o exemplo do link abaixo criado pelo JPAULO

https://www.maximoaccess.com/t213-quem-introduziu-quem-alterou?highlight=introduziu






so que eu nao consegui aplicar para mais de um formulario, o formulario que está funcionando é o frm_cadastrar_audiencia




o formulario abaixo ja está com os codigo, porem ta indo para o depurador, e pretendo criar mais e aplicar o exemplo tambem.

frm_cadastrar_processos

https://www.dropbox.com/s/o91lsglozcpxtug/SisJUR.zip?dl=0

Fiz algumas mudanças para o correto funcionamento em mais de um Formulário...

O Formulário frm_menu_administrador deverá ficar sempre aberto, pois ele armazenara o nome do usuário logado para ser usado no filtro da qryUserLogado.

Para colocar em outros formulários, siga as instruções que estão no Formulário frm_cadastrar_processos

mano Fabio, qualquer ação nos formularios (abrir, colocar no modo design....) está apresentando o seguinte erro no modulo rastreio. print abaixo;

desde já agradeço pela força!!!

Mude do Else pra Baixo:

#Else
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Public Declare Function GetIpAddrTable Lib "IPHlpApi" (pIPAdrTable As Byte, pdwSize As Long, ByVal Sort As Long) As Long
Declare Function TSB_API_GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
#End If

amigão, mudei o Else e funcionou, agora aparece os seguintes erros toda vez que vou salva um novo cadastro no formulario de audiencia.

Veja no exemplo que mandei, eu mudei a qryUserLogado para pegar o usuario que esta no campo no Formulario principal...

Releia a mensagem que postei e as instruções no Formulário...

O Formulário frm_menu_administrador deverá ficar sempre aberto, pois ele armazenara o nome do usuário logado para ser usado no filtro da qryUserLogado.

mas o interessante é que o frm_menu_administrado está aberto

Apague os Campos iguais la do seu Formulario De Audiencia:




E Copie Esses, e Cole la no lugar deles:




So pra explicar, o motivo do erro é:

Nos codigos VBA os nomes dos Campos estao diferente dos que estão no seu formulario.

Ex: VBA esta: IPRegisto e no seu Formulario está: IP_Registo

USErREGISTRO E seu formulario está: USER_REGISTRO

Boa noite grande Fabio! desculpa a demora no retorno, o trabalho me pegou de jeito por esses dias.

quanto ao carregar o usuario quando loga deu certo, mas apareceu outra bronquinha. segue abaixo.

seguinte, eu estava pesquisando no forum e de repente encontrei outra forma de registrar historico de alteração tambem criada pelo nosso amigo JP e achei até melhor. só que nao estou conseguindo finalizar, cada formulario carrega o codigo, mas nao está gravando os registro que apago e nem os novos registros só faço alterações.

segue abaixo link do BD.

https://1drv.ms/u/s!AhZ0lDkMJLwccX0bHPmc7jqcomw

os formularios são;

frm_cadastrar_audiencia

frm_cadastrar_processos

estão indo para o depurador acusando o seguinte erro abaixo.




obrigado pela ajuda!!!

O importante não é essa Tela que me mandou, e sim a Anterior... Pois ela fala: O Numero de Valores de Consulta e numero de Campos não Coincidem.
Ou seja, tem poucos campos na tabela, e MUITOS dados... Vamos conferir:

(Utilizador, LogData, NomeForm, NomeCampo, ValorAntigo, ValorAtual, Status) Aqui são 07 Campos da Tabela

Values('" & strUser & "', Now(),'" & Me.Form.Name & "','" & Me.txtCodProc & "','" & Me.txtNumProcesso & "','" & Me.txtRegiao & "','" & Me.txtVara & "','" & Me.cboNatureza & "','" & Me.txtDataDistribuicao & "','" & Me.txtDataCitacao & "','" & Me.cboCausaProcesso & "','" & Me.txtDataUltimoAndamento & "','" & Me.txtValorCausa & "','" & Me.txtValorAtualizado & "','" & Me.cboExpectativaExito & "','" & Me.cboEscritorioParceiro & "','" & Me.cboAdvogadoResponsavel & "','" & Me.cboResponsabilidadeDireta & "','" & Me.cboSituacaoProcesso & "','" & Me.cboExitoProcesso & "','" & Me.cboMotEncerramento & "','" & "','" & Me.txtCodAutor & "','" & Me.txtAutorI & "','" & Me.txtCPFAutorI & "','" & Me.txtAutorII & "','" & Me.txtCPFAutorII & "','" & Me.txtAutorIII & "','" & Me.txtCPFAutorIII & "','" & Me.txtAutorIV & "','" & Me.txtCPFAutorIV & "','" & Me.txtReuI & "','" & "Registro Apagado" & "')" Aqui tem mais de 20 Campos... Alem de alguns errinho por ali...

Sugestão: Se quer guardar todos os Campos do formulário em um único da tabela, Crie novo Campo na sua Tabela do tipo Texto Longo e Junte todos nesse Campo...

Separei por cores alguns Campos, para vc saber onde inicia e termina cada campo...

Irei postar logo mais um exemplo com alguns campos

realmente no momento em que estava criando o codigo eu nao conseguir inserir todos campos do formulario no VBA o access nao deixou, como se estivesse limites.

Veja o que foi feito:
Criei um campo novo chamado Excluido na tabela de Log, que ira armazenar os dados excluido...

O Comando do Botão excluir foi Modificado, para Juntar todos os Campos e salvar na tabela no campo Excluido.

Veja o sql:

"Values('" & strUser & "', Now(),'" & Me.Form.Name & "','Cod processo: ' & '" & Me.txtCodProc & " Nº Processo: " & Me.txtNumProcesso & " Região: " & Me.txtRegiao & " Vara: " & Me.txtVara & " Natureza: " & Me.cboNatureza & " Data Citação: " & Me.[Data Citacao] & "','" & "Registro Excluido" & "')"

A parte em Vermelha sera concatenada e ficar tudo no Campo Excluido...


Para vc entender e replicar para os demais campos:
'Cod processo: ' & '" & Me.txtCodProc & " Nº Processo: " & Me.txtNumProcesso &

'Cod processo: ' Aqui eu estou dando um Rotulo para o valor seguinte;
& aqui eu estou dizendo pra Juntar isso aos proximos valores;
'" & Inicio da referencia aos campos do Formulario, que deverá ser fechado no Final...
Me.txtCodProc & Aqui ele vai pegar o valor que tem nesse Campo do Formulario e juntara aos proximos campos...
" Nº Processo: " & Aqui eu defino o Rotulo para o Novo Valor...
Me.txtNumProcesso & Aqui ele pega o Valor do Campo do formulario e junta aos proximos...


Dessa forma, basta dar sequencia aos campos amigo:

'Cod processo: ' & '" & Me.txtCodProc & " Nº Processo: " & Me.txtNumProcesso & " Nome do Rotulo: " & Me.NomedoCampo & ...

A dica que lhe dou, é: Coloque um Campo, faça a Exclusão... se deu certo, vá pro proximo... se nao, corrija...


https://1drv.ms/u/s!AhWpj9ILLX1XhTRi9kNHHo0cH_9h

Fabio, eu entendi o processo e ja estou digitando todos os campos do formulario, porem nao coube todos na mesma linha da sql. nesse caso como faço para dar continuidade?

Observe que ja fiz nesse mesmo SQL... antes disso tem uma quebra de linha (<=="Values('" & strUser &)

Mas a principio tera que Fechar a aspas " & dar um espaço e colocar um _ ( " _
)

Na linha seguinte Abra a aspas " e continue a digitação normalmente.

Se atentar para o espaço caso na quebra de linha tenha que ter um espaço, devera colocar antes ou depois da quebra...

Ex: Select * from TB1
Select *" & _
"From tb1" <== Esta errado

Select * " & _
"From tb1"

amigo Fabio, consegui lançar a sql.

eu digitei tudo pra poder me familiarizar considerando que estou aprendendo, e tambem tive que digitar o codigo no botao salvar. quero agradecer seu apoio que foi total na construção desse formulario, nao foi a primeira vez e espero que nao seja a ultima rsrs pq pretendo aperfeiçoar mais.



lembrei de outra problemática, eu nao consigo abrir esse BD em 64bits, acredito que seja alguma instruçao no modulo limitando so para 32, o que tenho que fazer?


e tambem estou tentando implantar o filtro num formulario continuo baseado no Maestro do mestre Avelino, mas está acusando algo que nao compreendo, poderia me apoiar?

segue abaixo nome do formulario e link do BD.

frm_lista_processo

https://1drv.ms/u/s!AhZ0lDkMJLwcdMMVXK03Yu68Kx4

Sobre o 64 bits, veja esse material do avelino e adapte pro seu sistema. o problema e la no Modulo...
http://www.usandoaccess.com.br/tutoriais/configurar-api-access-de-64-e-32-bits-ptrsafe.asp?id=1

Sobre o filtro...

Nao conheço essa forma de filtragem do Maestro...

Mas me diga como pretende aplicar esses filtros:
Seria filtros independentes? quero pesquisar processo, aee digito no campo processo, e o filtro ignora os valores que POR ACASO estejam digitados nos outros campos?

Ou

Quer integrado, tipo digito algo no Campo Processo, algo no campo acusado.. e quero que o resultado sejam baseado nesses dois campos?



Assim que possivel irei mexer nesse filtro, pois demanda um pouquinho de tempo...

vou levar decadas pra compreender e adaptar essa explicação do Avelino, mas vou quebrar a cabeça, caso eu nao consiga peço help.

quanto ao filtro sao independentes sim, dessa jeito mesmo que vc compreendeu.

segue abaixo link do modelo que estou tentando adaptar.



https://1drv.ms/u/s!AhZ0lDkMJLwcddcL_kAEoSppiqs

Meu amigo, da uma olhada nesse Post aqui, tem uma filtragem bem simples de aplicar... Construa ela para cada campo do seu formulario...

https://www.maximoaccess.com/t26778-resolvidofiltrar-exemplo

Amigão, dei uma mexida no seu arquivo...

A grosso modo esta errando no seguinte:

Nome das caixas de texto que se digita, elas devem ter nomes iguais acrescido de numero sequencial 1,2,3 (txt1,txt2...)

Nome dos campos para filtragem, deve ser os nomes dos campos DA TABELA e nao os nomes dos campos do FOrmulario... pois sera construído uma consulta com eles...

Basicamente isso...

Fabio Maravilha o filtro está funcionando, mas se digitar uma letra ou nome que nao existe, ou se de repente eu errar ao digitar vai para o depurador, veja o print abaixo.

no caso como faço para que, quando eu digitasse ou errasse ao digitar nao fizesse ação nenhuma, tipo se o nome nao existe ele nao tem o que procurar nao tomará nenhuma ação.