在 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中文網其他相關文章！
