帮忙实现----带变化字母的自动编号

已经达成，是在百度【access吧】得到的帮助。。

分亨下：

Dim date2 As String

   If [资金方向] = "收入方" Then
     date2 = "Z"
    ElseIf [资金方向] = "支出方" Then
      date2 = "S"
     ElseIf [资金方向] = "其他" Then
        date2 = "N"
     End If

   rst("资金方向") = acchelp_autoid(date2, 3, "tblCodehtf", "htfId")
这是用的平台的自动编号。其他自动编号只要在代码中将前缀字母换成【date2】就应该能实现。