ms-access - 在表的字段名称中查找和替换数据

Question

我是 Access 2010 中 VBA 的新手。我正在尝试更改表的字段名称中的值。以下是详细信息:

Table Name: WeeklySaleT
Field Name: SitusPreDirection

SitusPreDirection 中的可能值:“E”“N”“S”“W”

想要更改以下“E”=“东”、“N”=“北”、“S”=“南”和“W”=“西”的每一次出现

我将如何在 VBA 中执行此操作？

Answer 1

如果您不熟悉 VBA，最好使用查询。首先，复制你的表。然后将表添加到查询设计窗口，从工具栏中选择更新查询，并通过双击或拖动将 SitusPreDirection 添加到设计网格。将 Criteria 设置为“E”、“N”、“S”、“W”之一，并将 Update To 设置为匹配值，例如“east”。

如果切换到 SQL View ，您将看到如下内容:

UPDATE WeeklySaleT SET SitusPreDirection = "East" 
WHERE SitusPreDirection = "E"

您可以像这样在 VBA 中使用它:

Dim db As Database
Set db = CurrentDB

sSQL = "UPDATE WeeklySaleT SET " _ 
      & "SitusPreDirection = ""East"" WHERE SitusPreDirection = ""E"""

db.Execute sSQL, dbFailOnError