Salvar de 30 segundos em 30 segundos quando está no foco de um campo memo

Olá, a propósito de questão de colega, partilho exemplo de salvar de 30 em 30 segundos num campo memo (poderá ser aplicado noutro campo/tipo de campo).
Tópico da questão
Segue o código e exemplo:

Código:

Option Compare Database

'ahteixeira 2016 para MaximoAccess
Private Sub Form_Open(Cancel As Integer)
    Me.TimerInterval = 0
End Sub

Private Sub Form_Timer()
    DoCmd.RunCommand acCmdSaveRecord
    Me.Gravado = Now()
End Sub

Private Sub ObsMemo_GotFocus()
    Me.TimerInterval = 30000 '30 segundos
End Sub

Private Sub ObsMemo_LostFocus()
    DoCmd.RunCommand acCmdSaveRecord
    Me.Gravado = Now()
    Me.TimerInterval = 0
End Sub


Abraço

Muito bom meu amigo Ahteixeira! Excelente exemplo, simples e eficaz!!!

Grande Ahteixeira, boa tarde.

Amigão, muito bom esse seu exmplo, eu estava mesmo precisando de algo assim.
Valew mesmo.

Abraços, WSenna

Muito bom!
Obrigado pela partilha
Cumprimentos