Я когда то сделал так для 2002аксеса
Сейчас сразу и не объясню.
Private Sub Кнопка29_Click() 'Добавить запись
On Error GoTo Err_Кнопка29_Click
'Dim MyYear, My1, My2 As Variant
Dim My1I, My2I As Integer
Dim db As Database
'Dim rs As Recordset
Dim str As String
Dim strI As Integer
Dim lngRecordCount As Long
Dim strSQL As String
DoCmd.GoToRecord , , acNewRec

'Строковая переменная SQL-выражения
'date22 = date
My1I = CInt(Year(date))
'Формируем строку SQL
If My1I = 2002 Then
strSQL = "SELECT (ndoc) FROM Workdocs where( CInt(Year(date2))=2002 )"
End If
If My1I = 2003 Then
strSQL = "SELECT (ndoc) FROM Workdocs where( CInt(Year(date2))=2003 )"
End If
If My1I = 2004 Then
strSQL = "SELECT (ndoc) FROM Workdocs where( CInt(Year(date2))=2004 )"
End If
If My1I = 2005 Then
strSQL = "SELECT (ndoc) FROM Workdocs where( CInt(Year(date2))=2005 )"
End If
If My1I = 2006 Then
strSQL = "SELECT (ndoc) FROM Workdocs where( CInt(Year(date2))=2006 )"
End If
Set db = CurrentDb()
'Открывем набор записей на основе строки SQL
Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)
'str = ""
If rs.RecordCount <> 0 Then
rs.MoveFirst
strI = 0
Do Until rs.EOF
If rs![ndoc] > strI Then
strI = rs![ndoc]
End If
rs.MoveNext
Loop
ndoc = strI + 1
lngRecordCount = rs.RecordCount
str = str & vbCrLf & "Всего найдено записей: " & _
lngRecordCount
Else
ndoc = 1
str = "Таблица ""Workdocs"" не содержит записей."
End If
rs.Close
db.Close

' DoCmd.GoToRecord , , acNewRec
' ndoc = DMax("ndoc", "[Workdocs]", [ndoc] = Me!ndoc) + 1
Exit_Кнопка29_Click:
Exit Sub