ник: snipe
присмотрись к совету Lukas...........
Private Sub Form_Current()
Dim curRec As Integer
Dim NewRec As Boolean
Dim MaxRec As Integer
curRec = Me.CurrentRecord
NewRec = Me.NewRecord
MaxRec = DCount("IDTable", "Table")
If NewRec = True Then 'новая запись
If curRec = 1 Then 'первая запись
If curRec = MaxRec Then 'последняя запись
If curRec > 1 And curRec < MaxRec Then 'текущая запись
End Sub