[Resolvido]Histórico de alteração e exclusão de dados

Boas novas pessoal,
surgiu uma dúvida grande aqui para mim, eu peguei um exemplo do Jpaulo de RegistraHistoricoAlteracoes que ele criou que está aqui no forum, até então eu consegui entender a ideia do assunto, porém gostaria de saber como é que eu faço para que isto funcione em subformlário...

exemplo:

O pião está em um formulário, e existe um subformulário com campos de itens de serviços daquele formulário, quando o camarada apagar uma linha que estão organizado pelo campo item, e vinculados pelo campo ID:

ID | Item | Serviço | Equipamento | Valor | etc...
1 1 Vendas Multímetro HP R$25.000,00
1 2 Manutenção Micrôpipeta R$90,00
1 3 Calibração RBC Paquímetro 150mm R$25,00
1 4 Vendas Manômetro Digital R$180,00


O Pião excluiu o campo marcado em vermelhor, mas até então não sei como é que escrevo no vba para que ele entenda que a linha selecionada é o id e que foi apagada usando o delete, pois até então não tem o botão apagar...

E se possível colocar no cmd de ao excluir, ou antes de excluir em vez de botão:

E por favor se tiver como explicar os comandos para que eu possa entender eu agradeço
O código do Jpaulo foi este:

Código:

Private Sub Excluir_Click()
'By JPaulo ® Maximo Access
'http://maximoaccess.forumeiros.com/
Dim apaga As Integer
Dim alerta As String
Dim Busca As String
Dim strUser As String
Dim strSQL As String

strUser = GetUserName_TSB
Busca = Me.ID 'informa o CurrentRecord
apaga = MsgBox("Confirma excluir o registro:" _
& vbCr & " " & Busca & "  ?", vbOKCancel + vbCritical, "Atenção!")
    Select Case apaga
        Case vbOK 'se for SIM, adiciona à tabela de Log e de seguida deleta
strSQL = "INSERT INTO log_Tabela1 (Utilizador, LogData, NomeForm, ID, Serviço, DataCalibracao, Periodicidade) Values('" & strUser & "', Now(),'" & Me.Form.Name & "','" & Me.ID & "','" & Me.Serviço & "','" & Me.DatadaCalibração & "','" & Me.Periodicidade & "')"
DoCmd.RunSQL strSQL
     
            DoCmd.RunCommand acCmdDeleteRecord
        Case vbCancel
            Exit Sub
    End Select
    DoCmd.Close
End Sub

Em realidade, cógido pega o usuário e os dados que ele está alterando e os lança na tabela. Isto está visível no código.

Se leres com atenção perceberá isto.

Quanto a fazer em sub form, nos envie teu exemplo para que possamos adapta-lo.

Cumprimentos.

Salve Harysohn,
Exemplo:
http://www.mediafire.com/download.php?1n62sbt46a4dcme

Pode se fazer o teste no formulário_CadastroDeEquipamentosNRBC
Contem bastante subformulários
Login: Dennis
Senha: 0790

Eu estava pensando se é possível saber qual informações foram excluídas, estava pensando criar um banco identico e salvar todas as informações excluídas neste banco, mas não sei como fazer...

A função alterar está muito bom, pois ele pega todos os campos alterados e salva na tabela log, mas o excluir não pega todas as informações, então pensei em fazer como citei acima. se conseguir ajudar agradeço

Abraços

Bom dia!

Estou fazendo um histórico de alterações e para tanto, utilizei o exemplo RegistraAlterações do Moderador JPaulo.

O banco que estou fazendo, possui um esquema de login e senha, baseado em uma consulta.

Desta forma pretendo informar na tblog o login do banco (que aparece na consulta) e não o utilizador que esta logado no computador.

Como fazer?

No aguardo de respostas,

Agradeço de forma antecipada.

Amigão.. Não consigo aceder ao BD, dever algo com relação as permissões e tal

Cumprimentos.

Opa foi mal,
Segura o shift quando for apertar enter para fazer o login, vai desabilitar todos os módulos, assim abrira todas as janelas do access

Boas Dthm15, ja tinha feito isso porém não deu. é algo com o antigo sistema do 2003, sobre permissões.

NANDOJPA

Seja bem vindo al Fórum!

Observe o código:


Private Sub Command11_Click()
'By JPaulo ® Maximo Access
'http://maximoaccess.forumeiros.com/
Dim apaga As Integer
Dim alerta As String
Dim Busca As String
Dim strUser As String
Dim strSQL As String

strUser = GetUserName_TSB
Busca = Me.Código 'informa o CurrentRecord
apaga = MsgBox("Confirma excluir o registro:" _
& vbCr & " " & Busca & " ?", vbOKCancel + vbCritical, "Atenção!")
Select Case apaga
Case vbOK 'se for SIM, adiciona à tabela de Log e de seguida deleta
strSQL = "INSERT INTO tblLog (Utilizador, LogData, NomeForm, NomeCampo, ValorAntigo, ValorAtual, Status) Values('" & strUser & "', Now(),'" & Me.Form.Name & "','" & Me.MNome & "','" & Me.Idade & "','" & Me.Morada & "','" & "Registro Apagado" & "')"
DoCmd.RunSQL strSQL

DoCmd.RunCommand acCmdDeleteRecord
Case vbCancel
Exit Sub
End Select
DoCmd.Close
End Sub


Veja que ele carrega o usuário do sistema na variável strUser.

Carregue uma variável global no momento do login com o usuário. em seguida use essa variável global no lugar do strUserCumprimentos

Bom dia Harysohn,
Agradeço à minha aceitação ao fórum e à atenção dispensada ao responder o meu questionamento.

Harysohn, a minha dúvida persiste, pois eu gostaria, caso seja possível, que ao invés de carregar o usuário do sistema na variável strUser, carregasse o campo login, de uma consulta do banco de dados que estou fazendo,
Desta forma pretendo informar na tblog o login do banco (que aparece na consulta) e não o utilizador que está logado no sistema.
Não entendo muito de VB, mas o utilizo por intuição e até agora com ajuda de feras com você que compõem este importante fórum, todos os códigos que usei deram certo.
Desta forma faço um leigo questionamento.
Como eu faço para carregar uma variável global no momento do login com o usuário, que atenda ao meu questionamento?
Na certeza da resposta,
Agradeço de forma antecipada.
Cordialmente,
Fernando Jr (NANDOJPA)

NandoJPA
Só faltou o carimbo e assinatura no ofício...hehehe..

Antecipadamente, cordialmente etc. e tal rsrs...

Bem, brincadeiras a parte.

Não se como é o sistema de login que utilizas, mas se nele tiver uma módulo, no início do Módulo aplique

Option Compara Database
Public StrLogUser as String

e no código


'By JPaulo ® Maximo Access
'http://maximoaccess.forumeiros.com/
Dim apaga As Integer
Dim alerta As String
Dim Busca As String
Dim strUser As String
Dim strSQL As String

'strUser = GetUserName_TSB - Linha desabilitada
Busca = Me.Código 'informa o CurrentRecord
apaga = MsgBox("Confirma excluir o registro:" _
& vbCr & " " & Busca & " ?", vbOKCancel + vbCritical, "Atenção!")
Select Case apaga
Case vbOK 'se for SIM, adiciona à tabela de Log e de seguida deleta
strSQL = "INSERT INTO tblLog (Utilizador, LogData, NomeForm, NomeCampo, ValorAntigo, ValorAtual, Status) Values('" & strLogUser & "', Now(),'" & Me.Form.Name & "','" & Me.MNome & "','" & Me.Idade & "','" & Me.Morada & "','" & "Registro Apagado" & "')"
DoCmd.RunSQL strSQL

DoCmd.RunCommand acCmdDeleteRecord
Case vbCancel
Exit Sub
End Select
DoCmd.Close



Cumprimentos.

eae Jpaulo,
Estava estudando a fundo este programa para uso pessoal e me deparei com alguns erros,

Quando se altera qualquer campo com formatos que não seja sim/não e está vazio e não nulo, ele registra a alteração do mesmo jeito, eu resolvi fazendo simplesmente isso:

If ctl.Value <> ctl.OldValue Or ctl.Value = "" Then 'removendo o Is null

Pois a variavel *Is null(ctl.Value) não estava exercendo direito a sua função visualmente é claro, então para qualquer campo em vazio ele se dava como diferente:

Explicando melhor, Se um campo está vazio ele não está null ele está "" então o código faz com que ctl.Value seja <> de Nulo, então o código acaba gerando um monte de campo em branco

se puder corrigir isto, ou tenha uma outra saída melhor do que a minha posta pra nós.

Agradeço de mais a atenção, e irei recomendar a todos este fórum.

Resolvido.

Em especial agradeço a você Harysohn pelo tempo e o pronto atendimento.

Denis

A linha completa no exemplo do JPaulo e:

If ctl.Value <> ctl.OldValue Or (IsNull(ctl.Value) Or ctl.Value = "")

Veja que também tem o tratamento para quando o campo for vazio ("")

Na linha acima o o código verifica SE:
1 - o valor atual é diferente do valor antigo
2 - Se é nulo ou se é uma sequencia vazia.
Caso algum deles for verdadeiro, então...


Abraços

Boas Balem, o resolvido em uma mensagem foi colocado, pelo usuario NandoJpa, em uma duvida que sanei do mesmo neste tópico.

A dúvida ooriginal do usuário Dhtm15 é:

Boas novas pessoal,
surgiu uma dúvida grande aqui para mim, eu peguei um exemplo do Jpaulo de RegistraHistoricoAlteracoes que ele criou que está aqui no forum, até então eu consegui entender a ideia do assunto, porém gostaria de saber como é que eu faço para que isto funcione em subformlário...

exemplo:

O pião está em um formulário, e existe um subformulário com campos de itens de serviços daquele formulário, quando o camarada apagar uma linha que estão organizado pelo campo item, e vinculados pelo campo ID:

ID | Item | Serviço | Equipamento | Valor | etc...
1 1 Vendas Multímetro HP R$25.000,00
1 2 Manutenção Micrôpipeta R$90,00
1 3 Calibração RBC Paquímetro 150mm R$25,00
1 4 Vendas Manômetro Digital R$180,00


O Pião excluiu o campo marcado em vermelhor, mas até então não sei como é que escrevo no vba para que ele entenda que a linha selecionada é o id e que foi apagada usando o delete, pois até então não tem o botão apagar...

E se possível colocar no cmd de ao excluir, ou antes de excluir em vez de botão:

E por favor se tiver como explicar os comandos para que eu possa entender eu agradeço

O mesmo havia me enviado o BD, porem eu não consegui abrí-lo pois está com algo relacionado a permissoes de grupo do access 2003, eu pedi novamente e ate o instante ele não me enviou.


Quanto a questão que você respondeu a ele, essa mensagem estava no repositório e eu a movi para cá, deixando a sala de repositório livre de mensagens.


Abraços.