ник: Егор
Private Sub AddOneNewRecordkreddog()
Dim rst As Recordset
On Error GoTo AddOneNewRecordErr
Set rst = CurrentDb.OpenRecordset("tbl_kreddog", dbOpenDynaset)
With rst
.AddNew
!nomdog = Me.pole23.Value
!datazakl = Me.pole25.Value
!datapog = Me.pole27.Value
!summakr = Me.pole29.Value
!valuta = Me.pole31.Value
.Update
End With
AddOneNewRecordEnd:
On Error Resume Next
rst.Close
Set rst = Nothing
Exit Sub
AddOneNewRecordErr:
MsgBox "Ïðîöåäóðà [Îáíîâëåíèÿ çàïèñåé] ïðèâåëà ê îøèáêå:" & vbCrLf & _
Err.Description & vbCrLf & " Err#" & Err.number, vbCritical
Resume AddOneNewRecordEnd
End Sub