[Resolvido]Registra Alterações (Logs) nos Forms e Subforms

Prezados


stou utilizando o módulo do Mestre João Paulo para Registrar Alterações (Logs) no meu projeto

porem estou com o seguinte problema

tenho subformulários inseridos no meu formulário e as alterações não são registradas quando altero qualquer campo contido no subformulário

o trecho do código que acho ter pertinencia com o problema é

For Each ctl In Me.Controls

' Percorre todos os tipos de controles
Select Case ctl.ControlType
Case acTextBox, acComboBox, acListBox, acOptionGroup, acCheckBox

tentei inserir acSubform sem sucesso

alguem tem alguma idéia de como posso fazer?

abraços

e bom Domingo

Fala Sanches!!!

Cara, o código é muito grande????
Ficaria mais fácil, colocar a parte toda em que o sistema trabalha com os forms!!!!

Desde já agradeço...

Abraço a todos!!!!

Já ajudei aqui mesmo nessa duvida;

Para o subformulario, tem de ser cópia do código, mas com esta alteração;

For Each ctl In Me!SeuSubform.Controls

Ou

For Each ctl In Forms!SeuForm!SeuSubform.Form.Controls

Boaaaaaa!!!!!

Assunto encerrado então!!!!!
hahahahahahahahahahaahhahaa

Desde já agradeço...

Abraço a todos!!!!

JPaulo vlw pela resposta,

acabei fazendo o seguinte

criei uma função utilizando seu código e chamei no evento antes de atualizar dos subforms

como utilizo tela de login, passo o parametro pela função, acabei tambem conseguindo limpar a tabela com valores vazios

o detalhe é que não vinculo nenhuma tabela do historico no meu front-end

abraço

Public Function Registra(strFrm As Form, strusuario As String) As String

Dim strChekaDiferente As Boolean
Dim strSQL As String
Dim ctl As Control
Dim strSQL1 As String



On Error Resume Next


strChekaDiferente = False



For Each ctl In strFrm.Controls

' Percorre todos os tipos de controles
Select Case ctl.ControlType
Case acTextBox, acComboBox, acListBox, acOptionGroup, acCheckBox

If ctl.Value <> ctl.OldValue Or (IsNull(ctl.Value) Or ctl.Value = "") Then
'se algum valor foi alterado ou deletado, coloca a variável de chekar alterações como True
strChekaDiferente = True
'e registra na tabela do Log
DoCmd.SetWarnings False

strSQL = "INSERT INTO tblLog (Utilizador, LogData, NomeForm, NomeCampo, ValorAntigo, ValorAtual) IN 'caminhodobanco' " & _
"Values('" & strusuario & "', Now(),'" & strFrm.Name & "','" & ctl.Name & "','" & ctl.OldValue & "','" & ctl.Value & "')"

DoCmd.RunSQL strSQL

DoCmd.SetWarnings True
'termina e volta a colocar a variável de chekar alterações como False
strChekaDiferente = False
Else
Cancel = True
End If

End Select

Next ctl

DoCmd.SetWarnings False
strSQL1 = "DELETE * FROM tblLog IN 'caminhodobanco WHERE (tblLog.ValorAtual)=[tblLog].[ValorAntigo]"
DoCmd.RunSQL strSQL1

End Function

Obrigado pelo retorno o forum agradece.