快速开发平台制作的窗体，如何编写代码让子窗体的某个字段根据上一个字段的值做出自动的查询？

我用快速开发平台制作的窗体，是主次窗体那种，现在次窗体里有几个字段：产品编码ID，计量单位，产品单价。

我希望输入产品编码ID后，计量单位和产品单价能自动查询匹配。已经制作了产品的基础信息表，里面有这些字段的对应信息。

我从别人制作的示例中简单修改了一下代码，虽然能够自动查询匹配了，但是却会出现无法保存的情况，先是提示产品的基础信息表有需要输入的值，然后窗体关闭后又提示快速开发平台找不到新建信息的编辑窗体了。

这是别人的代码：

Private Sub 货号_LostFocus()
On Error GoTo Err_货号_LostFocus
    If varTemp(0) = "" Or varTemp(1) = "" Or IsNull(Me![货号]) Then
        Exit Sub
    Else
        Me![品名] = DLookup("品名", "商品资料", "[货号]= '" & Me![货号] & "'")
        Me![进货价] = DLookup("进货价", "商品资料", "[货号]= '" & Me![货号] & "'")
    End If
Exit_货号_LostFocus:
    Exit Sub
Err_货号_LostFocus:
    MsgBox Err.Description
    Resume Exit_货号_LostFocus
End Sub

Private Sub 产品编号_LostFocus()
On Error GoTo Err_产品编号_LostFocus
    If IsNull(Me![产品编号]) Then
        Exit Sub
    Else
        Me![计量单位] = DLookup("计量单位", "产品信息", "[产品编号]= " & Me![产品编号] & "")        
    End If
Exit_产品编号_LostFocus:
    Exit Sub
End Sub