[Resolvido]Salvar registro a cada dois minutos caso campo memorando esteja com foco.

Olá Feras de plantão, bom dia.

Amigos, novamente venho solicitar a ajuda dos Mestres para o seguinte:

Num formulário para edição de Atas possuo um campo do tipo Memorando denominado Motivo e o que pretendo é que a cada dois minutos em que este campo esteja sendo editado, ou seja, com foco e diferente de Nulo, uma rotina salve todo o registro e exiba uma caixa de mensagem do tipo "Registro salvo preventivamente".

Abraços, WSenna

Olá Dilson, bom dia.

Amigão, penso que a ideia é muito válida, devemos sim amadurecê-la.
É, deveras, desanimador você perder alguns minutos digitando um campo memorando que pode exigir concatenação de ideias e repentinamente uma queda de energia, uma reinicialização do servidor ou coisa parecida jogar por terra aquilo que você levou tempo para redigir.

Vamos nessa direção que me parece esplêndida e aguardemos que novos Mestres se juntem a nós.

Abraços, WSenna

Olá Amigos,
WSenna, veja se atende, está a fazer de 30 segundos em 30 segundos.

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



Download disponível no Repositório de exemplos:
https://www.maximoaccess.com/t26578-salvar-de-30-segundos-em-30-segundos-quando-esta-no-foco-de-um-campo-memo

Abraço

Dilson obrigado, estamos cá todos pela mesma causa Access.
Segui a recomendação e já está no repositório.
Isto é que é ser MáximoAccess.

Ficamos aguardar o retorno do amigo WSenna.

He he he, fico até espantado!!!

Amigão AhTeixeira, há quanto tempo...
Perfeita a sua sugestão, como diz o velho Guru JPaulo, "Funfou na boa".

Grande abraço aos dois.


WSenna

Olá, fico feliz por ter "funfado na boa".

Reparei que ao salvar está a ir para o inicio do campo memo.
Poderá ser melhorado o código ao salvar ir para o fim do texto.
Estou no telemóvel, mas fica aqui a dica.
Abraço a todos.

Caro AHTeixeira.

Reparei esse detalhe.
E outro, caso o usuário coloque o cursor no campo memorando o seu sistema gerava um novo registro.

Resolvi ambas as pendências da forma abaixo:

Private Sub Form_Timer()
   If Not IsNull(Assunto) Then
   DoCmd.RunCommand acCmdSaveRecord
   Me.Gravado = Now()
   Me.ObsMemo.SetFocus
   Else: End If
End Sub

Dessa forma o cursor permanecerá na posição em que estiver no ato do procedimento.

Contudo, fico aberto à novas instruções afinal nunca é demais privar dessa troca de conhecimentos que tanto engrandece os membros deste Fórum.

Abraços, WSenna

Olá Wsenna, obrigado pelo retorno.
Fica mais essa dica.

E aqui vai mais uma:
Para colocar o cursor no fim, podemos usar a instrução abaixo:

Código:

Me.ObsMemo.SelStart = Len(Me.ObsMemo & "")

Abraço

Caríssimo Teixeira, bom dia.

Muito obrigado pela dica, o que já era perfeito agora está divino.

Abraços, WSenna