Question

感谢您对我之前提问的帮助。我的新请求仍然在数据库中，但是，我现在需要查找并合并数据，现在我再次收到错误，我认为这是因为它的完成方式。虽然，我在考虑是否从其他表导入数据正常它应该工作，但是，这导致另一个问题，数据没有正确匹配。因此，我需要执行查找和合并类型方法，以便它找到SKU numbers然后Item Description并导入该项目的百分比返回。某些报告中的SKU是较新的SKU，因此需要添加该字段。

我所做的代码方法如下：

Dim myR As Recordset
Dim myR2 As Recordset

Set myR = Nothing
Set myR2 = Nothing

Set myR = CurrentDb.OpenRecordset("[Nov 2015 Clicks Returns]", dbOpenDynaset)
Set myR2 = CurrentDb.OpenRecordset("[Clicks Returns]", dbOpenDynaset)

Do Until myR.EOF = True
    myR2.Find ("[SKU]=" & myR!Sku)
    If myR2.NoMatch = True Then
        myR2.AddNew
        myR2![Sku] = myR![Sku]
        myR2![Item Description] = myR![Item Description]
        myR2![Nov 2015 FIN YTD TY % Returns] = myR![F23]
        myR2.Update
    Else
        myR2.Edit
        myR2![Nov 2015 FIN YTD TY % Returns] = myR2![Nov 2015 FIN YTD TY % Returns] & "" & myR![F23]
        myR2.Update
    End If
    myR.MoveNext

Loop

Set myR = Nothing
Set myR2 = Nothing

我上次收到的上一张导入代码：

Dim strSQL As String

    strSQL = "INSERT INTO [Clicks Returns] " & _
        "(SKU, [Item Description], [Oct 2015 FIN YTD TY % Returns]) " & _
        "SELECT Sku, [Item Description], F21 FROM [Oct 2015 Clicks Returns];"
    DoCmd.RunSQL strSQL

感谢您花时间忽略我的问题以及回答问题的时间。非常感谢：D

VBA Access查找并合并编码

0 个答案: