我需要朝正确的方向捅一下。我有一个显示人员信息的联系表格,我希望它也显示他们工作的位置(存储在另一个表格中)。现在我要做的是将该组合框与位置(这是联系表格绑定表中的字段)一起使用,并填写该记录中的其余字段。 (I.E.位置,然后有一个填充位置地址的文本框)。我该怎么做呢此表单用于在必要时更新此人,因此查询不理想。在此表单上,该位置不可编辑,仅显示。
任何帮助都会很棒!
答案 0 :(得分:1)
您可以通过创建子表单并将其嵌入表单来完成此操作。可能还有其他更优雅的方法。
答案 1 :(得分:0)
在文本框的After_Update事件中,您可以使用以下内容:
Dim db as Database
Dim rec as Recordset
Set db = CurrentDB
Set rec = db.OpenRecordset ("Select * from MyTable WHERE UCase(Location) = '" & UCase(Me.MyLocationTextbox.Text) & "'")
Me.Address1 = rec("Address1")
Me.SomeOtherField = rec("WhateverItsCalled")
Set rec = Nothing
Set db = Nothing
显然,上面的代码需要稍微调整以适应您的特定字段名称和文本框名称,但您明白了。
另外,我建议使用一个组合框,因为总会有人拼错一些东西,而不是匹配。或者认为他们应该得到匹配而没有意识到他们会拼错它。