Подскажите пожалуйста, когда все записи закончаться по нажатию кнопки, автоматически сделать ее не активной.

Private Sub Кнопка31_Click()

On Error GoTo Err_Кнопка31_Click
DoCmd.GoToRecord , , acNext

Exit_Кнопка31_Click:
    Exit Sub
Err_Кнопка31_Click:

'    MsgBox Err.Description
    Resume Exit_Кнопка31_Click

End Sub

http://www.sql.ru/forum/1071916/neaktivnaya-knopka