Access用按钮在窗体中添加新记录VBA代码:
Private Sub 添加新记录_Click()
On Error GoTo Err_添加新记录_Click

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.GoToRecord , , acNewRec

Exit_添加新记录_Click:
Exit Sub

Err_添加新记录_Click:
MsgBox Err.Description
Resume Exit_添加新记录_Click

End Sub