请前辈指教附件中的字母自动编号代码该怎样写

宋雄健　发表于：2009-01-05 18:44:21 　

残荷听雨发表于：2009-01-05 21:23:00

   Dim S As String * 1
   Dim G As Integer
   S = Left(DMax("[部门编号]", "部门资料"), 1)
   G = Right(DMax("[部门编号]", "部门资料"), 1)
   G = Right(G + 1, 1)
   If G = 0 Then
      G = G + 1
      S = Chr(Asc(S) + 1)
   End If

   Me.部门编号 = S & G

Top

残荷听雨发表于：2009-01-05 21:42:49

以上代码是一个方法，完整的代码在前面应加上第一条记录的“A1”生成，和最后的“Z9”终止提示。请自己添加。

Top

宋雄健发表于：2009-01-06 08:41:15

楼上的前辈：您好！请您帮我完整的写一个好吗？谢谢！

Top

宋雄健发表于：2009-01-06 17:03:15

请大家指教

Top

残荷听雨发表于：2009-01-07 14:17:09

点击下载此附件给你做了一个完整的，请测试。

Top

总记录：5篇页次：1/1 9 1 :

Access交流中心

请前辈指教附件中的字母自动编号代码该怎样写