基于索引编号及条件的MS Access Update Query实现咨询

没问题！我帮你梳理下在Access MDB里完成这两个逻辑的具体步骤，全程在Access内部操作，不用依赖Excel。先确认下第一个需求的表述——你提到“取StdName字段字符串长度，将对应长度的字符更新至Name字段”，如果是取整个StdName的长度，那Name就等于StdName、SuffixString为空，这看起来有点奇怪？我猜测你大概率是想按Name字段的预设长度来拆分StdName（比如Name字段是文本型、长度固定为8，就取前8个字符到Name，剩下的丢到SuffixString）。如果我的猜测不对，你可以直接调整下面的逻辑就行。

第一部分：拆分StdName到Name和SuffixString #

这里分两种情况给你方案：

情况1：按Name字段的定义长度拆分 #

用Access的更新查询就能搞定，步骤超简单：

1. 打开你的MDB数据库，点击顶部「创建」选项卡 → 「查询设计」。
2. 选中要操作的表，添加到查询视图里。
3. 切换到更新查询模式：点击「设计」选项卡 → 「更新」按钮。
4. 在字段行选Name，「更新到」框里输入：

   Left([StdName], Len([Name]))
   

   要是你想固定取某个长度（比如10），直接把Len([Name])改成10就行。
5. 再在字段行选SuffixString，「更新到」框里输入：

   Mid([StdName], Len([Name]) + 1)
   

6. 点击工具栏的「运行」按钮（那个感叹号图标），确认更新就完成了。

情况2：把整个StdName放到Name，清空SuffixString #

如果你的需求确实是把StdName完整放到Name，那更简单：

• Name字段的「更新到」填[StdName]
• SuffixString字段的「更新到」填""
  运行查询就搞定。

第二部分：给Name添加重复计数后缀（_n） #

这个需求要按记录的索引顺序，统计当前及之前StdName的出现次数。这里默认你的表有个自动编号的索引字段（比如叫ID），要是你用的是其他排序字段，替换下面的ID就行。

方案1：用更新查询（子查询方式） #

纯查询就能实现，步骤如下：

1. 还是进入查询设计视图，添加目标表，切换到更新查询模式。
2. 选Name字段，「更新到」框里输入：

   [Name] & "_" & (Select Count(*) From 你的表名 As T Where T.StdName = 你的表名.StdName And T.ID <= 你的表名.ID)
   

   记得把「你的表名」换成你实际的表名称哦。
3. 点击运行，确认更新就ok了。

方案2：用VBA宏（更直观，适合新手） #

要是觉得子查询有点绕，用VBA宏更清晰：

1. 点击「创建」→「模块」，打开VBA编辑器。
2. 粘贴下面的代码，替换你的表名为实际的表名：

   Sub AddCountSuffix()
       Dim db As DAO.Database
       Dim rs As DAO.Recordset
       Dim stdNameCounter As Object
       Dim currentName As String
       Dim count As Integer
       
       Set db = CurrentDb()
       '按索引字段（这里是ID）排序遍历记录
       Set rs = db.OpenRecordset("SELECT ID, StdName, Name FROM 你的表名 ORDER BY ID")
       Set stdNameCounter = CreateObject("Scripting.Dictionary")
       
       rs.MoveFirst
       Do Until rs.EOF
           currentName = rs!StdName
           '统计当前StdName的累计出现次数
           If stdNameCounter.Exists(currentName) Then
               count = stdNameCounter(currentName) + 1
           Else
               count = 1
           End If
           '更新Name字段
           rs.Edit
           rs!Name = rs!Name & "_" & count
           rs.Update
           '更新计数器
           stdNameCounter(currentName) = count
           rs.MoveNext
       Loop
       
       '清理资源
       rs.Close
       Set rs = Nothing
       Set db = Nothing
       Set stdNameCounter = Nothing
       MsgBox "计数后缀添加完成啦！"
   End Sub
   

3. 保存模块（比如叫RecordTools），回到Access界面，点击「创建」→「宏」，在宏设计里选「运行代码」，找到刚才的AddCountSuffix子过程，保存宏。
4. 运行宏就完成更新了。

重要提醒 #

• 操作前一定要备份数据库！万一操作错了还能恢复，血的教训😂
• 要是你的「索引」不是自动编号字段，记得在查询或VBA里把ID换成你实际的排序字段。
• 两个需求可以按顺序来：先运行第一部分的拆分查询，再运行第二部分的计数更新。

内容的提问来源于stack exchange，提问作者kamelkid2