讲一下ACCESS SQL vba 提取唯一值

在Access VBA中，如果你想要从数据库表或查询中提取唯一的（非重复的）值，可以使用SQL查询语句结合VBA的Recordset对象来实现。以下是步骤：

1. 首先，打开Query Design视图，创建一个新的查询或者修改现有的，输入SQL语句来获取特定字段的所有唯一值。例如，如果你有一个名为"Table1"的表，想提取"ColumnA"的唯一值，你可以使用这样的查询：

   SELECT DISTINCT ColumnA FROM Table1;

2. 在VBA编辑器中，通过`DoCmd.RunSQL`命令运行这个查询。例如：

Set rs = CurrentDb.OpenRecordset("SELECT DISTINCT ColumnA FROM Table1")

这里，`rs`是一个 Recordset 对象，它包含了查询结果。

3. 现在你可以遍历这个 Recordset，获取每个唯一的值。例如：

Do While Not rs.EOF
    Debug.Print rs!ColumnA ' 打印唯一值
    rs.MoveNext
Loop

rs.Close ' 关闭 Recordset
Set rs = Nothing ' 释放资源