如何根据组合框值填充文本框?

时间:2013-07-17 00:59:18

标签: vba ms-access combobox

我有这种情况,我有一个组合框名称合同,行源类型是表/查询。现在在文本框中我想显示人的姓名,电话,手机,传真,地址。合同属于很多人,所以如果可能的话,我想在标签上计算合同,否则文本框就可以了。假设用户从组合框即新南威尔士大学选择合同,现在我想在文本框中显示该人的详细信息,我还想同时计算承包商的数量。我有一张桌子。如果我不清楚,我道歉。

到目前为止我使用的代码是

Private Sub cmbContractSite_AfterUpdate()
Me.txtName = Me.cmbContractSite.column(1)

me.txtPhoneNo=Me.cmbContractSite.column(2)

.

.
End Sub

用于计算

Private Sub cmbContractSite_AfterUpdate()
Me.txtCount = Me.cmbContractSite.ListCount
End Sub

但根本不起作用

请帮忙吗?

1 个答案:

答案 0 :(得分:0)

您可以将文本框的ControlSource设置为以下内容,更改了您正在计算的字段的名称,表名等。

=DCount("StaffID","[tblStaff]","Office='" & [Combo0].[Column](3) & "'")

这会计算表tblStaff中StaffID字段的数量,其中Office与组合框的第3列中当前选定的值匹配。因此,当我从组合框中选择一名工作人员时,它会显示与该人在同一办公室的所有工作人员的计数。

将文本框的ControlSource设置为

=[Combo0].[ListCount]

显示组合框中所有项目的总数。

已添加这些数据库函数对语法非常挑剔。在Access帮助系统中,它建议字段名称应该有方括号,而不是表名。这是不正确的,反之亦然。