新增订单号 错误 您不能转到指定的记录 求教！

fnsmydyang

请教各位老师，问题错误出现那里？谢谢！！！

Private Sub Cmd_Add0_Click()
'On Error Resume Next
    Me.AllowAdditions = True
    DoCmd.GoToRecord , , acNewRec
    Me.订单号 = Format(Date, "yyyymmdd") & Format(Nz(DMax("Right(订单号,3)", "订单主表", "left(订单号,8)='" & Format(Date, "yyyymmdd") & "'")) + 1, "000")
    Me.客户ID.Locked = False
    Me.客户ID.SetFocus
    Me.交期 = Date + 2

End Sub

roych

吧这一句放到最后看看？
DoCmd.GoToRecord , , acNewRec
。。。。
一般应该是先保存数据才能跳到新纪录的。

fnsmydyang

roych 发表于 2016-6-17 15:11
吧这一句放到最后看看？
DoCmd.GoToRecord , , acNewRec
。。。。

老师，帮忙看看，谢谢！问题了在哪儿？

roych

fnsmydyang 发表于 2016-6-17 15:32
老师，帮忙看看，谢谢！问题了在哪儿？

没太大问题。主要是因为你设置了一些必填字段，因此一旦没填而点击“新增”时就无法保存记录，也无法跳到新纪录上，进而引发错误。
个人建议最好是不要绑定数据，把数据填完了再检查，没问题则提交。
详细可以看看这里。
http://www.office-cn.net/thread-119118-1-1.html

fnsmydyang

谢谢！，我先检查检查。