MS Access UPDATE语句WHERE子句致全表更新问题求助

需要更新查询qryCLFull（与表tblCLFull等价）的[olnAg]字段，更新规则为：将字段值设置为同一条记录[cellLine]字段按空格分割后的第二个文本，例：[cellLine]值为This is the cellLine field时，对应[olnAg]应更新为is。
现有窗体frmSecWord按钮点击事件中的VBA代码，记录集获取、文本拆分的基础逻辑可运行，但UPDATE执行结果异常：所有记录的[olnAg]字段都被统一更新为第一条记录计算出的is，无法实现逐行对应更新。
原有问题代码如下：

Private Sub btnBySpace_Click() 
    Dim rsON As DAO.Recordset 
    Dim rsNN As DAO.Recordset 
    Dim db2 As Database 
    Dim sqlON As String 
    Dim sqlNN As String 
     
    Dim newVal As String 
    Dim arr As Variant 
 
    sqlON = " SELECT  cellLine FROM  qryCLFull" 
    sqlNN = " SELECT  olnAg FROM  qryCLFull" 
 
    Set db2 = CurrentDb 
     
    Set rsON = db2.OpenRecordset(sqlON)  
    Set rsNN = db2.OpenRecordset(sqlNN) 
    arr = Split(rsON!cellline, " ") 
     
    If IsNull(arr(1)) Then 
    newVal = arr(0) 
    Else: newVal = arr(1) 
    End If 
 
    Do Until rsON.EOF 
    If Not IsNull(rsON.Fields(0).Value) Then 
 
    sqlstr = "UPDATE qryCLFull SET qryCLFull.olnAg = '" & newVal & "' 
    db2.Execute sqlstr 
    End If 
     
    rsON.MoveNext 
    rsNN.MoveNext 
   
    Loop 
 
    rsON.Close 
    rsNN.Close 
     
    Set rsNN = Nothing 
    Set rsNN = Nothing 
    Set db2 = Nothing 
     
End Sub

• 文本拆分、newVal赋值逻辑写在了循环外部，仅会对第一条记录的[cellLine]做一次拆分，后续循环中newVal始终是第一条记录的计算结果
• UPDATE语句未添加WHERE条件限定更新范围，每次执行db2.Execute都会更新全表所有行
• 存在冗余代码与语法错误：rsNN记录集全程未使用、对象销毁时重复释放rsNN但未释放rsON、UPDATE语句的字符串未闭合双引号、直接用IsNull(arr(1))判断会在分割后数组长度不足2时触发下标越界错误

方案1：单条SQL直接更新（推荐，性能最优） #

无需打开记录集循环，直接用Access内置字符串函数完成拆分更新，执行效率远高于逐行循环，代码如下：

Private Sub btnBySpace_Click()
    Dim db2 As Database
    Dim sqlStr As String
    Set db2 = CurrentDb
    
    sqlStr = "UPDATE qryCLFull " & _
             "SET olnAg = IIf(InStr(cellLine, ' ') = 0, cellLine, " & _
             "Mid(cellLine, InStr(cellLine, ' ') + 1, " & _
             "IIf(InStr(InStr(cellLine, ' ') + 1, cellLine, ' ') = 0, Len(cellLine), " & _
             "InStr(InStr(cellLine, ' ') + 1, cellLine, ' ') - InStr(cellLine, ' ') - 1))) " & _
             "WHERE cellLine Is Not Null"
    ' 加dbFailOnError参数，遇到更新错误时直接抛出提示
    db2.Execute sqlStr, dbFailOnError
    
    Set db2 = Nothing
    MsgBox "更新完成", vbInformation
End Sub

该SQL逻辑与Split拆分规则完全一致：

• 若[cellLine]中无空格，直接取整个字段值
• 若有空格，截取第一个空格和第二个空格之间的内容，即分割后的第二个片段
• 若只有一个空格（分割后仅2个片段），取第一个空格后的全部内容

方案2：修正记录集逐行更新（适合需要加自定义逐行判断逻辑的场景） #

直接打开可更新记录集，在循环内逐行计算、编辑当前记录，无需写全表UPDATE语句，避免漏加WHERE条件的问题：

Private Sub btnBySpace_Click()
    Dim rsON As DAO.Recordset
    Dim db2 As Database
    Dim sqlON As String
    Dim newVal As String
    Dim arr As Variant
    
    Set db2 = CurrentDb
    sqlON = "SELECT cellLine, olnAg FROM qryCLFull WHERE cellLine Is Not Null"
    ' 以dynaset模式打开可更新记录集
    Set rsON = db2.OpenRecordset(sqlON, dbOpenDynaset)
    
    Do Until rsON.EOF
        ' 循环内逐行拆分当前记录的cellLine
        arr = Split(rsON!cellLine, " ")
        ' 用UBound判断数组长度，避免下标越界
        If UBound(arr) < 1 Then
            newVal = arr(0)
        Else
            newVal = arr(1)
        End If
        ' 直接编辑当前行
        rsON.Edit
        rsON!olnAg = newVal
        rsON.Update
        
        rsON.MoveNext
    Loop
    
    rsON.Close
    Set rsON = Nothing
    Set db2 = Nothing
    MsgBox "更新完成", vbInformation
End Sub

若必须在循环内执行单独的UPDATE语句，一定要加WHERE条件匹配记录的唯一主键（例：表主键为ID时，SQL写为"UPDATE qryCLFull SET olnAg = '" & Replace(newVal, "'", "''") & "' WHERE ID = " & rsON!ID），同时用Replace(newVal, "'", "''")转义文本中的单引号，避免SQL语法错误。

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