0

我有一个包含两列（value1 和 value2）的表，这些值从最低到最高排序。例子：

Value1
20
40
43
90
100
122

Value2
4
5
9
10
15
18

我要求用户输入一个输入值，然后我计算 CalcFinalValue 的值，该值可以通过以下方式之一计算：

  1. 如果用户输入的值已经存在于 value1 字段中，则返回字段 value2 中对应的值。例如，如果用户输入为 100，则 CalcFinalValue 将为 15

  2. 如果 value1 字段中不存在用户输入值，则在 value1 字段中定位输入值在它们之间的两个值（例如，如果输入值为 42，我想从 value1 字段中定位 40 和 43）。计算 CalcFinalValue 为：CalcFinalValue=(40*9)+(43*5)/42

换句话说，公式将为：CalcFinalValue=（中间值的LowerValue *中间值的HigherValue的查找值）+（中间值的HigherValue *中间值的LowerValue的查找值）/（用户输入值）我想在 Access 2007 VBA 中执行此操作。

我希望这很清楚。提前感谢您的帮助！

4

1 回答 1

0 
Dim rs AS DAO.Recordset
Set rs = CurrentDb.OpenRecordset("TableName", dbOpenTable)

' inp stores the user input value; i counts the number of records that have been accessed
Dim inp, i as Integer
' r2c1 and r2c2 store the data of the second row in case the two-row calculation is needed 
Dim r2c1, r2c2 as integer

' Since I mostly use forms for I/O that's what I've used here
'   Change this to whatever method you use to get the user input
inp = Forms!FormName.InputTextBoxName.Value
i = 0
rs.MoveFirst
Do While (Not rs.EOF)
    i = i + 1
    ' Check if the user input exists in the table
    If (rs.Fields("Value1") = inp) Then
        ' Again use whatever output method you want
        Set Forms!FormName.OutputTextBoxName.Value = rs.Fields("Value1")
        End Do
    ' Otherwise, check if the current value in column 1 is greater than the input
    Else If (rs.Fields("Value1") > inp) Then
        ' If this is true for the first row then the input is less than the lowest number.
        ' I assume this is out-of-bounds, but use whatever boundary condition you want
        If (i = 1) Then
            MsgBox("Out of Bounds", vbOkOnly)
        Else 
            ' Save the required values from this row
            r2c2 = rs.Fields("Value2")
            r2c1 = rs.Fields("Value1")
            ' Goto previous row which and calculate according to your formula
            rs.MoveLast
            Set Forms!FormName.OutputTextBoxName.Value = (r2c1*r2c2 + rs.Fields("Value1")*rs.Fields("Value2"))/inp
        End If 
    End If 
    rs.MoveNext
Loop
' If nothing was found, the input was larger than all values in 'Value1'
If (rs.EOF) Then
    MsgBox("Out of Bounds", vbOkOnly)
End If

用您使用的任何列名替换 Value1 和 Value2

于 2012-06-26T10:05:59.737 回答