请教高手：看看下面的代码有什么问题？

msf

代码如下：

Dim rq, bh As String
    rq = Me.OpenArgs & Format(Date, "yymm")
    bh = DMax("[单据编号]", "物料出入库记录", "[单据编号]like'" & rq & "????'")
      If IsNull(bh) Then
         Me.单据编号 = rq & "0001"
      Else
        Me.单据编号 = rq & Format(CStr(CInt(Right(bh, 4)) + 1), "0000")
   End If

说明：这是一个自动生成单据编号的代码，＂ Me.OpenArgs＂是打开窗体时指定的参数，值为两个字母 ，完整的格式为ＡＡ年年月月００００，后面４位数为当月此类单据流水号。

目的：每次打开单据窗体时，根据打开窗体时输入的参数判断此类单据的最后号码，如果此类单据还没有记录，则当前单据的编号为＂打开窗体参数+当前年月+０００１，如果已经有记录，则产生一个连续的流水号。

问题１：为什么当没有记录时出现＂运行时错误，＇９４＇　　无效使用ＮＵＬＬ＂的提示？
问题２：这段代码为什么不能在"open"事件里运行，只能在"load"事件里运行？
问题３：打开了单据，但是没有在其他控件中输入数据就关闭窗体时，怎样删掉自动生成的编号，以保证不会有空编号存在？

请高手指点！先行谢过！！！

[此贴子已经被作者于2003-11-22 2:32:41编辑过]

ADAM

你再加上空格啊,
再試試看...
"[单据编号] like '" & rq & "????'")

ygcswl

将   
    rq = Me.OpenArgs & Format(Date, "yymm")
      bh = DMax("[单据编号]", "物料出入库记录", "[单据编号]like'" & rq & "????'")
改成
    rq = Nz( Me.OpenArgs & Format(Date, "yymm"))
      bh = Nz(DMax("[单据编号]", "物料出入库记录", "[单据编号]like'" & rq & "????'"))
试试看。

[此贴子已经被作者于2003-11-22 11:36:15编辑过]

msf

以下是引用ADAM在2003-11-22 10:13:42的发言：
你再加上空格啊,
再試試看...
"[单据编号] like '" & rq & "????'")

还是一样，不行！
我如果按照ＡＡ年年月月００００的格式在表中预先输入一条记录的，然后再打开窗体时就可以正常编码了，还请多多指教！