comando access

boton agregar

Private Sub Comando17_Click()
DNIvend.Enabled = True
nombrevend.Enabled = True
direccionvend.Enabled = True
altura.Enabled = True
telefonovend.Enabled = True
sueldovend.Enabled = True
observacionvend.Enabled = True
DoCmd.GoToRecord , , acNewRec
End Sub

boton eliminar

DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDeleteRecord
DNIvend.Enabled = False
nombrevend.Enabled = False
direccionvend.Enabled = False
altura.Enabled = False
telefonovend.Enabled = False
sueldovend.Enabled = False
observacionvend.Enabled = False

boton siguiente

DoCmd.GoToRecord , , acNext 
(este no tiene el error de fin de archivo)


Private Sub cmdSigue_Click()
SeguirReg = True
Me.TimerInterval = 500
If RegActual = TotalReg Then
SeguirReg = False
MsgBox "Ultimo Registro"
Exit Sub
End If
DoCmd.GoToRecord , , acNext
End Sub

Private Sub Cuadro52_MouseMove(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
SeguirReg = False
End Sub

Private Sub Form_Current()
RegActual = Me.CurrentRecord
TotalReg = DCount("[IdCampo]", "Tabla")
End Sub

Private Sub Form_Timer()

If SeguirReg = True Then
cmdSigue_Click
End If

End Sub