根据模态对话框中的字段更新子窗体中的字段

时间:2015-04-27 19:22:01

标签: access-vba ms-access-2013

我有一个包含两个子表单(frmExpensesSubForm和frmMileageSubForm)的主表单(frmServices)。服务和费用通过serviceID字段与一对多链接。 frmExpensesSubForm是一个数据表视图,包含expenseDate,Amount和expenseType的组合框。如果所选的费用类型是"自动里程" frmMileageSubForm显示为模式对话框,其中reimburseRate特定于frmExpensesSubForm中记录的expenseDate。在创建distanceTravelled条目时,在frmMileageSubForm上,reimburseAmount计算为速率和距离的乘积。所有这一切目前都有效。

在VBA中,当" OK"时,如何将frmExpensesSubForm中的Amount字段更新为计算出的reimburseAmount?单击按钮?我试过了:

Private Sub Command1_Click()
    Forms!frmServices!frmExpensesSubForm.Amount = Forms!frmServices!MileageSubForm.reimburseAmount
End Sub

但是我得到了运行时438错误。

1 个答案:

答案 0 :(得分:0)

尝试:

Forms!frmServices!frmExpensesSubForm!Amount = Forms!frmServices!MileageSubForm!reimburseAmount

请注意Amount和reimburseAmount前面的

一般情况下,要么在表单表达式中使用,请尽量不要混用它们。