从数据库访问自动填写表格

Question

我正在使用许可证表格，您需要在其中输入合同编号、合同日期、许可证所有者、许可证开始日期和结束日期。但有些合同上有 50 个许可证。我的问题是；我怎样才能做到当我输入一个已经存在于数据库中的合同号时，我之前提到的所有字段都会自动填充以加快数据输入速度？

Answer 1

在合同编号的 AfterUpdate 事件中，运行 查询您的数据集。

Dim db as Database
Dim rec as Recordset

Set db = CurrentDB
Set rec = db.OpenRecordset("SELECT * FROM MyTable WHERE ContractNumber = '" & Me.txtContractNumber & "'")

If rec.EOF Then
Else
  Me.LicenseOwner = Rec("LicenseOwner")
  Me.LicenseDate = rec("LicenseDate")
  Etc...
End If

显然您需要将 table 和字段名称更改为您实际拥有的名称，但这就是框架。