MS Access:如何使用下拉组合框控件填充表单中的多个文本字段
MS Access: How to use a pulldown combo-box control to populate multiple text fields in a form
有 3 个文本字段需要使用下拉组合中的列信息进行填充。
组合框控件称为 cmb_ao_owner(1),目标文本字段(将列数据传递到)是 txt_ao_owner_id(2)、txt_ao_owner_phone(3) , 和 txt_ao_owner_email(4) 分别。
文本字段将分别填充 column(1)、column(2) 和 column(3) 数据。来自组合框的查询是:
SELECT [dbo_SUP_CONTACTS].[sc_owner_id], [dbo_SUP_CONTACTS].[sc_owner],
[dbo_SUP_CONTACTS].[sc_work], [dbo_SUP_CONTACTS].[sc_email]
FROM dbo_SUP_CONTACTS ORDER BY [sc_owner];
控件是子子窗体
parent-form: workbench
sub-form: contacts
sub-sub-form: asset_owners
..但我现在知道这并不重要,因为我认为“我”参数解决了这个问题。
我遇到的挑战是在更新事件后将组合数据传递到同一行中的文本字段的语法。
图 A:尝试 1
Private Sub cmb_ao_owner_AfterUpdate()
me.parent.txt_ao_owner_id = [cmb_ao_owner].Column(2)
me.parent.txt_ao_owner_phone = [cmb_ao_owner].Column(3)
me.parent.txt_ao_owner_email = [cmb_ao_owner].Column(4)
End Sub
图 A:尝试 2
Private Sub cmb_ao_owner_AfterUpdate()
Me!txt_ao_owner_id = Me!cmb_ao_owner.Column(2)
Me!txt_ao_owner_phone = Me!cmb_ao_owner.Column(3)
Me!txt_ao_owner_email = Me!cmb_ao_owner.Column(4)
End Sub
每次尝试都出现错误。有什么建议么?非常感谢任何帮助。
谢谢。
刚刚用快速模型试了一下...
Private Sub Combo0_AfterUpdate()
Me.Text2.Value = Me.Combo0.Column(1)
End Sub
在您的示例中 Me!txt_ao_owner_phone
等不应该也包含“.value”或“.text”吗?因此:Me!txt_ao_owner_phone.Value
有 3 个文本字段需要使用下拉组合中的列信息进行填充。
组合框控件称为 cmb_ao_owner(1),目标文本字段(将列数据传递到)是 txt_ao_owner_id(2)、txt_ao_owner_phone(3) , 和 txt_ao_owner_email(4) 分别。
文本字段将分别填充 column(1)、column(2) 和 column(3) 数据。来自组合框的查询是:
SELECT [dbo_SUP_CONTACTS].[sc_owner_id], [dbo_SUP_CONTACTS].[sc_owner],
[dbo_SUP_CONTACTS].[sc_work], [dbo_SUP_CONTACTS].[sc_email]
FROM dbo_SUP_CONTACTS ORDER BY [sc_owner];
控件是子子窗体
parent-form: workbench
sub-form: contacts
sub-sub-form: asset_owners
..但我现在知道这并不重要,因为我认为“我”参数解决了这个问题。
我遇到的挑战是在更新事件后将组合数据传递到同一行中的文本字段的语法。
图 A:尝试 1
Private Sub cmb_ao_owner_AfterUpdate()
me.parent.txt_ao_owner_id = [cmb_ao_owner].Column(2)
me.parent.txt_ao_owner_phone = [cmb_ao_owner].Column(3)
me.parent.txt_ao_owner_email = [cmb_ao_owner].Column(4)
End Sub
图 A:尝试 2
Private Sub cmb_ao_owner_AfterUpdate()
Me!txt_ao_owner_id = Me!cmb_ao_owner.Column(2)
Me!txt_ao_owner_phone = Me!cmb_ao_owner.Column(3)
Me!txt_ao_owner_email = Me!cmb_ao_owner.Column(4)
End Sub
每次尝试都出现错误。有什么建议么?非常感谢任何帮助。
谢谢。
刚刚用快速模型试了一下...
Private Sub Combo0_AfterUpdate()
Me.Text2.Value = Me.Combo0.Column(1)
End Sub
在您的示例中 Me!txt_ao_owner_phone
等不应该也包含“.value”或“.text”吗?因此:Me!txt_ao_owner_phone.Value