Access代码批量循环更新字段代码如下：

Private Sub Command1_Click()

    Dim rst As Object
    Dim strSQL As String
    Dim xgth As String
    Dim sqlXGzj As String
    Dim aa
    
    strSQL = "select * from [芯杆图纸]"
    Set rst = CreateObject("ADODB.Recordset")
    rst.Open strSQL, CurrentProject.Connection, 2, 3
    Do Until rst.EOF      '如果没有到结尾就一直循环
        xgth = rst!芯杆图号

        rst.MoveNext

        aa = Me.最近采购日期   '这里是可变的，比如根据上一步获取的芯杆图号来统计次数来赋值给aa

        sqlXGzj = "Update 芯杆图纸 SET 芯杆图纸.最近采购日期='" & aa & "' Where ((芯杆图纸.芯杆图号='" & xgth & "'))"
        CurrentDb.Execute sqlXGzj
    Loop
    rst.Close
    Set rst = Nothing
    MsgBox "已下单成功", vbInformation, "提示"

End Sub

以下是用平台来批量更新的代码：

Private Sub 下单_Click()
    Dim xgth As String
    Dim strsqlxg As String
    Dim cnnxg As Object
    Dim rsttmpxg As Object
    Dim sqlXGzj As String
    Set cnnxg = CurrentProject.Connection
    strsqlxg = "Select * FROM [芯杆图纸]"
    Set rsttmpxg = OpenADORecordset(strsqlxg, , cnnxg)
    Do Until rsttmpxg.EOF
        xgth = rsttmpxg!芯杆图号
        rsttmpxg.MoveNext
        sqlXGzj = "Update 芯杆图纸 SET 芯杆图纸.最近采购日期='" & Date & "' Where ((芯杆图纸.芯杆图号='" & xgth & "'))"
        CurrentDb.Execute sqlXGzj
    Loop
    rsttmpxg.Close
    Set cnnxg = Nothing
    Set rsttmpxg = Nothing
    MsgBox "已下单成功", vbInformation, "提示"
End Sub

演   示: