我有一个包含两个子表单(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错误。
答案 0 :(得分:0)
尝试:
Forms!frmServices!frmExpensesSubForm!Amount = Forms!frmServices!MileageSubForm!reimburseAmount
请注意Amount和reimburseAmount前面的!。
一般情况下,要么在表单表达式中使用!或。,请尽量不要混用它们。