I created a form which has four navigations buttons defined. depressing the buttons update the form navigating it to different records ie First, Previous, next and last record. They work fine. If I set the form Navigation buttons to No in the form property sheet then it also disables my custom defined buttons and they are 'Greyed out'

How do I hide the Navigation bar across the bottom of my form but still leave my custom buttons active. The VB code defined to the four buttons is quite simple:

Details

Private Sub FirstBtn_Click()

    On Error Resume Next
    DoCmd.GoToRecord , , acFirst

End Sub

Private Sub BackBtn_Click()
    
    On Error Resume Next
    DoCmd.GoToRecord , , acPrevious

End Sub


Private Sub NextBtn_Click()
    
    On Error Resume Next
    DoCmd.GoToRecord , , acNext

End Sub
Private Sub LastBtn_Click()

    On Error Resume Next
    DoCmd.GoToRecord , , acLast

End Sub


Private Sub Form_Current()

    On Error Resume Next
    If Me.CurrentRecord = 1 Then
        Me.FirstBtn.Enabled = False
        Me.BackBtn.Enabled = False
        Me.FirstBtn.UseTheme = False
        Me.BackBtn.UseTheme = False
        
    Else
        Me.FirstBtn.Enabled = True
        Me.BackBtn.Enabled = True
        Me.FirstBtn.UseTheme = True
        Me.BackBtn.UseTheme = True

    End If
    If Me.CurrentRecord = Me.Recordset.RecordCount Then
        Me.LastBtn.Enabled = False
        Me.NextBtn.Enabled = False
        Me.LastBtn.UseTheme = False
        Me.NextBtn.UseTheme = False
        
    Else
        Me.LastBtn.Enabled = True
        Me.NextBtn.Enabled = True
        Me.LastBtn.UseTheme = True
        Me.NextBtn.UseTheme = True
        
    End If
        
End Sub
Copy