使用 VBA 的用户定义函数输出作为访问查询的输入

Question

我创建了一个根据用户选择提供值的函数。我想在另一个查询中使用该函数的输出。

我的功能是：-

Public Function provisionvariable() As String


For Each sItem In Forms![Access Form].Provision.ItemsSelected

v_provision = "" & Forms![Access Form].Provision.Column(0, sItem) & ""



Provision = Provision & "" + v_provision + ","


'MsgBox Provision

Next

Provision = Left(Provision, Len(Provision) - 1)
provisionvariable = Provision
MsgBox provisionvariable
End Function

函数的输出是BBNI,FP

我想在访问查询中使用输出作为 where 条件

我的查询是

 ***SELECT DISTINCT quarter, provision, [currencycode]+'-not found in Master' AS Comment
       FROM t_00_unearned_unincepted_alloc_basis AS inp
       WHERE     **provision in (provisionvariable()) AND**
        NOT EXISTS 
        (SELECT 1 
        FROM     t_01_le_currency_master key1 
        WHERE   inp.[group_stat]=key1.[group_stat] AND 
                inp.le=key1.le AND 
                inp.[currencycode]=key1.[original_currency]);***

现在的问题是函数的输出是 BBNI,FP 但访问将其作为单个字符串，即查询中的 'BBNI,FP'。

是否可以将其作为两个字符串 ('bbni','FP') 而不是 'BBNI,FP'

非常感谢任何建议

谢谢

Answer 1

试试：

Provision = Provision & "'" & v_provision & "',"

为了确保您不会重复附加到模块级变量，您还应该执行本地操作

Dim Provision As String

Answer 2

基于下面的帖子，“一个函数不能用于 IN () 子句”How to call VBA-function from inside sql-query?

因此，您需要构建 SQL（包括“In”列表）然后执行它。由于我不知道是否是多用户环境，或者您将如何使用查询输出，所以我将构建 SQL，保存为 QueryDef 对象，然后做任何您想做的事情。

以下是构建 SQL 的代码：

Dim strSQL  As String
strSQL = "SELECT DISTINCT quarter, provision, [currencycode]+'-not found in Master' AS Comment " & _
   "FROM t_00_unearned_unincepted_alloc_basis AS inp " & _
   "WHERE  provision  In (" & ProvisionVariable() & ") AND " & _
   . . . .

Debug.Print strSQL

以下是我的 Function 版本（注意添加了单引号分隔符）：

Public Function ProvisionVariable() As String
Dim sItem           As Variant
Dim v_provision     As String
Dim provision       As String

    provision = ""
    For Each sItem In Forms![Access Form].Provision.ItemsSelected
        v_provision = "'" & Forms![Access Form].Provision.Column(0, sItem) & "'"
        provision = provision & "" + v_provision + ","
    Next sItem

    provision = left(provision, Len(provision) - 1)
    ProvisionVariable = provision
    Debug.Print ProvisionVariable
End Function