如何將 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 導出