请教各位大能

在一个窗体中设一按钮打开另一个窗体，窗体名为 “单据”，并自动增加单号，这里的  Me.单号  不是本窗体的，所以提示为“方法和成员未找到”

代码如下：

DoCmd.OpenForm "单据", acNormal '打开窗体 “单据”

DoCmd.GoToRecord , , acNewRec '新增加一条记录，要求同时要文本框【单号】中自动增加单号
     Dim a As String
     a = Nz(DMax("单号", "单据表", "Left$([单号],8)='" & Format$(Date, "yyyymmdd") & "'"))
      If Len(a) = 0 Then
           Me.单号 = Format(Date, "yyyymmdd") & "-0001"
      Else
            Me.单号 = Left$(a, 8) & Format$(CLng(Right(a, 4)) + 1, "-0000")
     End If