If Form.OpenArgs > "" Then '如果打开的窗体参数 OpenArgs 大于 ""
If Not Form.NewRecord Then '如果打开的窗体不处于新记录
DoCmd.RunCommand acCmdRecordsGoToNew '移动到新记录
End If
[客户] = Form.OpenArgs '字段 [客户] = 窗体参数 OpenArgs 。窗体参数 OpenArgs 是在打开窗体时加载的
End If
Response = acDataErrAdded '发生错误时的响应:直接添加