Registrando alterações no form apenas se atualizar algum campo

Bom dia.

Tenho um formulário com uma combinação que atualiza o subformulario. No subformulario eu tenho vários campos e trabalho com esse modulo para registrar alterações

Public Function RegistaAlteracoes(frm As Form, Optional bHasInactive As Boolean = False) As Boolean

   Dim strForm As String
   Dim strUser As String
   Dim strIP As String
   Dim strUserLog As String
   
   strForm = frm.Name
   strUser = GetUserName_TSB
   strIP = DameIpMaquina()
   strUserLog = DLookup("strUserID", "qryUserLogado", "strUserID")
   If frm.NewRecord Then
       frm!DataRegisto = Now()
       frm!UserRegisto = strUser
       frm!IPRegisto = strIP
       frm!UserRegistoLog = strUserLog
   Else
       frm!DataModificacao = Now()
       frm!UserModificacao = strUser
       frm!IPModificacao = strIP
       frm!UserModificacaoLog = strUserLog
   End If
   
   
Exit_RegistaAlteracoes:
   Exit Function

End Function

o problema é quando eu clico em qualquer campo campo do subform, ele muda automaticamente o campo "UserModificacao". Para isso no subform eu tenho

Private Sub Form_BeforeUpdate(Cancel As Integer)
Call RegistaAlteracoes(Me, False)
End Sub

só funciona se tiver no "antes de atualizar.

eu gostaria de colocar no botão de salvar, ou seja ele só vai atualizar o campo "UserModificacao" se eu fizer alteração e clicar no botão salvar.

alguem pode me ajudar?

esse link é de uma foto do bd http://prntscr.com/jhqwx6

Tardesss

Teste no botão salvar

Call RegistaAlteracoes()

Olá amigo Silvio,

não deu certo. ele fala que o valor não é opçional

mas consegui resolver o problema. Coloquei "Call RegistaAlteracoes(Me, False)" no botão salvar e coloquei o botão salvar dentro do subformulário. ele estava no form e como as alterações são feitas apenas no subform, deu certo.

Obrigado pela atenção e ajuda. vlw

Maravilha...não se esqueça de dar o tópico como resolvido.

COMO FAÇO ISSO?