如何access2007字段默认值如何编写可将自动编号格式为：KT1404自动编号

nb7852552

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

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

易青城

。。。

     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

非常感谢 。但是，具体怎么用呢，是创建模块？还是编辑字段的有效性？