求助：Access VBA填充MYSTERY_SHOPPER表缺失的同型号上月价格

你的VBA代码没生效，主要是遍历顺序错误和日期处理逻辑不严谨导致的，咱一步步拆解问题，再给你修正后的代码：

核心问题点 #

1. 记录遍历顺序不对
   你直接从表的第一条记录开始遍历，但如果二月的记录排在一月前面，字典里还没加载上月（一月）的价格数据，自然没法给二月的空值填充价格。必须先按日期从早到晚排序，确保先处理旧数据，再处理新数据。

2. 日期比较依赖字符串，容易出错
   你把Fecha转成字符串后比较，这会受系统日期格式影响（比如02/01/2024在不同地区可能是2月1日或1月2日），导致日期判断逻辑失效。应该直接用日期类型比较。

3. 字典存储与取值的冗余风险
   用datefield & "|" & pricefield拼接字符串再拆分，不仅容易出错，还不如直接用数组存储日期和价格更可靠。

4. 未处理无对应型号的情况
   如果某个型号在之前的记录里没有价格，你的代码会触发错误，但因为遍历顺序问题，可能根本没走到赋值步骤，所以看起来“没任何效果”。

修正后的VBA代码 #

Dim rs As Recordset
Dim currentDate As Date
Dim currentModel As String
Dim currentPrice As Variant
Dim modelPriceDict As Object

Set modelPriceDict = CreateObject("Scripting.Dictionary")

' 关键：按日期升序查询，先处理早月份的数据，再处理二月
Set rs = CurrentDb.OpenRecordset("SELECT * FROM MYSTERY_SHOPPER ORDER BY Fecha ASC")

With rs
    If Not (.BOF And .EOF) Then
        .MoveFirst
        Do Until .EOF
            currentDate = ![Fecha]
            currentModel = ![Modelo]
            currentPrice = ![Precio de Lista]
            
            If Not IsNull(currentPrice) Then
                ' 更新字典：保存每个型号的最新（最近日期）价格
                If Not modelPriceDict.Exists(currentModel) Then
                    ' 用数组存储日期和价格，避免字符串拆分错误
                    modelPriceDict(currentModel) = Array(currentDate, currentPrice)
                Else
                    ' 直接比较日期类型，准确判断哪个日期更新
                    If currentDate > modelPriceDict(currentModel)(0) Then
                        modelPriceDict(currentModel) = Array(currentDate, currentPrice)
                    End If
                End If
            Else
                ' 只有字典里有对应型号的价格时，才填充
                If modelPriceDict.Exists(currentModel) Then
                    .Edit
                    ![Precio de Lista] = modelPriceDict(currentModel)(1)
                    .Update
                End If
                ' 无对应型号的话，保持空值，也可以加MsgBox提示
            End If
            .MoveNext
        Loop
    End If
    .Close
End With

' 释放对象
Set rs = Nothing
Set modelPriceDict = Nothing

更高效的替代方案：用SQL批量更新 #

对于Access数据库，用SQL批量更新比VBA遍历记录集效率更高，尤其当数据量较大时：

UPDATE MYSTERY_SHOPPER t1
SET t1.[Precio de Lista] = (
    SELECT TOP 1 t2.[Precio de Lista]
    FROM MYSTERY_SHOPPER t2
    WHERE t2.[Modelo] = t1.[Modelo]
      AND t2.[Fecha] < t1.[Fecha]
      AND NOT ISNULL(t2.[Precio de Lista])
    ORDER BY t2.[Fecha] DESC
)
WHERE ISNULL(t1.[Precio de Lista])
  -- 可选：只更新二月的空值记录，缩小更新范围
  AND MONTH(t1.[Fecha]) = 2

这段SQL的逻辑是：给每个Precio de Lista为空的记录，找到同型号、日期更早且价格不为空的最新一条记录的价格，直接赋值过去。

内容的提问来源于stack exchange，提问作者Bryan Stalyn Almachi Analuisa