Código de botões registro não funcionam em campos invisíveis?

Boa tarde
Alguns botões de registro não estão funcionando da forma como gostaria.
Na aplicação existem muitos campos invisíveis.
Todos os código foram retirados deste fórum.

Nos registros atuais o código funciona bem. Contudo, quando fecho e reabro a aplicação os botões não funcionam.
Somente a partir de um determinado numero de registros.

1) Botão registro posterior e anterior.
Quando clico no botão de registro posterior ou anterior dá erro na segunda linha.
Abaixo o código

Private Sub CommandoPosterior_Click()
   DoCmd.GoToRecord , , acNext
Exit_ComandoPosterior_Click:
   Exit Sub
Err_ComandoPosterior_Click:
   MsgBox Err.Description
   Resume Exit_ComandoPosterior_Click
End Sub


Private Sub CommandoAnterior_Click()
   DoCmd.GoToRecord , , acPrevious
Exit_ComandoAnterior_Click:
   Exit Sub
Err_ComandoAnterior_Click:
   MsgBox Err.Description
   Resume Exit_ComandoAnterior_Click
End Sub



2 - Quando acrescento um novo código na tela inicial da certo, o código funciona, e o foco vai para o primeiro item.
Quando entro em outros campos que são invisíveis, o registro da informação no um comando novo não funciona.
A mensagem que dá é que o access não pode mover o foco para este controle.
com erro na 4 linha abaixo.


Private Sub ComandoNovo_Click()
   DoCmd.RunCommand acCmdSaveRecord
   DoCmd.GoToRecord , , acNewRec
   Me.TxtCboUnidadeRequisitante.SetFocus
Exit_ComandoNovo_Click:
   Exit Sub
Err_ComandoNovo_Click:
   MsgBox Err.Description
   Resume Exit_ComandoNovo_Click
End Sub


3 ) Os outros botões também não rodam bem.

Alguém poderia explicar o porque?
Obrigado

Olá;

Faça o tratamento de erro desta forma;

Código:

Private Sub CommandoPosterior_Click()
  DoCmd.GoToRecord , , acNext
 
Exit_CommandoPosterior_Click:
    Exit Sub

Err_CommandoPosterior_Click:
    MsgBox "Atenção: Você já chegou ao ultimo registo.", , "  Atenção"
    Resume Exit_CommandoPosterior_Click
End Sub

Private Sub CommandoAnterior_Click()
  DoCmd.GoToRecord , , acPrevious
 
Exit_CommandoAnterior_Click:
    Exit Sub

Err_CommandoAnterior_Click:
    MsgBox "Atenção: Você já se encontra no primeiro registro.", , "  Atenção"
    Resume Exit_CommandoAnterior_Click
End Sub

O SetFocus não funciona para campos ocultos, ou seja, se está oculto jamais pooderá enviar o foco.
Nestes casos, cria-se uma caixa de texto desvinculada, reduza as dimensões até ficar oculta e envie o foco para ela.

Boa noite
desculpe a demora.
Vou testar hj.
Poderia explicar porque ocorre aquilo que perguntei no item 2.
Obrigado

Nenhum campo oculto pode receber o foco, normalmente adiciona-se uma caixa de texto desvinculada com as dimensões reduzidas ao máximo para ficar oculta e envia-se o foco para lá.

Entendo.
Mas e o fato que ocorre onde os registros novos e a rotina que enviou só funcionarem naquele momento.
Ou seja, se fecho o programa ontem e abro hj não consigo visualizar os antigos.
saberia o porque disso?
Obrigado

Deve ter algum criterio defenido nas suas consultas ou no SQL do formulario.