Access 365 - 从组合框中填充未绑定文本字段时出错

Question

提前对冗长的描述表示抱歉，但这似乎是谨慎的做法。

我在获取组合框以正确填充子表单中的文本字段时遇到问题。

基于网上冲浪和本周早些时候将 VBA 添加到表单的一些有用指导，这是我尝试过的方法。

我创建了一个 table tblPgo 显示项目进行的几种可能性和相应的描述。

我有第二个 table tblDetails，其中包含有关我们所售商品的信息。

这两个 table 在子表单 tblDetals subform 中交互。

我在子表单中添加了一个组合框 cmbPgoValue。组合框从 tblPgo

获取数据

控制源是Pgo

行源是 SELECT [tblPgo].[PgoID], [tblPgo].[Pgo], [tblPgo].[PgoDescription] FROM tblPgo ORDER BY [Pgo];

行源语法是由组合框向导创建的。

在子表单中，我创建了一个名为 Pgo Description 的未绑定文本框，用于从组合框中接收对应于 selected Pgo 值的 PgoDecription 文本。

cmbPgoValue 具有以下更新后事件代码

Private Sub cmbPgoValue_AfterUpdate()

Me.PgoDescription = Me.cmbPgoValue.Column(2)

End Sub

当我使用组合框 select 一个 Pgo 值时，正确的 Pgo 描述会填充当前记录及其下方的记录。当我尝试完成错误填充的记录时，我收到有关复制索引等的错误。

我试过限制文本框，但似乎没有帮助。

提前致谢。

Answer 1

这是 UNBOUND 文本框的预期结果。只有一个描述文本框，因此所有记录都将显示相同的信息。不应将此信息复制到 tblDetails 中。而不是 VBA，只需在文本框 ControlSource 中包含表达式：

=cmbPgoValue.Column(2)

Access 365 - Error When Populating Unbound Text Field from Combo Box