Добрый день!
У меня есть модуль в котором я присваиваю номер документу. Не получается обновить запись на форме, а когда ставлю Requery
переходит на 1 запись. Подскажите, как обновится на форме и при этом остаться на той же записи.

Private Sub номер_постановления_Click()
Dim strSQL As String, stLinkCriteria As String, fionar As String, dolnar As String
Dim db As Database
Dim rs As DAO.Recordset
If IsNull(Me.номер_постан) Or Me.номер_постан = "" Then
stLinkCriteria = " Year([дата_рассмотрения])=" & "'" & Year(Me.дата_рассмотрения) & "'"
        Me.номер_постан = CStr(Nz(DMax("[Номер]", "qryN", stLinkCriteria), 0) + 1)
        strSQL = "INSERT INTO постановление ([номер_постан],[номер_протокола],[основание],[период],[год],[дата_протокола],[ап]) VALUES " & _
"('" & Me.номер_постан.Value & "', '" & _
  Me.номер_протокола.Value & "', '" & _
  "протокол" & "', '" & _
  Me.период.Value & "', '" & _
  Me.год.Value & "', '" & _
  Me.дата_составления.Value & "', '" & _
    Me.ап.Value & "');"
  CurrentDb.Execute strSQL
    End If
 Requery
End sub

http://www.sql.ru/forum/1084076/obnovlenie-zapisi