在创建查询字段属性后，是否可以在VBA中设置其格式？
在Access中，当使用vba创建一个新查询时，我得到的一些数据是货币数据，但默认情况下是通用数字。我想改变它的格式，就像我们可以在属性表中做的那样，但我似乎找不到办法 我试过了在创建查询字段属性后，是否可以在VBA中设置其格式？,vba,ms-access,Vba,Ms Access,在Access中，当使用vba创建一个新查询时，我得到的一些数据是货币数据，但默认情况下是通用数字。我想改变它的格式，就像我们可以在属性表中做的那样，但我似乎找不到办法 我试过了 db.QueryDefs("TestQuery").Fields("SumOfSomething").Type = DAO.dbCurrency 但随后我得到：运行时错误“3219”：操作无效。 我四处搜索了一下，发现了一个类似的问题（但找不到），答案是在它被创建后，你不能改变它。我看不出，如果我们真的做不到的话，有
db.QueryDefs("TestQuery").Fields("SumOfSomething").Type = DAO.dbCurrency
运行时错误“3219”：操作无效。因此，最后，我们能否在创建查询后（在VBA中）更改字段的属性？我们必须在这里明确目标。是否要“仅”强制转换或更改查询中返回的列类型，还是要修改数据库表中的实际列类型？这是两个截然不同的目标 要使用代码修改列类型，必须创建（添加）新列类型，传输数据，然后删除旧列，然后将列重新命名为旧类型 换句话说，您不能仅仅更改数据类型，因为Access随后必须将每一行更新为新的数据类型 UI系统实际上在幕后完成了上述工作 如果使用DAO代码，则需要以下代码： 然而，上面是相当多的代码。可以使用DDL命令代替DAO代码来添加列 （SQL数据定义语言）来修改类型。因此，在代码中可以执行以下操作：
Dim db As dao.Database
Dim strSQL As String
Set db = CurrentDb
strSQL = "ALTER TABLE dbo_tblHotels1 ALTER COLUMN MyAmount currency"
db.Execute strSQL, dbFailOnError
因此，在上面，我们将“MyAmount”列更改为货币类型。您的问题看起来很简单，但正如您现在可能已经猜到的，它不是 format属性是字段的自定义属性。它们可以存在，如果存在，则应使用
字段.Properties字段.CreateProperty字段.PropertiesConst currencyFormat As String = "€ #,##0.00;€ #,##0.00-"'Dutch currency format, you need to set this for your locale
Dim qd As DAO.QueryDef
Set qd = CurrentDb.QueryDefs("TestQuery")
On Error Resume Next
qd.Fields("SumOfSomething").Properties!Format = currencyFormat
If Err.Number = 3270 Then 'Property not found, field had no format set
qd.Fields("SumOfSomething").Properties.Append qd.Fields("SumOfSomething").CreateProperty("Format", dbText, currencyFormat)
End If
On Error GoTo 0
您可以通过设置要使用的字段，然后使用
？CurrentDb.querydfs（“TestQuery”）.Fields（“SumOfSomething”）.Properties，来获取区域设置的货币格式！格式CCur（[SumOfSomething]）“€#，##0.00；€#，###0.00-”