如何从Access中的列/查询模式获取SQL

Question

鉴于此QueryDef：

"SELECT Column1, Column2, "Prefix" + SomeColumn AS Column3 FROM SomeTable"

有没有办法使用VBA或SQL提取“”前缀“+ SomeColumn”作为SomeTable表中SomeColumn字段的定义？

基本上，我需要在定义中具有自定义SQL的所有列的查询列表上运行报告。我已经有了一个查询/列的列表，我只是在努力提取实际的代码。

Answer 1

你可以玩：

Dim qdf As QueryDef

For Each qdf In CurrentDb.QueryDefs
    For i = 0 To qdf.Fields.Count - 1
        If qdf.Fields(i).Name <> qdf.Fields(i).SourceField Then
            Debug.Print qdf.Fields(i).Name
            Debug.Print qdf.Fields(i).SourceField
            Debug.Print qdf.SQL
        End If
    Next
Next