使用相同的字段和表组合多个查询

Question

我有一份订单信息表格。从表单上的组合框中选择订单号后，它将填充订单日期、产品信息、客户 ID 等字段（所有这些信息的来源是 OrderInfo 表）。我有一个单独的 CustomerInfo 表，其中包含客户 ID、姓名、地址...表单上有四个客户 ID 字段。我想根据客户 ID 字段自动显示姓名、地址...。

我对第一个客户进行了查询，以查找表单上的客户 ID 值并找到姓名和名称。地址。但我不想为四个客户 ID 字段编写四个查询。有没有什么方法可以将所有四个合而为一，或者有没有更好的方法来完成此过程？

Answer 1

正如 June7 评论的那样，八行 DLookup 代码可能是最快的解决方案。

我个人不喜欢使用 DLookup，并且我确信它们是比我建议的更优雅的解决方案，但下面是我尝试过的（并且我假设未绑定文本框）。

在表单上创建一个私有子例程：

Private Sub PopulateNameAddress(CustomerID As Long, CustomerNameTextBox As TextBox, CustomerAddressTextBox As TextBox)
    
'CustomerNameTextBox is a variable for the names of the text boxes containing the customer's name
'CustomerAddressTextBox is a variable for the names of the text boxes containing the customer's address
    
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("SELECT CustomerName, CustomerAddress FROM CustomerInfo WHERE CustomerID=" & CustomerID)
    
        CustomerNameTextBox = rs!CustomerName
        CustomerAddressTextBox = rs!CustomerAddress
    
    rs.Close
    db.Close
    
    Set rs = Nothing
    Set db = Nothing
    
End Sub

然后在填充 CustomerID 后（如您提供的图像所示），调用此子例程，并为其提供 CustomerID、客户姓名的文本框名称以及客户的地址。运行一个循环可能会更好，但由于您只有四个记录要填充，这可能是最直接的：

    'Send the PopulateNameAddress subroutine the name of each text box containing the CustomerID, CustomerName, and CustomerAddress
    PopulateNameAddress Customer1IDTextBox, Customer1NameTextBox, Customer1AddressTextBox
    PopulateNameAddress Customer2IDTextBox, Customer2NameTextBox, Customer2AddressTextBox
    PopulateNameAddress Customer3IDTextBox, Customer3NameTextBox, Customer3AddressTextBox
    PopulateNameAddress Customer4IDTextBox, Customer4NameTextBox, Customer4AddressTextBox

不幸的是，我不确定您如何设置数据库，因此这可能不一定有效。让我知道。