输入产品时如何获取表单字段以自动填充？

Question

当我输入新记录时，我试图让表单自动填充进行测试所需的日期，但它会不断出错。我对使用VBA和Access 2016非常陌生。

我看过其他一些人张贴的作品的示例，但无法使其正常工作。
我一直在调试器。

Option Compare Database

Private Sub Fill_SKU_AfterUpdate()
    PopulateFields
End Sub

Private Sub PopulateFields()
    frmSerialTracerLog.Days_Used_For_Off_Test = DLookup("Days_Used_For_Off_Test", "tblTestDays", "Fill_SKU = '" & frmSerialTracerLog.Fill_SKU & "'")
End Sub

Answer 1

您可能是指当前表格，因此请使用 Me ：

Private Sub PopulateFields()
    Me!Days_Used_For_Off_Test.Value = DLookup("Days_Used_For_Off_Test", "tblTestDays", "Fill_SKU = " & Me!Fill_SKU.Value & "")
End Sub