自动编号“类型不匹配”

通过单击新增按钮实现自动编号，如果把下面的红色部分“SK”改为“00”，可完美实现自动编号。但本库中有两个表，所以为了区别是“收款表”或者是“销售表”，所以想将“收款表”的单号定为“yyyymmdd-SK00”类型，销售表的单号定为“yyyymmdd-XS00”类型。改动后，提示为“类型不匹配“，请问各位老师，怎样改才能实现相应的效果？

 '增加自动编号

Dim a As String
     a = Nz(DMax("单号", "收款表", "Left$([单号],8)='" & Format$(Date, "yyyymmdd") & "'"))
      If Len(a) = 0 Then
           Me.单号 = Format(Date, "yyyymmdd") & "-SK01"
      Else

     Me.单号 = Left$(a, 8) & Format$(CLng(Right(a, 4)) + 1, "-SK00")  '提示为类型不匹配

End If

说明：

”收款表“  中的  “单号” 设计时为  “文本”