如何在 Microsoft Access 應用程式中有效使用 VBA 中的參數？

在 Microsoft Access 中不同上下文中使用 VBA 參數

為了避免錯誤並有效處理帶有單引號的名稱，在涉及動態 SQL 和字串連接的複雜 Access 應用程式中使用參數至關重要。以下是利用參數在不同上下文的各種方法：

窗體與報表

Access 提供了直接在 SQL 程式碼中使用窗體和報表上控制項的值的獨特功能，在許多情況下無需參數。對於控件，使用語法 Forms!MyForm!MyTextbox；對於子窗體上的控件，使用 Forms!MyForm!MySubform.Form!MyTextbox；對於報表上的控件，使用 Reports!MyReport!MyTextbox。

域聚合

DLookUp 等域聚合也可以直接從窗體和報表中獲益。例如，DLookUp("Field1", "Table2", "ID = Forms!MyForm!MyTextbox")。

DoCmd.RunSQL

當使用 DoCmd.RunSQL 執行 SQL 指令時，使用字串連線來合併參數值：DoCmd.RunSQL "INSERT INTO Table1(Field1) SELECT Field1 FROM Table2 WHERE ID =" & Me.MyTextbox。

DAO 記錄集

對於 DAO，使用 CurrentDb.CreateQueryDef() 建立查詢，然後使用 QueryDef.Parameters 設定參數：

<code class="language-vba">With CurrentDb.CreateQueryDef("", "INSERT INTO Table1(Field1) SELECT Field1 FROM Table2 WHERE Field1 = ? And Field2 = ?")
    .Parameters(0) = Me.Field1
    .Parameters(1) = Me.Field2
    .Execute
End With</code>

ADODB 記錄集

在 ADO 中，使用 ADODB.Command 物件及其 Parameters 集合來設定參數。對於未命名的參數，將值數組傳遞給 Command.Execute。對於命名參數（雖然不受官方支援），使用 Command.CreateParameter()：

<code class="language-vba">With cmd
    Set .ActiveConnection = CurrentProject.Connection ' 使用当前数据库的连接
    .CommandText = "INSERT INTO Table1(Field1) SELECT Field1 FROM Table2 WHERE Field1 = ? And Field2 = ?"
    .Parameters.Append .CreateParameter(, adVarWChar, adParamInput, Len(Me.Field1), Me.Field1) ' adVarWChar 用于可能包含 Unicode 的文本框
    .Parameters.Append .CreateParameter(, adInteger, adParamInput, 8, Me.Field2) ' adInteger 用于整数（长整数或整数）
    .Execute
End With</code>

TempVars

TempVars 是全域可用的變量，可以設定和重複用於多個查詢：

<code class="language-vba">TempVars!MyTempVar = Me.MyTextbox.Value ' 对简单的控件使用 .Value
DoCmd.RunSQL "INSERT INTO Table1(Field1) SELECT Field1 FROM Table2 WHERE ID = TempVars!MyTempVar"</code>

自訂函數 (UDF)

建立具有靜態變數的函數來儲存和檢索參數值：

<code class="language-vba">Option Compare Database
Option Explicit

Private ThisDate As Date

Public Function GetThisDate() As Date
    If ThisDate = #12:00:00 AM# Then
        ' 设置默认值。
        ThisDate = Date
    End If
    GetThisDate = ThisDate
End Function

Public Function SetThisDate(ByVal NewDate As Date) As Date
    ThisDate = NewDate
    SetThisDate = ThisDate
End Function</code>

然後像這樣使用：

<code class="language-vba">SetThisDate SomeDateValue ' 将 SomeDateValue 存储在 ThisDate 中。
DoCmd.RunSQL "INSERT INTO Table1(Field1) SELECT Field1 FROM Table2 WHERE [SomeDateField] = GetThisDate()"</code>

以上是如何在 Microsoft Access 應用程式中有效使用 VBA 中的參數？的詳細內容。更多資訊請關注PHP中文網其他相關文章！