Office中国论坛/Access中国论坛

标题: 如何access2007字段默认值如何编写可将自动编号格式为：KT1404自动编号 [打印本页]

作者: nb7852552 时间: 2014-4-14 18:21
标题: 如何access2007字段默认值如何编写可将自动编号格式为：KT1404自动编号
本帖最后由 nb7852552 于 2014-4-14 18:22 编辑

如何access2007字段默认值如何编写可将自动编号格式为：KT1404自动编号具体请见附件。谢谢啦跪求答案啊。

格式说明：KT+现年份+现月份+自动编号

作者: 易青城 时间: 2014-4-15 00:49
本帖最后由易青城于 2014-4-15 00:50 编辑

。。。

   Set MySet = dbs.OpenRecordset("SELECT COUNT(*) FROM [表] where Left([编号],6)='" & "KT" + Format(Right(Year(Date), 2), "00") + Format(Month(Date), "00") & "';")
   If MySet(0) = 0 Then

      编号 = "KT" + Format(Right(Year(Date), 2), "00") + Format(Month(Date), "00") + "01"

   Else

      Set MySet = dbs.OpenRecordset("SELECT max(val(right([编号],6))) FROM [表] where Left([编号],8)='" & "KT" + Format(Right(Year(Date), 2), "00") + Format(Month(Date), "00") & "';")

      编号 = "KT" + Format(Right(Year(Date), 2), "00") + Format(Month(Date), "00") + Format(Right(MySet(0), 2) + 1, "00")

   End If

      Set MySet = Nothing
。。。

作者: nb7852552 时间: 2014-10-8 09:45
非常感谢。但是，具体怎么用呢，是创建模块？还是编辑字段的有效性？

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)