模块 “输入的表达式对 Parent 属性的引用无效”

请问老师，这个模块错误在哪里！！！！！

'变量MainID--日期控件,sTableName--表名称,sFieldName--字段名称
'调用，Me.销售单号 = lsbh(Me.Parent.销售单号, "销售单临时表", "销售单号")

Public Function lsbh(ByVal MainID As String, ByVal sTableName As String, ByVal sFieldName As String)
    On Error GoTo ErrorHandler:

    Dim zdlsbh As String '最大编号
    Dim lsbhqz As String '编号前缀
    Dim lsbh1 As String '编号

    lsbhqz = Format(MainID, "YYmmdd")

    zdlsbh = Nz(DMax("right ([" & sFieldName & "],3)", sTableName, "left([" & sFieldName & "],6) = '" & lsbhqz & "'"), "")


    lsbh1 = lsbhqz & Format(Val((zdlsbh)) + 1, "000")    '序列号3个字符


    lsbh = Val(lsbh1) '转换成数字型


ExitHere:
    Exit Function


ErrorHandler:
    MsgBox Err.Description, vbInformation, "提示"
    Resume ExitHere:


End Function

这个模块是根据窗体中的模块改写的，在窗体中使用下面的代码没有问题，而将其改成上面的就提示：模块 “输入的表达式对 Parent 属性的引用无效”

    Dim  流水最大编号 As String
    Dim  流水编号前缀 As String
    Dim  流水编号 As String


    流水编号前缀 = Format(Me.日期, "YYmmdd")


    'right 取从最右边算起的n个字符，
    'left 取从最左边算起的n个字符，DMax 取最大数
    ' Mid(字符串,左边起始位置,n)从字符串的左边起始位置开始，截取n个字符，如果不写n,返回右侧所有字符。


    流水最大编号 = Nz(DMax("right ([流水号],3)", "销售单", "left([流水号],6) = '" & 流水编号前缀 & "'"), "")




    流水编号 = 流水编号前缀 & Format(Val((流水最大编号)) + 1, "000")    '序列号3个字符


 
    Me.流水号 = Val(流水编号)