Question

使用MS Access 2016和VBA的入门。我试图根据用户选择的工具显示有关已保留多少项或保留表中有多少项的信息。

工具组合框（cmbo_Tool）从表A中选择一个工具。我需要计算该工具出现在表B中的次数，然后将其显示在文本框A中。

我已经进行了涉及这两个表的查询，但是我不确定如何将其应用于标签。

相反，我在cmbo_tool上使用了AfterUpdate事件，并使用了DCount选项。

我想到的另一种方法是从表A中获取工具ID（在本例中为5），然后在列表B中进行搜索，然后进行计数。

'使用Dcount'

Private Sub cmbo_Tool_AfterUpdate()

  Me.Text1404 = DCount("cmbo_Tool", "tbl_Booking", "Tool")

End Sub

“使用表格ID”

Private Sub cmbo_Tool_AfterUpdate()

 Dim T_var as integer

 Dim FinalOut as integer

  T_var = Me.cmbo_Tool.Column(0)   'This gives 5'

  'I need to make T_Var link to Table b and count'

  Me.Text1404 = FinalOut

End Sub

使用Dcount方法，它不确定数字。我什至不确定即时通讯是否正确使用了dcount。

使用表id方法，不确定如何获取值5并将其计数到表B中，然后显示在文本框中。

Answer 1

我想可能是这样的：

Private Sub cmbo_Tool_AfterUpdate()

  Me!Text1404.Value = DCount("*", "tbl_Booking", "Tool = " & cmbo_Tool & "")

  ' If Tool is text, then use quotes:
  ' Me!Text1404.Value = DCount("*", "tbl_Booking", "Tool = '" & cmbo_Tool & "'")

End Sub

并重命名您的控件，使其有意义。

如何根据组合框值更新文本框

1 个答案: