(关于自动编号)这种错误怎么解决?

xinle

Private Function GetMaxId()
    Dim ID As Integer
    Dim BigCat As String
    BigCat = Me.大类代码
    ID = DMax("Right([分类代码],2)", "[商品分类]", "[大类代码]= '" & BigCat & "'")
    If IsNull(ID) Then
        GetMaxId = BigCat & "01"
    Else
        GetMaxId = BigCat & Format(CStr(CInt(ID)) + 1, "00")
    End If
End Function

当表"商品分类"中的"大类代码"没有与Me.大类代码相同时,
提示无效的'null',如何解决?
谢谢!

[此贴子已经被作者于2006-3-7 19:33:07编辑过]

fan0217

参考：http://www.office-cn.net/forum.php?mod=viewthread&tid=35635&replyID=178390&skin=1

xinle

谢谢!没有其它办法吗?