日期作为无法识别的字段的名称访问

Question

我有字段，其中有作为交货日期的名称，您可以在这里看到： 我有大约75列这样。当我想计算P1值时，我有一个错误，因为它找不到该字段。顺便说一下，我的系数T1，T2（它们是日期），因此A和B的数值非常奇怪。还有就是代码：

Sub vcm_fc() 
    Dim db As Database, T As Date, longest As Integer, nearest_date As Date, rsb As DAO.Recordset, strsqlb As String 
    Dim strsqla As String, rsa As Recordset, maturity As Date, T1 As Date, T2 As Date, P1 As Double, P2 As Double 
    Dim a As Integer, B As Integer, j As Integer, rsc As DAO.Recordset, strqlc As String, settlementbis As String 
    Dim settlement As String, maturitybis As Date, ym As Integer, ymbis As Integer 
     Set db = CurrentDb() 
     T = DateSerial(2020, 8, 15) 
     nearest_date = DFirst("PricingDate", "fc_historical") 
     longest = DateDiff("m", nearest_date, T) 
     db.Execute "CREATE TABLE time_series " _ 
        & "(PricingDate CHAR);" 
     db.Execute " INSERT INTO time_series " _ 
      & "SELECT PricingDate " _ 
      & "FROM fc_historical " _ 
      & "ORDER BY PricingDate;" 
       For i = 1 To longest 
       db.Execute " ALTER TABLE time_series " _ 
        & "ADD COLUMN F_" & i & " Number;" 
       strsqla = "SELECT PricingDate, F_" & i & " FROM time_series ORDER BY PricingDate" 
       Set rsa = db.OpenRecordset(strsqla, dbOpenDynaset) 
       rsa.MoveFirst 
       rsa.Delete 'delete the first row which is blank when the time series table is created' 
       rsa.MoveFirst 
       While (Not rsa.EOF()) 
       rsa.Edit 
       maturity = DateAdd("m", i, rsa.Fields("PricingDate").Value) 
       ym = Year(maturity) - 2000 
       settlement = "1/" & Month(maturity) & "/" & ym 
       strsqlb = "SELECT Pricingdate, " & settlement & " FROM fc_historical ORDER BY PricingDate;" 
       Set rsb = db.OpenRecordset(strsqlb, dbOpenDynaset) 
       rsb.MoveLast 
       T1 = rsb.Fields("PricingDate").Value 
       maturitybis = DateAdd("m", i, maturity) 
       ymbis = Year(maturitybis) - 2000 
       settlementbis = "1/" & Month(maturitybis) & "/" & ymbis 
       strsqlc = "SELECT Pricingdate, " & settlementbis & " FROM fc_historical ORDER BY PricingDate;" 
       Set rsc = db.OpenRecordset(strsqlc, dbOpenDynaset) 
       rsc.MoveLast 
       T2 = rsc.Fields("PricingDate").Value 
       a = DateDiff("d", T1, rsa.Fields("PricingDate").Value) 
       B = DateDiff("d", rsa.Fields("PricingDate").Value, T2) 
       P1 = rsb.Fields(settlement).Value 
       P2 = rsc.Fields(settlementbis).Value 
       rsa.Fields("F_" & i) = (P1 * B + P2 * a)/(a + B) 
       rsa.Update 
       rsa.MoveNext 
       Wend 
     Next i 
End Sub 

Answer 1

已添加为答案，以便我可以获取代码的格式。这段代码会把你的日期字段名称和它们作为记录值 - 你可能需要仔细研究fld.Name，以确保它不是美国日期格式（1月8日，1月9日等）。与该日期的价格。

Sub Put_Field_Names_As_Record_Values() 

    Dim DB As DAO.Database 
    Dim OldTable As DAO.TableDef 
    Dim fld As DAO.Field 

    Set DB = CurrentDb() 
    Set OldTable = DB.TableDefs("time_series") 

    DoCmd.SetWarnings False 
    For Each fld In OldTable.Fields 
     If IsDate(fld.Name) Then 
      Debug.Print fld.Name & " : " & SQLDate(fld.Name) 
      DoCmd.RunSQL "INSERT INTO MyNewTable (PricingDate, SettlementDate, Price) " & _ 
       "SELECT PricingDate," & SQLDate(fld.Name) & ", [" & fld.Name & "] FROM time_series" 
     End If 
    Next fld 
    DoCmd.SetWarnings True 

End Sub 

Function SQLDate(varDate As Variant) As String 
    'Purpose: Return a delimited string in the date format used natively by JET SQL. 
    'Argument: A date/time value. 
    'Note:  Returns just the date format if the argument has no time component, 
    '    or a date/time format if it does. 
    'Author:  Allen Browne. allen@allenbrowne.com, June 2006. 
    If IsDate(varDate) Then 
     If DateValue(varDate) = varDate Then 
      SQLDate = Format$(varDate, "\#mm\/dd\/yyyy\#") 
     Else 
      SQLDate = Format$(varDate, "\#mm\/dd\/yyyy hh\:nn\:ss\#") 
     End If 
    End If 
End Function 

然后，您可以运行查询的表：

SELECT SUM(Price) 
FROM MyNewTable 
WHERE PricingDate<=#07/16/2014# AND SettlementDate=#01/08/2014# 

编辑：测试你的数据库的副本！
编辑2：手动创建MyNewTable并将PricingDate和SettlementDate设置为关键字段。

我已更新将字段名称转换为正确的日期 - http://allenbrowne.com/ser-36.html
在我的测试中，它将所有日期正确地转换为每月的第一个日期。

Answer 2

使用正确格式化的日期表达式：

settlementbis = "#" & CStr(ymbis) & "/" & CStr(Month(maturitybis)) & "/1#" 

，做听达伦约正常化。