利用循环生成的字符串项，有很多重复值

各位老师，自己做一个小系统（档案管理系统），想让文档的id号码，前一部分通过系统名称的拼音简称自动生成，但是结果很多重复值，还有删除按钮也失效，不知道代码哪一部分出问题，请老师解答。

   附部分代码如下：

docNO = docNO & Trim(CurrentDb.OpenRecordset("SELECT categoryabbreviation FROM TreeType where left([categorycode]," _
                                                   & (n * perSectionLong) & ")='" & Left(CLType_NO, (n * perSectionLong)) & "' and categorygrade=" & n & ";")(0).Value)生成文档id号的前一部分

删除按钮的代码

Private Sub DelRec_Click()
 If MsgBox("确实要删除当前记录吗？", vbYesNo) = vbYes Then
  
'    DoCmd.Echo False
     Dim stDocid As String
     Dim pathname As String
     Dim path As String
     stDocid = Forms!docMain!xiform!docid
     If stDocid <> Null Then
           If Forms!docMain!xiform!remarks <> Null Then
              pathname = Mid(Forms!docMain!xiform!remarks, 2, Len(Forms!docMain!xiform!remarks) - 2)
              Kill pathname
              CurrentProject.Connection.Execute ("delete * from Document where docid='" & stDocid & "'")
           Else
             CurrentProject.Connection.Execute ("delete * from Document where docid='" & stDocid & "'")
      End If
      Forms!docMain!xiform.Requery
      Forms!docMain!xiform.SetFocus
      End If
    End If
End Sub

      

点击下载此附件