Question

我在Access VBA中有以下代码。

Public Sub CalculateVol()

Dim vol As Double
Dim rs As Recordset
Dim rs2 As Recordset
Dim iRow As Long, iField As Long
Dim strSQL As String
Dim CurveID As Long
Dim MarkRunID As Long
Dim MaxOfMarkAsofDate As Date
Dim userdate As String

DoCmd.RunSQL "DELETE * FROM HolderTable"
'Clears out the old array from the holder table.

Dim I As Integer
Dim x As Date

userdate = InputBox("Please Enter the Date (mm/dd/yyyy)")

x = userdate

Dim BucketTermAmt As Long
BucketTermAmt = InputBox("Please Enter the Term Amount")

For I = 0 To 76

MaxOfMarkAsofDate = x - I



strSQL = "SELECT * FROM VolatilityOutput WHERE CurveID=" & Forms!Volatility.cboCurve.Value & " AND MaxOfMarkAsofDate=#" & MaxOfMarkAsofDate & "# ORDER BY MaxOfMarkasOfDate, MaturityDate"

Set rs = CurrentDb.OpenRecordset(strSQL, Type:=dbOpenDynaset, Options:=dbSeeChanges)
Set rs2 = CurrentDb.OpenRecordset("HolderTable")



If rs.RecordCount <> 0 Then

    rs.MoveFirst

    rs.MoveLast


    Dim BucketTermUnit As String
    Dim BucketDate As Date
    Dim MarkAsOfDate As Date
    Dim InterpRate As Double


    Dim b As String

    b = BucketTermAmt

    BucketTermUnit = Forms!Volatility.cboDate.Value
    BucketDate = DateAdd(BucketTermUnit, b, MaxOfMarkAsofDate)
    InterpRate = CurveInterpolateRecordset(rs, BucketDate)

    rs2.AddNew
    rs2("BucketDate") = BucketDate
    rs2("InterpRate") = InterpRate
    rs2.Update


End If

Next I


vol = EWMA(0.94)

Forms!Volatility!txtVol = vol

Debug.Print vol


End Sub

基本思想是用户输入MaxofMarkAsofDate的日期。然后代码在表VolatilityOutput中找到MarkAsofDate的实例，并将其用作计算InterpRate的参考点。它将此数字存储在HolderTable中。然后它循环相同的过程，除了使用用户输入的MarkAsofDate之前的一天，然后是之前一天，依此类推，总共76次。

第一部分工作正常，但循环给我带来麻烦。如果它没有在表中找到用户输入的日期，它只会跳过它，但仍将其视为循环。因此，虽然我想要76个数据点，但如果它跳过20个日期，我可能最终会得到56个数据点。所以我想要阻止它跳过，或者只是保持循环，直到HolderTable总共有76个数字。我该怎么做？

Answer 1

听起来你想要一个while循环，因为写入的for循环总是会有相同的次数。看起来您可能需要第二个计数器来增加日期。

while count < 76
    'get rs here
    if rs.RecordCount <> 0 Then
        'do everything else
        count = count + 1
    end if
    dateCounter = dateCounter + 1
loop

在VBA跳过值中循环

1 个答案: