access如何在打开窗体时自动新建一个记录？

选中要 *** 作的窗体，右键选“设计视图”，在打开的设计视图【窗体】属性中点击上方的“事件”选项卡，选中【加载】，然后点击后面的?按钮，d出窗口中选择【宏生成器】或者【代码生成器】，然后对照下面 *** 作：\r\n方法一、【宏生成器】法：\r\n1、d出的对话框中先给宏指定一个名称，比如：添加新记录\r\n2、在【添加新记录: 宏】窗口的“ *** 作”处选择：GoToRecord\r\n然后在下面的“ *** 作参数”处进行如下设置：\r\n1）对象类型：窗体\r\n2）对象名称：选你要 *** 作的窗体\r\n3）记录：选“新记录”\r\n4）保存退出。\r\n方法二、【代码生成器】法：\r\n在d出的VB编辑器中鼠标光标激活处添加如下代码：\r\nDoCmd.GoToRecord , , acNewRec\r\n然后关闭VB编辑器。\r\n最后：无论采取那个方法，关闭窗体的“设计视图”时选“保存”即可！

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

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

---