在VBA Access中添加数据字段

我试图在VBA访问脚本中添加一个数据字段，在该字段中，我计算某个日期拨打某个号码的次数。我已经设置了返回已拨号码和天数的列，但是我很难在网上找到正确的格式来为我的另一个需要的列创建.AddDataField。这表示我的.AddDataField函数需要一个“=”符号。正确的格式是什么

Set xlPT = xlPC.CreatePivotTable(xlSheet.Range("A3"), "Aux Code Report")

With xlPT

    .AddDataField("Dialed_Mod_Num","DialedModTotal",xlCount)

    With .PivotFields("Dialed_Mod_Num")
     .Orientation = xlRowField
     .Position = 1
     .Caption = "DialedMOD_Num"
    End With

    With .PivotFields("LocalDay")
     .Orientation = xlRowField
     .Position = 2
     .Caption = "Date"
    End With

 .TableStyle2 = "PivotStyleMedium2"
 .RowAxisLayout 1
 .InGridDropZones = True
 .DisplayErrorString = True
End With

试试这个

.AddDataField .PivotFields("Dialed_Mod_Num"), "DialedModTotal", xlCount

---

它说“DataTypeError Mismatch”，我从表中格式化了它，我正在以数字格式检索数据，但它是作为varchar从SQL Server中输入的。但是当我强制转换（dialled_Num as Int）以确保它以Int的形式进入我的访问表时，它会说ODBC调用失败。我很抱歉。“Dialed_Mod_Num”应该是对数据透视表字段的引用。我已经更新了我的答案。如果这不能解决问题，其他人可能不得不尝试一下。