如何检查访问查询中是不是存在关键字

Posted 2023-04-19

【中文标题】如何检查访问查询中是不是存在关键字

【英文标题】：How to check if a Keyword exists in an Access Query如何检查访问查询中是否存在关键字

【发布时间】：2017-12-07 20:02:46

【问题描述】：

我的问题很简单，但我的访问数据库有多个查询，我想编写一个自动化过程来检查某个关键字是否存在于任何查询中。此自动化过程可以是查询或 VBA。有人可以告诉我从哪里开始吗？

提前致谢！

【参考方案1】：

我写这篇文章的目的完全不同 - 但它可能会给你一个起点。它遍历所有查询，查找特定字符串并将其替换为不同的字符串。

Function MassChange(F_string, T_string)
Dim DB As Database
Dim QD As QueryDef
Dim S As String

Set DB = CurrentDb
For Each QD In DB.QueryDefs
    S = QD.SQL
    If InStr(S, F_string) > 0 Then
        S = Replace(S, F_string, T_string)
        QD.SQL = S
    End If
Next QD
MsgBox ("done")

End Function

【参考方案2】：

@vivi 使用@Don-George 的答案，但如果您只想要查询的名称，请替换中间部分：

If InStr(S, F_string) > 0 Then
    Debug.Print QD.Name
End If

【讨论】：

谢谢！很有帮助！