Question

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

Value1
20
40
43
90
100
122

Value2
4
5
9
10
15
18

我要求用户输入一个输入值然后我计算CalcFinalValue的值，可以用下列其中一个计算：

如果用户输入值已经存在于value1字段中，则返回字段value2中的对应值。例如，如果用户输入为100，那么CalcFinalValue将为15
如果value1字段中不存在用户输入值，则在value1字段中找到输入值在它们之间的两个值（例如，如果输入值为42，我想要找到40和来自value1字段的43）。将CalcFinalValue计算为： CalcFinalValue =（40 * 9）+（43 * 5）/ 42

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

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

Answer 1

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

浏览Access VBA中的表记录

1 个答案: