Question

我是初学者，这是我的第一篇文章，只是为了先解决这个问题。我已经突出显示了我以粗体显示的问题，但基本上我无法使用给定的条件搜索表格。我试图通过使用这个for循环缩短我的代码。目前我正在运行40多个dlookup。

我有一个用户分配给他们的桌面编号的数据库，我已经创建了一个表单，其中的布局显示了他们的桌面使用标签的位置，但我试图在dlookup中使用标签标题作为搜索条件。如果我使用确切的标签名称，它可以工作，如果我使用me.control，我开始遇到问题。还有什么我可以使用的吗？我可以使用me.control设置标签标题，但不能使用它进行搜索。

For deskNumber = 1 To 3

      strDesk = "desk" & deskNumber

      strDeska = "desk" & deskNumber & "a"

      If ("Desk_No") <> "Empty" Then
              If Me.Controls(strDesk).Caption = DLookup("Full_Name", "Tbl_Employee", "Desk_No='" & **Me.Controls(strDeska).Caption** & "'") = vbNullString Then
              Else
                   Me.Controls(strDesk).Caption = "Empty"
              End If
      Else
              Me.Controls(strDesk).Caption = "Empty"
      End If
Next deskNumber

Answer 1

结束，代码错误：

If ("Desk_No") <> "Empty" Then

那就是比较字符串"Desk_No"和"Empty"，它们是常量，永远不会相等。

其次，我真的不明白你要做什么，但标签不能像文本框那样容易控制。我建议将标签更改为文本框，并将其格式化为与标签格式相同的方式。

我会说放入一些断点并查看从这些控件和dlookup实际返回的内容

vba中用于访问的dlookup标准的问题

1 个答案: