如何ACCESS窗体VBA添加新记录

前提:窗体的 允许编辑、允喊数许添加 属性设为 是

Private Sub 保存_Click()

'检查录入完整性

If Me.文本框1 = "" Or Me.文本框2 = "" Or Or Me.文本框3 = "" Or Me.文本框4 = "" Or Me.文本框5 = "" Or Me.文掘侍本框6 = "" Or Me.文本框7 = "" Or Me.文本框8 = "" Or Me.文本框9 = "郑散首" Or Me.文本框10 = "" Or Me.文本框11 = "" Or Me.文本框12 = "" Or Me.文本框13 = "" Or Me.文本框14 = "" Or Me.文本框15 = "" Or Me.文本框16= "" Then

MsgBox "记录录入未完整！", vbInformation, "提示:"

Exit Sub

Else

DoCmd.RunCommand acCmdSelectRecord

'将字段 备注 的内容 设置为:

me.备注 = me.文本框1 &" m至 " &me.文本框2 &" m收卷单偏差＜ " &me.文本框3 &" m " '&……以后内容省略

'保存记录

DoCmd.RunCommand acCmdSaveRecord

End if

End Sub

步骤如下：

新建一个空白窗体

在属性窗衡告口设置窗体的记录源

打开“字段咐明明列表”窗口

将“字段槐绝列表”中的字段通过鼠标拖动拖曳到窗体的主体区域

设置窗体页眉中的窗体标题，窗体页脚中导航按钮或记录 *** 作按钮等

存盘，运行

---