“新单号”代码，合并到“新增入库”事件中

本人是一个VBA盲，借用网站上的示例，模仿了一个“新单号”按钮事件，希望加入到“新增入库”事件中。

最终目的：入库单号每月重新编号，从21日起，月份加1；流水号从1开始。

曲线目的：由于不懂编程，只好借用示例，设计一个”新单号“按钮，将代码修改后使用。

说明：由于平台是采用系统当前时间编号，实际工作中却按21日起开始新月份，所以增加”tbl新单号“表，每月录入一个初始编号。

两个按钮事件代码如下：麻烦各位老师了！！！

另外：”新单号“代码运行时，提示”不能将焦点移到“入库单号”控件上。附上附件，麻烦老师排除一下。点击下载此附件点击下载此附件

Private Sub 新增入库_Click()
On Error GoTo Err_新增入库_Click

    DoCmd.GoToRecord , , acNewRec

Exit_新增入库_Click:
    Exit Sub

Err_新增入库_Click:
    MsgBox Err.Description
    Resume Exit_新增入库_Click 
End Sub

Private Sub 新单号_Click()
  '2014-10-26添加代码，借用ACCESS网10种编号示例之“按年份月份顺序号”
'示例地址http://www.accessoft.com/article-show.asp?id=3066   

On Error GoTo Err_新单号_Click    
     Dim MaxNumber As String
    MaxNumber = DLookup("[最大号]", "tbl新单号")
    DoCmd.GoToRecord , , acNewRec
    Me.入库单号.SetFocus
    Me.入库单号 = Left$(MaxNumber, 8) & Format(Val(Right$(MaxNumber, 3) + 1), "000")
    DoCmd.SetWarnings False
    DoCmd.RunSQL "update [tbl新单号] set [tbl新单号].最大号 = '" & Me.入库单号 & "'"
    Me.Refresh
Exit_新单号_Click:
    Exit Sub

Err_新单号_Click:
    MsgBox Err.Description
    Resume Exit_新单号_Click

End Sub