Access VBA使用什么代码来允许表单计算文本响应?

问题描述 投票:0回答:1

我有一个通用的访问数据库,希望从中获得最大收益。

我创建了一个包含子表单(formData_Sub)的表单(formData_Header)。子表单包含要清点物品的文本框,以及与这些物品相对应的扫描数据(数字)。每个项目将具有2个文本框(count1和count2)。表单的标题包含将应用于子表单中所有框的文本框,例如来自仪器背景的值。背景将有2个文本框(bkg1和bkg2)。

[如果我还没有失去你,我想从标题中获取背景值,从子窗体中获取计数值,并在子窗体中的另一个文本框或组合框中计算文本响应。

即:If bkg1 + bkg2 > count1 + count2,则输出为“ FAIL”If bkg1 + bkg2 = count1 + count2然后输出为“重新评估”其他所有输出均为“确定”

我尝试过多种方式,每次都会收到一个随机错误,或者代码不执行任何操作。

ms-access access-vba
1个回答
0
投票

创建在每个控件上的after更新事件中调用的自定义函数。

它需要首先检查每个控件/参数中是否有一个值。如果不是,则返回默认的“ FAIL”值,否则使用上面显示的计算。

如果将函数放在主窗体代码中,请使用此格式将结果放入子窗体控件中:

Me.formData_Sub.Controls("txtResult") = strCalculatedResult

如果代码在子窗体上,则按通常方式将结果写入控件:

Me.ControlName = strCalculatedResult
© www.soinside.com 2019 - 2024. All rights reserved.