從數據庫訪問中自動填寫表格

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 

很明顯，您需要將表和字段名稱更改爲您實際擁有的內容，但這是框架。