在VBA(Visual Basic for Applications)中,您可以使用`Controls.Add`方法在表单上添加控件。以下是一个基本的步骤和示例代码,说明如何在Access表单上添加一个文本框控件。
1. 打开Access数据库。
2. 在设计视图中打开您想要添加控件的表单。
3. 在VBA编辑器中,添加一个新的模块。
4. 在模块中,使用以下代码来添加一个文本框控件:
```vba
Sub AddTextBox()
' 创建一个新的文本框控件
Dim txtBox As TextBox
Set txtBox = Form1.Controls.Add("Forms.TextBox", "txtNewTextBox", "TextBox")
' 设置文本框的位置和大小
With txtBox
.Top = 100
.Left = 100
.Width = 200
.Height = 200
End With
End Sub
```
在这个示例中,`Form1`是您要添加控件的表单的名称,`txtNewTextBox`是新控件的名称,`TextBox`是Access提供的文本框控件的类型名称。
请根据您的具体需求调整`.Top`、`.Left`、`.Width`和`.Height`属性,以设置控件的位置和大小。
要运行此宏,您可以直接在VBA编辑器中运行它,或者将其分配给一个按钮的点击事件。
请注意,Access中的控件类型名称可能因版本而异,上述代码中的`TextBox`适用于大多数Access版本。如果您遇到任何问题,请检查您的Access版本和控件类型名称。