Vba 数据类型数字十进制

直到几天前，一切正常，然后我遇到了这个问题。 我在Microsoft365中为Access vba编写了一些代码，这些代码在一些本地和连接的表上运行SQL查询。 其中一个连接表的字段设置为数据类型Number-Decimal。正如我提到的，几天前这个字段开始返回空字符串。这是我试图调查问题的几个步骤

我制作了连接表的本地副本，以确保问题不是来自外部。没有区别

我创建了一个简单的查询访问——从[NameTable]中选择*，所有数据都在那里

我在vba中运行相同的查询，该字段返回一个空字符串

我在vba中运行access查询

Set qdfNew = dbs.QueryDefs("Pippo")
Set RS = qdfNew.OpenRecordset
    If Not (RS.EOF And RS.BOF) Then
        RS.MoveLast
        RS.MoveFirst
        For iCurRec = 0 To RS.RecordCount - 1
            Debug.Print RS.Fields("HSL_QUANTITA").Value
            RS.MoveNext
        Next iCurRec
    End If
RS.Close

它返回一个空字符串 5.我将表的数据类型更改为数字-整数、长、单和双，在所有这些情况下，vba中的查询都返回正确的值 6.我用这种方式修改代码

    Set qdfNew = dbs.QueryDefs("Pippo")
    Set RS = qdfNew.OpenRecordset
        If Not (RS.EOF And RS.BOF) Then
            RS.MoveLast
            RS.MoveFirst
            For iCurRec = 0 To RS.RecordCount - 1
                Debug.Print TypeName(RS.Fields("HSL_QUANTITA").Value)
                RS.MoveNext
            Next iCurRec
        End If
    RS.Close

更改数据类型时，代码会在即时窗口中返回： 字符串->数字十进制 单精度->数字单精度 双精度->数字双精度 整数->数字整数 长->数字长

看起来几天前vba再也不能将十进制转换为字符串了

我不拥有连接的表，因此无法更改数据类型。 我试图向办公室帮助台报告问题，但他们无法解决问题，因为问题与vba有关

有什么建议吗

---

谢谢

您最近遇到了一个bug：

---

请注意包含的临时解决方案链接。

您最近遇到了一个错误：

---

请注意包含的临时解决方案链接。

感谢您提醒我们注意，古斯塔夫。昨天我遇到了这个bug（不记得我的应用程序中的外部导入函数使用了DECIMAL），在不知道的情况下调试它会困难得多。：）谢谢你提醒我们注意，古斯塔夫。昨天我遇到了这个bug（不记得我的应用程序中的外部导入函数使用了DECIMAL），在不知道的情况下调试它会困难得多。：）