如何从 SQL 设置文本框的控制源

Question

我有一个绑定到 SQL 语句的子表单。在子窗体中，我有几个文本框绑定到该 SQL 的字段。但是，我有另一个文本框需要绑定到来自不同 SQL 语句的字段，其条件来自第一个。我的代码如下所示：

Dim subform As Object
Dim formFilter As String

formFilter = "SELECT * FROM my_table_1"
Set subform = Me!my_subform.Form    
subform.RecordSource = formFilter

subform.field1.ControlSource = "tb1f1"
subform.field2.ControlSource = "tb1f2"
...
subform.f3.ControlSource = "= SELECT TOP 1 tb2f3 FROM my_table_2 WHERE tb2f1 = '" & [tb1f1] & "' AND tb2f2 = '" & [tb1f2] "' ORDER BY tb2f4"

这里不能直接使用 DLOOKUP 函数，因为我需要对表格结果进行排序。

提前感谢您的帮助。

Answer 1

您不能将同一表单上的控件绑定到 2 个不同的记录集。您唯一能做的就是从 2 个不同的记录集中提取数据，但这可能不是最好的方法。

为此，您必须创建第二个记录集并在其中获取该值。比如：

Dim db as Database
Dim rec as Recordset

Set db = CurrentDB
Set rec = db.OpenRecordset("SELECT TOP 1 tb2f3 FROM my_table_2 WHERE tb2f1 = '" & [tb1f1] & "' AND tb2f2 = '" & [tb1f2] "' ORDER BY tb2f4")

Me.MyControlName = rec(0)

Answer 2

我想我会简单地创建一个小函数来获得你想要的结果。最好在您自己的函数中简单地修改 DLookup 并添加排序，但我不会在这里这样做。
首先是表单代码。请注意，我没有设置记录源，只是设置了可能不是您想要的值。

subform.f3 = fGet_tb2f3([tb1f1], [tb1f2])

然后是函数代码（放入自己的错误处理）

Public Function fGet_tb2f3(tblf1 as String,tblf2 as String) as String  
    Dim rst as dao.recordset
    Dim db as database
    set db = currentdb
    set rst = db.openrecordset("SELECT TOP 1 tb2f3 FROM my_table_2 WHERE tb2f1 = '" & tb1f1 & "' AND tb2f2 = '" & tb1f2 "' ORDER BY tb2f4",dbopensnapshot
    if not rst is nothing then
        if not rst.eof then fGet_tb2f3 = rst!tb2f3
        rst.close
        set rst = nothing
    end if
    db.close
    set db = nothing
end Function