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

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

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