使用 SQL 将列的格式更改为百分比

Question

我在 VBA 中有一个查询，它向表中添加了几列。 如何在 VBA 中使用 SQL 将PercentSuccess列的格式更改为Percent ？

这是我用来添加列的代码。

strSql5 = " Alter Table analyzedCopy3 " & _   
   "Add Column PercentSuccess Number, Success Number, prem_addr1 TEXT(50) "

DoCmd.SetWarnings False   
DoCmd.RunSQL strSql5   
DoCmd.SetWarnings True

我试过使用 Format() 但我无法让它工作来改变我需要改变的东西。 它似乎只改变了Number 、 Text等内容。

Answer 1

您不能使用 SQL 设置 Format 属性，但可以通过其他 VBA 代码来设置。 此外，您应该知道某些字段属性实际上并不存在，直到它们被分配一个值，其中 Format 属性是其中之一。 下面的代码首先获取对相关字段的引用，创建一个具有所需值的新 Format 属性，然后将其附加到字段定义中。 Microsoft Access UI 具有误导性，因为它使您认为该属性已存在。

  Dim db   As Database
  Dim tdef As TableDef
  Dim fdef As Field
  Dim pdef As Property

  Set db = CurrentDb()
  Set tdef = db.TableDefs("analyzedCopy3")
  Set fdef = tdef.Fields("PercentSuccess")

  Set pdef = fdef.CreateProperty("Format", dbText, "Percent")
  fdef.Properties.Append pdef

最后，此代码仅在您使用 DAO 对象时才有效； 您不能使用 ADO 设置此属性。