获取类型不匹配但组合框仍搜索并显示数据。 ID 列用于通过 Name 提取但不起作用

Question

Error popup after click ok on type mismatch

我正在使用组合框搜索记录，它告诉我类型不匹配。我一直无法找到这种不匹配的地方。组合框仍然执行根据“区域”选择所有记录的所需功能

我正在使用一个 ID 字段，该字段是使用组合框选择的，但我也想输入一个名称，所以我输入了一个未绑定的文本框，并在 ID 更改时使用 VBA 来更新名称为未绑定文本框中相应的ID

Form 出于隐私原因，我剪掉了其他一些显示数据的字段。

ID中on_change事件中的VBA去

Private Sub txtSupplierID_Change()

Me.txtSupplerName.Value = Table("tblSuppliers").SupplierName
Where Table("tblSuppliers").ID = txtSupplierID

End Sub

我知道这段代码可能有很大的错误，但我找不到任何其他地方可以告诉我如何做我想做的事情。任何关于如何实际操作的建议将不胜感激。如果我没有说的那么详细或者你有任何问题请提问。

编辑澄清：该表单未用于保存数据。它仅用于显示数据和向报告发出输出。

Answer 1

代码不仅是错误的，而且是胡说八道。不能像那样引用 table 对象。 Where 用法无效。从 table 中提取值的一种方法是使用 DLookup 域聚合函数。建议使用 AfterUpdate 而不是 Change 事件。

Private Sub txtSupplierID_AfterUpdate()
Me.txtSupplerName.Value = DLookup("SupplierName", "tblSuppliers", "ID = " & txtSupplierID)
End Sub

可能想要将文本框名称从 txtSupplerName 更正为 txtSupplierName。

但是，不应将供应商 ID 和供应商名称都保存到此 table。这个VBA确实应该没有必要。只需将 DLookup() 表达式放在文本框 ControlSource 中。对于拉取供应商名称的其他方法，请查看 MS Access Identical Comboboxes for Autofill

中的答案

获取类型不匹配但组合框仍搜索并显示数据。 ID 列用于通过 Name 提取但不起作用

Getting a type mismatch but combo box still searches and displays data. ID column is being used to pull through Name but doesn't work

ms-access

vba