Question

我试图找出如何使我的Dlookup函数看起来像它的关联标签和该标签的值。

我的例子是：

=DLookup("[OfficeOf]","tblLocationMSTR","[LocationCode]=LABEL CONTENT HERE")

最重要的是，我需要为这样的事情添加一个Mid（）命令：

=DLookup("[OfficeOf]","tblLocationMSTR","[LocationCode]=Mid("LABEL CONTENT HERE")")

Answer 1

如果标签已附加，您的文本框将包含一组控件。

=DLookup("[OfficeOf]","tblLocationMSTR","[LocationCode]='" & Me.TextBox1.Controls(0).Caption & "'")

您必须确定表单上文本框的名称。我使用 TextBox1 作为示例。

Answer 2

将表单的OnLoad属性设置为[Event Procedure]，然后在表单后面添加以下代码：

Private Sub Form_Load()
Dim Ctl As Control

    For Each Ctl In Me.Controls
        If Ctl.Tag = "some_text_used_as_a_flag" Then
            Ctl.ControlSource = "=DLookup(""[OfficeOf]"",""tblLocationMSTR"",""[LocationCode]=""" & Ctl.Controls(0).Caption & """)"
        End If
    Next Ctl
End Sub

我假设你想要一种方法来指定哪些标签/文本框组合应该动态更新。您可以通过将每个文本框的Tag属性设置为某些特定文本来实现，您可以在循环控件时检查这些文本。

Dlookup依赖于Label / Textbox

2 个答案: