[Resolvido]Desabilitar botão se estiver no primeiro registro

Boa noite pessoal, o problema deve ser bem simples, mas não estou conseguindo resolver, então:

Preciso desabilitar um botão quando este estiver no primeiro registro.

Abraços.

Boa noite.

Utilize este código para o botão anterior, ou seja o botão que move o registro anterior.

Código:


On Error GoTo Err_BotAnterior_Click

    DoCmd.GoToRecord , , acPrevious
    Me.Bot_Próximo.enabled = True
    
Exit_BotAnterior_Click:
    Exit Sub

Err_BotAnterior_Click:
    Me.Bot_Próximo.enabled = True
    Me.Bot_Próximo.SetFocus
    Me.Bot_Anterior.enabled = False
    
    Resume Exit_BotAnterior_Click



Para o posterior:

Código:


Private Sub Bot_Próximo_Click()
On Error GoTo Err_BotPróximo_Click

    DoCmd.GoToRecord , , acNext
    Me.Bot_Anterior.enabled = True
    
Exit_BotPróximo_Click:
    Exit Sub

Err_BotPróximo_Click:
    Me.Bot_Anterior.enabled = True
    Me.Bot_Anterior.SetFocus
    Me.Bot_Próximo.enabled = False
    
    Resume Exit_BotPróximo_Click
End Sub



Boa noite Cláudio, o que esse código faz?

Consigo desabilitar o botão Próximo quando estiver em um novo registro:

Private Sub Form_Current()
If Me.NewRecord = True Then
Me.Próximo.Enabled = False
Else
Me.Próximo.Enabled = True
End If

Tem como fazer referência ao primeiro registro? Acho que seria mais simples.

Bem estes códigos funcionam quando você chega no primeiro registro, ele não exibe aquela mensagem chata tipo "Você está no primeiro registro", quando chegamos no último registro.

Ele simplesmente desabilita um ou outro botão quando chega nestes registros e habilita-os novamente quando clicado em um dos dois botões.

Posta o código do seu botão e o que você quer fazer pra gente entender melhor.

Bom dia Cláudio, tenho 4 botões em meu form (Anterior, Próximo, Excluir e Novo).

Meu problema é com o botão anterior. Ele deveria estar desabilitado quando o registro atual for o primeiro, entende?

Como já disse, consigo desabilitar o botão Próximo quando este estiver em um novo registro:

Private Sub Form_Current()
If Me.NewRecord = True Then
Me.Próximo.Enabled = False
Else
Me.Próximo.Enabled = True
End If

No botão Próximo uso algumas condições para poder voltar, e está funcionando direitinho. Se verdadeira:

If ... Then
     ...
Else
     Docmd.GoToRecord , , acPrevious
End If

Queria uma forma de reconhecer o registro atual como o primeiro registro (fazer referência a ele), semelhante ao código acima e aplicar o Enabled.

Grato

Bom dia.

Exatamente o que te passei, o código faz exatamente isso, quando chega no primeiro registro desabilita o botão e habilita o próximo.
Quando clica no botão próximo habilita novamente o botão anterior, não e isso?

Cláudio, todos os botões estão habilitados. Os botões Novo e Próximo ficam desabilitados quando estão em um novo registro. E o que quero agora é desabilitar Anterior quando este estiver no primeiro registo do form.

Grato

Cláudio, consegui resolver.

No evento No atual coloquei:

If Me.CurrentRecord = 1 Then
Me.Anterior.Enabled = False
Else
Me.Anterior.Enabled = True
End If


Bem simples, e é como eu queria mesmo.
Muito obrigado pela ajuda.

Abraços

Bom dia.
Que bom que conseguiu resolver.

Saudações.