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

易青城

。。。

     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
。。。