转换表单中的度量以更新表

时间:2013-06-13 16:50:38

标签: ms-access access-vba ms-access-2010

我正在使用Access 2010创建一个由当地渔民捕获的鱼类数据库。我有一张表格,里面有关于捕获的每条鱼的所有信息(位置,日期,长度等)以及一个向该表添加新记录的表格。我试图尽可能多地自动化数据输入,因为我们有许多实习生将在整个夏天输入数据。程序越多,我就越能限制数据录入中的错误。

我想以公制(mm)存储长度数据,但大多数渔民报告他们捕获的鱼的长度以英寸为单位。我不在乎我的数据库中有两倍长度,一个指标和一个英制。

有没有办法在表单上有一个盒子,有人可以用英寸输入长度,这个值转换为公制并用于填写表格上的长度字段?诀窍在于,有时鱼的长度以度量标准报告,因此我需要能够直接将度量标准输入到表单中。

我猜这不是可能的,或者已经在某个地方&我在搜索中没有使用正确的关键词。我感谢任何能指出我正确方向的人。

谢谢!

2 个答案:

答案 0 :(得分:2)

在输入测量值的控件的After Update中,说控件名为Length

您可以使用此代码在vba中更改它。

Me.length = me.length * 25.4

这是执行此操作的众多方法之一

答案 1 :(得分:2)

这是一种方法。它与苏格兰威士忌相似,但有一些改进。

有2个文本框。每个1毫米和毫米英寸尺寸 Milimeters文本框通过控制源绑定到表中,因此输入的内容是数据库中保存的内容。 英寸文本框未绑定。但是输入到该文本框的内容将被转换,新值将被放入毫米文本框中。代码如下所示:

Private Sub txtSizeIn_AfterUpdate()
   Me.txtSizeMM = Me.txtSizeIn * 25.4
End Sub

通过这种方式,渔民可以选择使用何种测量方法。