Ms-Access 2016按钮可在表单上创建多个按钮

Question

我有我创建按钮的主窗体，当我单击此按钮时，我希望它打开另一个窗体并创建一个带有名称的多按钮，我从表中拉出。 我已经为按钮启动了一些VBA但我仍然坚持要创建按钮。

任何帮助都将不胜感激，我希望社区中的某些人可以指导我正确的方向，因为我是这个领域的新手。 请参阅下面的详细信息。

主要表单名称HomePage_frm：此表单上的按钮的VBA如下所示。

Private Sub Form_Load()
Dim SQL As String
SQL = "Select * " & _
"FROM Users_tbl " & _
"WHERE Authority = 'Supervisor'"

Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset(SQL)

Dim strText As String

Do While Not rs.EOF

strText = rs.Fields("Employee_Name")

'Make Buttons here

rs.MoveNext

Loop

End Sub

我看了一遍，发现了一些想法，但似乎没什么用。

Answer 1

1-在Access VBA中您无法在不在设计模式下的表单上动态创建控件。您可以在设计模式下执行此操作然后加载表单。

2-可以通过设计一个默认视图为＆＃34;连续表格＆＃34; 的表单，并将其链接到名称表（或表格上的查询），以更简单的方式完成并详细设置按钮标题＆＃34; Paint＆＃34; 事件。

附图＆＃34; Table.jpg＆＃34;桌子。

附图＆＃34; Form.jpg＆＃34;按钮＆＃34; command0＆＃34; 的表单。

单击表单运行视图和d按钮

以下是表单代码

Option Compare Database
Private Sub Command0_Click()
   If Not IsNull(Me!CliName) Then
       MsgBox Me!CliName
   End If
End Sub

Private Sub Detail_Paint()
   If Not IsNull(Me!CliName) Then
       Command0.Caption = Me!CliName
   Else
       Command0.Caption = ""
   End If
End Sub

我希望它清楚有用