MS Access 使用 VBA 比较 2 个不同顺序的记录集

问题描述

我正在尝试编写一个函数来比较两个记录集中的“Pack_Number”字段。如果按数字顺序排列，我的代码可以正常工作，但如果按顺序添加包装编号，我的代码将无法正常工作，并且无法识别包装编号的存在。

我的代码：

Function Validation()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim rsm As DAO.Recordset
        
Set db = CurrentDb
Set rs = CurrentDb.OpenRecordset("RetailEntry")
Set rsm = CurrentDb.OpenRecordset("MasterQuery")

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Validate offers have not mailed
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
If Not (rs.EOF And rs.BOF) Then
rs.MoveFirst
Do Until rs.EOF = True

  If rsm.RecordCount = 0 Or rs.Fields("Pack_Number") <> rsm.Fields("Pack_Number") Then
    MsgBox ("All prefixes have mailed for Pack Number " & rs.Fields("Pack_Number") & " If you wish to submit an In-season Markdown Request " _
    & "please exit the tool,and submit your request using the In-Season Markdown request file in the CID Request folder")
    Exit Function
  
rs.MoveNext
rsm.MoveNext
Loop
End If

End Function

我想要做的只是让它验证他们从 RetailEntry 输入的包装编号是否出现在 MasterQuery 中，如果它通过否则失败并弹出 msgBox。

任何帮助将不胜感激。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）