使用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

我想使用的輸出，其中條件接入查詢

我的查詢是

***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'， '計劃生育'），而不是 'BBNI，FP'

任何建議非常讚賞

感謝

Answer 1

嘗試：

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

並確保你是不是反覆追加到一個模塊級變量，你也應該做一個本地

Dim Provision As String 

Answer 2

主要基於以下後，「功能不能被用於（）條款」 How to call VBA-function from inside sql-query?

所以，你需要建立SQL（其中包括了「在」名單），然後執行它。由於我不知道多用戶環境，或者你將如何使用查詢輸出，我會構建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 

以下是我的版本的功能（注意單引號分隔符的加入）：

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