office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

Access 函數簡化串接sql字符串,減少符號導緻的書寫錯誤

2021-05-16 08:00:00
fans.net
原創
341

在編寫vba代碼時,經常會因爲連接字符串的符號太多,沒有組成一對導緻錯誤。

這裡版主粉絲寫瞭一箇函數方便串接SQL字符串,可以讓串接變得更直觀,特彆是有單引號的情況下,類似C#中的String.Format方法


函數用途:可以方便串接SQL字符串

    Public Function ArrayFormat(expression As String, ParamArray formatException()) As String
        Dim strFind As String, strReplace As String, strTemp As String
        Dim i As Integer
        strTemp = expression
        For i = 0 To UBound(formatException)
            strFind = "{" & i & "}" : strReplace = formatException(i)
            strTemp = Replace(strTemp, strFind, strReplace)
        Next
        ArrayFormat = strTemp
    End Function


Demo1:


 Sub Demo1()
    Dim str As String
    str = "他們分彆來自:{0}、{1}、{2}、{3}、{4}、{5}"
    Debug.Print ArrayFormat(str, "北京", "上海", "廣州", "山東", "福建", "海南")
 End Sub


輸齣:他們分彆來自:北京、上海、廣州、山東、福建、海南


Demo2:

 Sub Demo2()
    Dim str As String
    str = "他們分彆來自:{0}、{1}、{2}、{3}、{4}、{5}"
    Debug.Print ArrayFormat(str, "北京", "上海", "廣州")
 End Sub

輸齣:他們分彆來自:北京、上海、{2}、{3}、{4}、{5}。


如下麵的示例,其中佔位符:{}  ,裡麵的數字爲index


    分享