Avançar sem criar novo Registro

Boa tarde!

Criei esta função para avançar sem criar um novo registro, no entanto a função é meio lenta gostaria de algo mais rápido


Private Sub Comando100_Click()

Dim ULTIMO_REG As Double

ULTIMO_REG = DMax("codigo", "veiculos")

If Me.CODIGO = ULTIMO_REG Then

MsgBox "Último Registro!", vbOKOnly + vbInformation, "ATENÇÃO"

Else

DoCmd.GoToRecord , , acNext 'proximo registro

End If

Exit Sub

End Sub


talvez esta seria uma solução, mas esta dando algum erro quando utilizo ela pula para o primeiro registro dai
fica sequencial nas próximas clicadas

ou seja estou no registro 50 e quero ir pro 51, não vai, pula pro 1 dai começa a ficar sequencial.


On Error GoTo fim
Dim rs As DAO.Recordset
Set rs = Me.RecordsetClone

If Not IsNull(Cliente) Then
rs.MoveNext
Else
rs.MoveFirst
End If
Me.Bookmark = rs.Bookmark

fim:
If rs.EOF Then
If rs.RecordCount > 0 Then
rs.MoveFirst
Me.Bookmark = rs.Bookmark
End If
End If

Boa tarde noisnafita,

Você deve saber ou ter conhecimento dos manuseios dos botões de navegação tipo:

'Novo Registro
DoCmd.GoToRecord , , acNewRec

'Primeiro Registro
DoCmd.GoToRecord , "", acFirst

'Ultimo Registro
DoCmd.GoToRecord , "", acLast

'Proximo Registro
DoCmd.GoToRecord , "", acNext

'Registro Anterior
DoCmd.GoToRecord , "", acPrevious

Blz...

Pelo que entendi vc quer que ao chegar no ultimo registro, se apertar o botão "Proximo registro" ele não entre em um novo registro? é isso?

aguardo.

exatamente!

Olá, estou querendo fazer a mesma coisa. Ao navegar em um form não quero que vá para um registro novo e sim que navegue somente entre os já existentes.

Alguma dica?

Olá pessoal,

A Urgência faz a gente aprender! Pesquisei um pouco e consegui duas maneiras de navegar e no final não cair em um registro novo. Vejam abaixo:

'Metodo 1 - Vai para o novo mas volta quando verifica que é novo

Private Sub BotaoProxReg_Click()

DoCmd.GoToRecord , , acNext

If Me.NewRecord Then
      DoCmd.GoToRecord , , acPrevius
End If

End Sub

A desvantagem do método acima é que o usuário sente a piscada na tela quando o access vai para o novo e volta para o anterior

'Metodo 2 - Neste método defini a propriedade do form para não permitir registros novos e sair da sub quando isto ocorrer.

Private Sub BotaoProxReg_Click()

Me.AllowAdditions = False 'não permite adicionar e não mostra novo

On Error GoTo Err_cmd_Next_Record_Click

DoCmd.GoToRecord , , acNext

Exit_cmd_Next_Record_Click:
Exit Sub

Err_cmd_Next_Record_Click:
MsgBox Err.Description
Resume Exit_cmd_Next_Record_Click

End Sub



Abraço a todos.

Fiz assim e funciona:

Private Sub BtnProximo_Click()
On Error GoTo TRATAERRO

DoCmd.GoToRecord , , acNext

Exit Sub


If Me.CurrentRecord = LastRecord Then GoTo TRATAERRO


Exit Sub

TRATAERRO:

MsgBox "Não existem mais clientes cadastrados.", vbInformation, "Reciclagem"

Exit Sub
End Sub