在窗体上创建多个按钮的Ms-Access 2016按钮

我有我的主窗体，我创建了一个按钮，当我单击此按钮时，我希望它打开另一个窗体并创建一个带有名称的多个按钮我从桌子上拉出来。我已经启动了一些按钮的VBA，但我坚持让它来创建按钮。在窗体上创建多个按钮的Ms-Access 2016按钮

任何帮助将不胜感激，我希望社区中的某个人能够指引我朝着正确的方向前进，因为我是这个领域的新手。请参阅下面的细节。

主窗体名称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

我到处都找过，并发现了一些想法，但似乎没有任何工作。

来源

2017-03-16 Simon

评论https://msdn.microsoft。 COM/EN-US /图书馆/办公室/ aa221167（v = office.11）的.aspx。为什么你想要多个动态显示员工姓名的按钮？为什么生活困难？为什么不只是一个组合框或列表框？ – June7

1-在Access VBA中您不能在不处于设计模式的表单上动态创建控件。你可以在设计模式下完成，然后加载表单。

2 - 它可以在更简单的方式设计完成的默认视图形式“连续窗体”并将其链接到名字的表（或查询的表格），并设置详情按钮标题“油漆“事件。

附图“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

我希望这是明确的和有益的

来源

2017-10-17 15:18:57 mamadsp

在窗体上创建多个按钮的Ms-Access 2016按钮

回答

相关问题