ник: ddi
Сначала первый
есть формы для ввода данных
Private Sub Form_Load()
Form.RecordSource = "pen"
Me.id.ControlSource = "nomer_sch1"
Me.order.ControlSource = "ID_IZM"
Me.Date.ControlSource = "DATA_OPL"
Me.enid.ControlSource = "IDENERGY"
Me.Gumar.ControlSource = "SUMA"
end sub
и при нажатии на кнопку
private Sub only_save_Click()
If (Form.Dirty) Then
DoCmd.RunCommand acCmdSaveRecord
End If
Me.enid = DLookup(" [usertmp]![userid] ", "usertmp", " [usertmp]![id] = " & 1)
DoCmd.OpenQuery "ensumadd", acViewNormal, acAdd
Forms("en").Recordset.AddNew
Me.id.SetFocus
End Sub
но введоные даные в поле gumar остаёца но сохранаюца