如何在输入产品时让表单字段自动填充？

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

你可能指的是当前的形式，因此使用我：

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