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