在表单上创建多个按钮的 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- 可以通过将具有默认视图的表单设计为“连续表单”并将其链接到名称表（或在表上查询）并在详细信息“Paint”事件中设置按钮标题来以更简单的方式完成。

附图片“Table.jpg”表格。

所附图片“Form.jpg”与按键“command0”的形式。

表单运行视图和 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

我希望它是清楚和有帮助的