如何将 Access 字段类型从 Yes/No 更改为 Short Text？

Question

我创建了一个临时表，该表将从 output 到 Excel 使用是/否字段，我想将其转换为文本答案是和否（而不是 -1 和 0），因此电子表格的用户很清楚。 现在我有：

Private Sub MySub()
 
Dim db As DAO.Database
Dim fld As DAO.Field
Dim prop As DAO.Property
 
   Set db = CurrentDb()
   Set fld = db.TableDefs("InterestsTable").Fields("Racing")
   Set prop = fld.CreateProperty("Format", dbText, "Short Text")
   fld.Properties.Append prop
   Set fld = db.TableDefs("InterestsTable").Fields("Solo")
   Set prop = fld.CreateProperty("Format", dbText, 3)
   fld.Properties.Append prop
 
End Sub

这两个选项似乎都不起作用，我错过了什么/做错了什么？ 我正在使用 Access 365（我似乎找不到内部版本号）。

麦克风。

Answer 1

创建一个简单的select 查询，在其中省略该字段并将其替换为以下表达式：

RacingYN: Format([Racing], "Yes/No")

然后导出此查询。

Answer 2

有很多方法可以给这只猫剥皮。 您可以在每一步使用VBA中的菜单和处事进行混搭。 您可以通过从 excel 导入、录制宏、查看生成的 vba 并转换结果来翻转它。

对于您的方法，使用是/否类型创建表，然后插入数据然后导出。 更容易点击制作表选项卡并使用计算字段（计算字段返回字符串）

------------------------------------------------------------------------------------------------------------
| StarTrekOfficerID  |         StarTrekOfficerFirstName         |           StarTrekOfficerRank            |
------------------------------------------------------------------------------------------------------------
|                  1 | James                                    |                                        1 |
------------------------------------------------------------------------------------------------------------
|                  2 | Spock                                    |                                        2 |
------------------------------------------------------------------------------------------------------------
|                  3 | Leonard                                  |                                        3 |
------------------------------------------------------------------------------------------------------------

SELECT StarTrekOfficers.StarTrekOfficerFirstName, IIf([StarTrekOfficers].[StarTrekOfficerRank]=1,'yes','no') AS isCaptain INTO temp
FROM StarTrekOfficers;

更简单的是不需要制作桌子。 您可以导出查询：

SELECT StarTrekOfficers.StarTrekOfficerFirstName, IIf([StarTrekOfficers].[StarTrekOfficerRank]=1,'yes','no') AS isCaptain
FROM StarTrekOfficers;

是/否很容易，但对于更复杂的问题，将计算抽象为公共函数并调用计算字段中的函数。 如果将其全部放入一个 function 中，则计算字段的返回类型将是该 function 的返回类型。

只需右键单击您使用的任何查询或表，然后 select 导出然后 excel。 如果要使用 vba google docmd.Transferspreadsheet 导出