Как сделать только что вставленную запись текущей???

DoCmd.RunSQL "INSERT INTO Табл (Поля) VALUES (Значения)"

Dim vcanc As Boolean
 
Private Sub Form_BeforeUpdate(Cancel As Integer)
  If vcanc Then vcanc = False Else Me.Undo: Cancel = True
End Sub
 
Private Sub Кнопка6_Click()
  If Me.Dirty Then vcanc = True: Me.Dirty = False
End Sub

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim i&
  i = MsgBox("Сохранить изменения?", vbYesNoCancel)
  If Not (i = vbYes) Then
    Cancel = True
    If i = vbCancel Then Me.Undo
  End If
End Sub

Dim vcanc As Boolean
 
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim rAnswer As Integer
 
If vcanc Then
  vcanc = False
  
Else
  rAnswer = MsgBox("Сохранить изменения", vbYesNoCancel)
  If Not (rAnswer = vbYes) Then
    Cancel = True
    If rAnswer = vbNo Then Me.Undo
  End If
End If
 
End Sub
 
Private Sub Кнопка_Click()
  If Me.Dirty Then vcanc = True: Me.Dirty = False
  Me.Refresh
End Sub

Dim ar, i%, s$
  s = ",Id,"
  If Not (Me.NewRecord Or Me.Dirty) Then
    With Me.Recordset
      ar = .GetRows(1)
      .AddNew
      For i = 0 To .Fields.Count - 1
        If Not s Like "*," & .Fields(i).Name & ",*" Then Me(.Fields(i).Name) = ar(i, 0)
      Next
    End With
  End If

  With Me.Recordset
    .AddNew 'или Edit, если корректируете Id 
    !id_Поле = 1
    .Update
  End With

Me!id_Поле = 1