Сохранеение данных???

[DEZuv]

Есть табл. Pokupatel на основе которой построена форма. как зделать чтоб при нажатии кнопки данные сохранялись в этой таблице?? что неверно

Private Sub Кнопка12_Click()
On Error GoTo Err_Кнопка_Click
Dim nnn
DoCmd.GoToRecord , , acLast
nnn = Me.Num
Forms!z_Forma_dogovor!Pokupatel!All owAdditions = True
DoCmd.GoToRecord , , acNewRec
Me.Num = nnn + 1
Me.Поле34 = nnn + 1
Forms!z_Forma_dogovor!Pokupatel.For m.AllowAdditions = False
Exit_Кнопка12_Click:
Exit Sub

Err_Кнопка12_Click:
MsgBox Err.Description
Resume Exit_Кнопка12_Click

End Sub