用户表单列表框中的VBA别名
是指在使用Visual Basic for Applications（VBA）编程语言开发用户表单时，为了简化代码和提高可读性，可以为列表框（ListBox）控件设置一个别名。
列表框是一种常见的用户界面控件，用于显示一个选项列表供用户选择。在VBA中，可以通过给列表框设置别名来引用该控件，以便在代码中更方便地操作和处理列表框的属性和事件。
设置别名可以通过在VBA代码中使用"Alias"关键字来实现。例如，可以使用以下代码为列表框设置别名为"ListBox1"：
Dim ListBox1 As ListBox
Set ListBox1 = UserForm1.ListBox1通过设置别名，可以在代码中直接使用"ListBox1"来引用该列表框控件，而无需每次都使用完整的控件名称"UserForm1.ListBox1"。这样可以简化代码，并提高代码的可读性和维护性。
用户表单列表框中的VBA别名可以应用于各种场景，例如：
- 数据处理：通过别名可以方便地获取用户选择的列表框项，并进行相应的数据处理和操作。
- 界面交互：通过别名可以动态修改列表框的选项内容、样式和行为，以实现更灵活的用户界面交互。
- 表单验证：通过别名可以验证用户选择的列表框项是否符合要求，并给出相应的提示或错误信息。
- 数据绑定：通过别名可以将列表框与其他数据源进行绑定，实现数据的双向同步和更新。
腾讯云提供了丰富的云计算产品和服务，其中与用户表单列表框中的VBA别名相关的产品包括：
- 云函数（Serverless Cloud Function）：腾讯云云函数是一种无服务器计算服务，可以通过编写VBA代码来实现自定义的业务逻辑和处理逻辑。您可以使用云函数来处理用户表单列表框中的VBA别名相关的操作和事件，实现更灵活和高效的应用开发。了解更多信息，请访问：云函数产品介绍
- 云数据库MySQL（TencentDB for MySQL）：腾讯云云数据库MySQL是一种高性能、可扩展的关系型数据库服务，可以用于存储和管理用户表单列表框中的数据。您可以使用MySQL数据库来存储和查询用户选择的列表框项，实现数据的持久化和管理。了解更多信息，请访问：云数据库MySQL产品介绍
请注意，以上提到的腾讯云产品仅作为示例，其他云计算品牌商也提供类似的产品和服务，具体选择应根据实际需求和项目要求进行评估和决策。
相关·内容
1回答
我想要可视化VBA列表框中的从属列表框。
我有一个excel表格，如字母A，B，C，D，E，数字1 2 3 4 5
我有两个列表框的VBA用户表单。在第一个列表中，我想在第二个列表框中选择天气字母或数字，我需要根据第一个选择来设置查看列表
我用excel数据验证成功了，现在我需要从VBA表单中可视化它。
浏览 1提问于2018-12-24得票数 0
我正在尝试利用Excel VBA listbox SelectedIndexChanged事件，在用户选择列表框中的每一行时，使用列表框中某一列中的值的总和来更新同一用户表单上的一个文本框。
我不知道如何获得要执行的事件处理程序的代码。有什么建议吗？我在windows10计算机上使用Excel VBA和来自office 365的最新版本的excel。事实上，当我打开该用户表单代码窗口时，我甚至看不到下拉列表中列出的事件？
谢谢，迈克
浏览 11提问于2017-04-27得票数 1
我有一张这样的桌子
现在我想在用户表单中显示这个表。如何在用户表单中显示它。我正在考虑选择整个表范围并将其显示为标签，因为我希望该表不可编辑。该怎么做呢？我想写一段VBA代码。请帮我弄一下这个。
我也尝试了另一种方法，比如在列表框中显示它，但我无法获得正确的输出。
我添加到用户表单的vba脚本是：
Private Sub UserForm_Initialize()
ListBox1.List = Sheets("Overview").Range("C1:H3").CurrentRegion.Value
End Sub
当我使用上面的代码时，我得到的
浏览 2提问于2015-01-28得票数 6
回答已采纳
3回答
在vba中从表填充列表框
、、、、
我正在开发一个用于员工数据库的vba表单，因为有一个用户in的搜索标准，与用户in的员工姓名应显示在一个列表框控件中，这来自单个表
我需要根据作为搜索框的文本框(例如: userid)中的值，用表中的值填充列表框。
请教我怎么做
浏览 0提问于2009-07-14得票数 0
好的，只是一个警告，我是一个完全的新手与VBA和访问，但我是插入它。
我有一个包含一些列表框的表单，我想要做的是根据“父”列表框的选择隐藏或显示特定的列表框和表单的字段。
也就是说，“位置”列表框包含许多选择，其中一个被称为“加拿大”。
当用户选择“加拿大”时，我希望表单显示另一个名为“省”的框。
当前代码：
Private Sub Form_Load()
MsgBox "Form Loaded"
If Forms![Tickets]![location] = "Canada" Then
MsgBox "location is Canad
浏览 3提问于2014-03-11得票数 1
回答已采纳
我刚开始在VBA中创建用户表单。不过，我已经使用VBA宏一段时间了，所以我对它们有了一些了解。现在，我正在为用户创建一个电子表格，其中我使用带有列表框的用户表单。我在一个常规模块中有很多代码，需要引用这个模块来填充列表框。我现在要说的是：
Private Sub StartButton_Click()
Dim Number
Call GetTellerNames
For Number = 0 To 40 Step 1
If GetTellerNames(Number) <> "" Then
ListBox1.AddItem (GetTe
浏览 3提问于2013-10-29得票数 2
回答已采纳
我有一个拆分表单，当用户使用底部的标准箭头导航数据表中的记录时，我希望能够调用我编写的VBA函数，以便在表单顶部填充一个列表框。有办法这样做吗？
浏览 0提问于2014-08-13得票数 0
回答已采纳
1回答
我正在用VBA编写一个程序，其中我在一个用户表单中使用多个列表框。是否可以为多个列表框编写一个程序(控制私有子Listbox1_Click、私有子Listbox2_Click和私有子Listbox4_Click的单个程序)
谢谢
浏览 1提问于2017-07-06得票数 0
回答已采纳
在Access表单中，我使用一个列表框来选择我想要查看的记录(手动操作，它工作得很好)。列表框中填充了按字母排序的查询中的名称，这很好。
使用VBA，我让列表框在表单第一次加载时和用户单击请求按钮时选择框中的第一项(用户可以根据年龄缩小表单本身上的名称列表。
当表单第一次加载时，它在列表框中加载第一项的记录时没有问题。当按下Search按钮时，表单将在数据库中加载与条件匹配的第一条记录，即使它与列表框中的第一项不匹配。
这是两个事件的代码：
Private Sub btnSearch_Click()
DoCmd.RunMacro "Requery", 1
Me.lis
浏览 4提问于2014-06-11得票数 0
我在MS Access 2010表单上有一个列表框，该列表框的内容由查询生成。列表框列出了新的客户名称；这些名称没有在数据库的Customers表中列出。
用户可以在列表框中选择一个客户名称，然后单击按钮将该客户名称添加到Customers表中。
现在，在将新客户添加到Customers表之后，我希望刷新该表，即，我希望重新运行生成其内容的查询。有没有办法在VBA中或通过设置属性来做到这一点？
谢谢！:)
浏览 1提问于2011-11-06得票数 0
1回答
我创建了一个列表框，并通过GUI将它添加到我的用户表单中。列表框是单个选中的，是一列。通过Row Source添加了3个选项；值为"“、"jimmy”、"jack“，我有以下vba以确保选择了一个选项
If IsNull(Me!List10) Then
MsgBox "Please Select A Value!", vbOKOnly
Me.List10.SetFocus
Exit Sub
Else
selectedoption = Me!List10
End If
现在我遇到的问题是，即使选择了一个值，MsgBox仍然会
浏览 0提问于2017-05-29得票数 0
回答已采纳
1回答
我正在使用VBA在Excel 2007中构建一个用户表单，并想知道如何启用组合框和列表框的鼠标滚轮滚动。
我需要一个最新版本的Office来获得这个特性，还是它可以被编码呢？
浏览 7提问于2013-04-13得票数 2
我是VBA编程新手。
在这种情况下帮帮我..
我有一张表1所示的桌子
用户表单类似于
我需要在这个列表框中显示搜索到的数据...我尝试过的逻辑...
1)保存文本框值的变量2)第一次尝试高级过滤器，但不起作用3)然后尝试find函数，也显示错误。
我已经尝试过了，但它不显示在列表框中...这是我第一次使用列表框...谢谢高级...
浏览 0提问于2016-02-25得票数 0
1回答
使用命名范围填充列表框
、、、
我正在做我的第一个VBA项目，需要一些绝对的新手指导。
我有一个提交表格，工作人员将使用提交他们的日常KPI。
我在一个名为"lstName“的用户窗体中有一个列表框控件，员工在提交表单之前将使用它来选择自己的名称。
员工姓名存储在名为"Sheet11“的"EmpName”上的命名范围中。
我想要指向列表框，从Sheet11上的“Sheet11”范围中绘制名称列表；但是不知道如何在VBA中这样做。我本来打算使用RowSource将列表框指向数据，但我不知道该如何做。
非常简单的问题，我知道，它可能已经在网站上以某种方式得到了回答，但由于我对VBA完全
浏览 6提问于2014-05-08得票数 3
回答已采纳
我需要做的是让用户从包含3列的列表框(多个)中进行选择，并使用用户选择填充表值。通过将单个列列表框绑定到单个字段，这很容易做到1:1。但是，我需要从列表框中选择的所有3个colmuns来填充表中3个字段的值。似乎没有办法做到这一点，所以我很困惑，如果您只能使用第一列，那么为什么Access允许在列表框中显示多个列呢？
下面是我的设置:我有一个3列的空白表(BlankTable) --第一年龄--我有一个具有值的表(ListBoxTable)，它有3列第一年龄
我有一个具有多选择列表框(Form1)的用户表单(FirstList)，它具有一个控件源BlankTable.First和行源ListB
浏览 9提问于2022-09-24得票数 -1
回答已采纳
我已经在excel中创建了一个VBA用户表单，并希望将可以输入到标签为“日期”的文本框中的内容限制为在另一个工作表的单元格中列出的日期列表。
这个是可能的吗？或者从特定的单元格填充列表框？
浏览 1提问于2016-10-02得票数 0
在access 2010中，我试图在表单中创建一个列表框。一旦对表单中的一行进行了选择，列表框将自动将这些值分配给所有行，而不是按每行分配。
是否有人知道如何更改此选项，以便列表框为每行分配值？
我是通过可点击的解决方案这样做的，因为我不知道任何VBA代码。
浏览 1提问于2021-12-14得票数 0
我是一个初学者，使用vba尝试做简单的程序，它有一个列表框，一旦用户单击该项目从列表框，该项目的其他信息应出现在表单中。
Private Sub ListBox1_Click()
Dim ename As String
Dim star As Integer
ename = ListBox1.Value
Lblname.Caption = " Employee Name: " & ename
star = Application.Worksheet
浏览 1提问于2018-09-10得票数 0
回答已采纳
1回答
运行宏的动态次数
、、、
我有一个用户表单，用户可以在文本字段中输入值，这些值将放入列表框中，列表框将始终是动态数量的条目。当他们选择“完成”时，我如何让VBA分别识别每一行？
他们正在输入属性名称，我有一个代码，说复制模板x次，并将每个重命名为已输入的值。
我是想说：
Dim cellNumber As Integer
Dim property As ListBox.Items
cellNumber = 11
For Each property In ListBox1
Range("B" & cellNumber).Value = property
'copying
浏览 1提问于2014-03-04得票数 0
我在Excel的VBA中的用户表单中有两个多选列表框。
一个包含国家，另一个包含城市。
如果用户单击并选择/取消选择一个国家，我希望我的脚本自动选择/取消选择第二列表框中位于该国家/地区的所有城市。
同样，我希望如果用户单击并选择/取消选择一个城市，它会自动更新第一个列表框，以仅突出显示当前选择了所有相应城市的国家/地区。
我的问题是：
通过使用OnChange事件(OnClick不适用于多选列表框)，每次更改任何一个列表框时，它都会更改另一个列表框。
在这种情况下，这意味着任何时候更改一个国家，它都会更改第二个列表框中的所有相应城市-对于每个国家，用户实际上被限制为选择所有城市或不选择任何城
浏览 23提问于2016-07-22得票数 0
回答已采纳
1回答
我正在为一个用户窗体编写一些VBA代码。在左侧的列表框中选择这些值(LB_Participants)。然后按下"select“，并将值复制到右侧的列表框(LB_Output)。然后，我希望VBA在LB_Output中分别遍历所有这些项，并从另一个工作表中查找其他相关数据。我遇到的问题是，有些时候没有选择这些值。我用消息框检查它，但有时它是空白的。那么，当然不能检索任何相关的数据。在开始填写用户表单之前，如果我只在LB_Output上点击一次(即使没有选择任何值)，我就不会有这个问题。许多人将使用用户表单，所以我不想向他们解释，在继续之前，他们必须首先单击列表框。我是不是做错了什么？
D
浏览 2提问于2020-03-09得票数 0
我有一个包含多选择列表框的表单，用户可以根据需要选择多少项，然后点击“保存”按钮，保存表单字段，并在各自的表中选择选中的选项。
所有操作都很好，直到用户取消检查以前保存的选择。
我尝试过几种方法，包括刷新表单和记录集，但都没有效果。
在测试寻找解决方案时，我注释掉了绑定到表单的“保存”按钮上的每一行VBA代码。单击此按钮时，代码注释掉显然不会发生任何事情，但是如果我尝试用窗口的"x“按钮关闭表单，则会得到一个消息框，说明”记录已被删除“。
我不知道从哪里看这个问题，我试着压缩和修复数据库，结果也是负面的。
我没有代码要发布，因为不管我试图运行什么代码，我得到了错误，一个完全空的子仍然给
浏览 2提问于2014-12-16得票数 0
回答已采纳
我有十个不同的列表框的表单，他们都有多选属性，我正在寻找一个VBA代码来计算表单上所有列表框的选定项目。
因为我在net上的搜索只适用于特定的命名列表框，这使得代码变得很长。
所以有一种方法可以使代码变得简短，并给我所有列表框中所有选定项的总数。
非常感谢你提前帮助我
浏览 0提问于2017-09-22得票数 1
1回答
请帮帮我！我需要在今天(11/4/13)结束之前完成这项工作！我一整天都在尝试用许多不同的方法来解决这个问题，但我还是弄不明白。需要帮助！
我有一系列的用户表单，用户使用它们来选择特定的条件，这些条件从电子表格中读取数据，最终在最终的列表框用户表单中生成一个信息列表。在一个用户表单(ScoreRange)中，用户被要求在两个单独的列表框(tbScore1和tbScore2)中键入两个数字，然后当他们输入这两个分数并单击标记为"OK“的命令按钮后，下一个用户表单将打开一个组合框(cbName)，我希望将A列中的名称填充到E列中的相应分数范围内。我想让它在第2-401行中执行循环搜索。目前
浏览 7提问于2013-11-02得票数 0
2回答
我有一个组合框在我的用户表单中作为列表框工作。Combobox设置为显示2列值，但当选择一个列表框值时，只显示列1中的值。
是否可以显示两个值-就像两列值在列表框中工作一样？
由于我的工作是初始化用户表单而提出的问题。当它初始化时，它应该显示特定的数据，但是如果它只显示一个列值，那么大多数情况下它是无用的。
Private Sub UserForm_Initialize()
zmienna = Klient_kraj.Controls("klient").ListIndex
us.ColumnCount = 2
us.List = Range("us").V
浏览 1提问于2014-03-04得票数 0
回答已采纳
因此，我在Access中有一个表单(frmBookingForm)，以及一个显示查询结果的列表框(lstMyBookings)。下面有一个按钮(cmdDeleteBooking)，它使用lstMyBookings选择作为输入运行一个delete查询。然后，该按钮运行一个宏，该宏首先检查列表框中的记录是否被选中，如果选中，则运行delete查询并请求数据，因此已删除的记录不再显示在列表框中。如果没有，则显示错误消息。但是，如果我再次单击该按钮，它将再次运行delete查询，尽管列表框中显然没有选中任何内容。
本质上，我如何“清除”列表框的选择？
我更喜欢可以用宏格式完成的解决方案，因为我对VBA
浏览 2提问于2014-02-19得票数 2
这把我难倒了，因为我所做的事情看起来太简单了。
我有一个带有列表框(lstUsers)的未绑定表单(frmAdmin)和一个也包含列表框(lstUsergroups)的子表单。
lstUsers是未绑定的，并显示用户名列表(行源是users.fk__ContactID = contacts.pk__ContactID上的users表与contacts表的左侧连接，因此我可以获取要显示的名称)
子窗体将绑定到users表，并具有筛选器pk__UserID = Forms!frmAdmin!lstUsers
lstUsergroups显示绑定到users表中的fk__Usergroup字段的用户组
浏览 2提问于2011-09-30得票数 1
回答已采纳
1回答
在一个单独的Excel 2007 VBA问题上，如何使用"Developer“> "Form Control”下的列表框？
我想显示来自另一个工作表的一些数据(比如wsData)，但是我想显示特定于用户的数据(比如wsInterface，单元格A1)，而不是使用“格式控件”>“控件”>“输入范围”。
因此，我将弹出一个表单，提示用户输入工作表wsInterface单元格A1中的名称，并希望在列表框中显示与用户相关的数据。谢谢
wsData：
name | date | remarks
Mr A 22/2/11 blah blah blah
浏览 5提问于2011-03-01得票数 0
我已经努力了好几个小时来解决我的问题，但没有运气。
我所拥有的控件如下
用户表单- frm_Team_View
Listbox -
我试图计算整个团队的工作总时数，并将其显示在文本框- txt_THours中。
我曾尝试使用DSUM & SUM在VBA中进行此操作。
我也尝试过使用Control的相同方法。
txt_THours.Value = Sum(Forms![frm_Team_View]![lst_Team].column(3))
每次我总是在文本框中显示一条#错误消息。
通过使用.listcount函数，我设法获得了列表框中行的计数。我一直无法找到一个函数来求和这些值。
查
浏览 2提问于2016-10-22得票数 1
回答已采纳
2回答
如何动态填充报表？
、、、
希望这是我最后一个关于访问的问题，因为我很快就会完成它的工作。
我现在有一个报表，该报表是从按下"Run“按钮时填写的表单生成的。搜索数据库主键并填充表单。当用户单击"Print“按钮时，将生成一个可打印的报告，由该表单中的数据填充。所有这些都很简单。
现在，在表单中，只有一个列表框。该列表框根据单击的事务类型显示事务类型的结果。例如，单击“购买”将生成列表框中的所有已购买产品的客户，而单击“出售”将生成列表框中已售出的所有客户。有更多的交易比这两个，但这并不重要的目的，这个问题。
我需要做的是使列表框(由VBA中的查询填充)的内容显示在可打印的报表上。
例如，报告可能如下所示
浏览 0提问于2013-08-01得票数 2
回答已采纳
我在access表单中有一个列表框。它包含18个项目。如何使用access vba将这些项存储到数组中。
浏览 0提问于2014-04-25得票数 3
回答已采纳
1回答
我有这样的桌子。
我需要使用VBA用户表单来编辑这个。我需要从列表中选择一个序列号，其他细节应该在更改事件中显示到文本中。
因此，我编写了以下的userform。
并添加了rowSource的串行无列表框作为序列编号。我应该如何看待玩具类型，车轮和nale文本boxes.Appreciate从您的指导。
浏览 0提问于2019-01-03得票数 0
回答已采纳
2回答
我正在建设一个购物计划- msAccesss 2016。一些要购买的物品是电器组件，如果至少购买10件，价格大约为0.06100美元。我试图在一个列表框中显示这个数量和单价。这张单子把价格打成一圈。有人知道在列表框中显示全部0.06100美元的方法吗？它在表的数据表视图和绑定到列表框的查询的数据表视图中显示OK。
更多细节: Shopper中包含此信息的部分是一个名为PricesLists的表。它包括：
RecNo (主键的自动编号)
VendorNo -供应商表的外键-行表示供应商的价格。
PartNo -部件表的外键-行表示该部件的供应商价格。
数量-至少必须订购多少零件才
浏览 2提问于2016-06-17得票数 0
其目标是创建一个查询表中定义为“active”的所有对象的表单。该查询将显示为窗体上的列表框。我希望访问此表单的用户能够选择该查询的对象，然后从第二个列表框中选择操作，然后单击submit按钮来更新该表。
视觉：
我假设的点击VBA看起来如下所示：
Private Sub ActionAdminbtn_Click()
Set Actiontbl = CurrentDb.OpenRecordset("SELECT * FROM [Actiontbl]")
Actiontbl.Edit
Actiontbl![Progress] = Me.AdminActionSelect
A
浏览 1提问于2018-07-05得票数 2
回答已采纳
我有一个包含多个列表框的表单。列表框具有来自直通查询的SELECT语句的行源，该直通查询对SQL数据库运行EXEC语句。
由于性能问题，我们一直在使用SQL server Profiler监视服务器，并注意到当您在VBA代码中的列表框上运行.Requery时，它实际上会运行TSQL EXEC语句两次。我已经逐行介绍了VBA代码，并证明是一行代码(listbox.requery)创建了多个调用。
有没有人遇到过这种情况，或者有任何解决方案的想法。
为了进一步说明，列表框的行源设置为'SELECT * FROM qsptTestQuery‘。我有一个Access查询对象(例如，名为qspt
浏览 9提问于2018-08-10得票数 0
我有一个带有userform的工作簿，其中包含用于填充工作表数据的列表框。
如果打开了多本工作簿，并从一个工作簿直接单击另一个工作簿中的userform上的列表框，则在Activeworkbook更改以反映包含该用户名的工作簿之前，将触发ListBox_Change事件。因此，当代码到达Set EqDataSht = ActiveWorkbook.Worksheets("Equipment-Data")时，就会出现下标超出范围的错误，因为我来自的工作簿不包含名为“设备-数据”的工作表。
将ActiveWorkbook设置为用户表单的父级的最佳方法是什么？我的想法是在workbo
浏览 0提问于2017-04-19得票数 1
回答已采纳
我正在创建一个数据库，用户可以在其中单击命令按钮，他们将被带到一个存储在可信位置的文件夹，他们可以从那里选择一个word文档，所选文件的所有名称都将显示在表单的列表框中。我们有双击文件名打开文档的代码。我们要找的是只在列表框中显示文件名而不显示路径的代码。
到目前为止，我们已经使用了问题“如何在access 2007VBA中显示打开文件对话框”中给出的示例代码来进行设置。
任何帮助都是最好的。
浏览 4提问于2009-11-24得票数 0
1回答
我正在尝试创建一个小型的MS Access数据库，以简化我的日常工作。问题是，在数据库方面，我是个菜鸟。我试图防止用户意外地更新错误的记录.
我有一张记录表，其中有些不是100%完整的。
我创建了一个只列出这些不完整记录的查询。
在表单上，上述查询被输入到列表框中。
我希望用户能够从这个列表框中选择一个不完整的记录，并在一堆文本框中填充记录的其余部分。我不喜欢的是，当您填写表单字段(它们绑定到表中)时，会更新记录，而无需任何确认的请求。如果用户在开始时选择了一个错误的记录，那么每个文本框的填充都会使记录变得混乱。或者这就是正在发生的事。
下面是我
浏览 4提问于2021-08-03得票数 0
我正在尝试创建一个包含两个列表框的表单。一个用于SQL Server名称；另一个用于用户选择的服务器上的数据库。
在VBA中，我可以通过调用存储过程来获取服务器名称。但是，我似乎无法获得特定服务器的数据库列表。
有人知道如何编写这样的查询吗？
谢谢。
浏览 2提问于2016-01-15得票数 0
我正在尝试编写一个脚本来与第三方应用程序中的查找表单进行交互。
该表单有许多文本框，对应于“电话号码”和“客户ID”等字段，以及一个标题为"lookup“的命令按钮。
单击命令按钮时，表单上的多列列表框将填充数据库中与给定条件匹配的任何记录。然后，用户必须双击特定的记录，这将打开一个新的对话框，其中包含用于“调整”相关记录的选项。
这个表单不是我做的，我也不能直接访问它从其中拉出的数据库；这个表单一次只允许用户调整一条记录。
我希望我的脚本从Excel工作表中一次复制一个电话号码列表，将它们粘贴到表单上的正确字段中，单击“查找”按钮，如果列表框中记录的其中一个字段与预定值匹配，则打开调
浏览 8提问于2013-04-17得票数 1
我在access中创建了一个弹出式表单，用于搜索记录并在主条目表单上转到该记录。弹出的"find“表单有一个列表框，其中包含主条目表单中的所有记录，该列表框的第一列是主条目表单上的ID。这是列表框中的隐藏列。
用户可以在未绑定的文本框中键入内容，这将过滤列表框，然后，一旦他们看到所需的记录，他们应该能够双击列表框的一行，这应该会将他们带到主条目表单上的该记录。我收到一个错误，但不确定原因。
这是双击列表框时的代码：
Private Sub lstRecords_DblClick(Cancel As Integer)
Dim rs As DAO.Recordset
S
浏览 10提问于2018-08-23得票数 1
1回答
我正在使用VBA/Access创建表单来访问我的数据库。
在表单中，我有一个*lst_sinistres*列表框，它显示我的SQL查询的结果，当我双击其中一个结果时，它会打开另一个表单，这要归功于下面的代码
Private Sub lst_sinistres_DblClick(Cancel As Integer)
DoCmd.OpenForm "F_SINISTRE_MRH", acNormal, , , , , Me.lst_sinistres.Value
End Sub
我想更改我的表单，并添加选项卡，使其更符合人体工程学。所以我把我的*lst_sinistre
浏览 2提问于2013-10-01得票数 0
1回答
我正在尝试从一个用户表单中的列表框中存储用户选择。我目前正在使用公共属性get从另一个模块的用户表单中检索我的值。 这是在我的用户表单中： Public Property Get DateFrom() As String
DateFrom = TextBox1.Text
End Property
Public Property Get DateTo() As String
DateTo = TextBox2.Text
End Property
Public Property Get Cost() As String
Cost = TextBox3.Text
End P
浏览 50提问于2021-07-15得票数 1
回答已采纳
可能重复：
MFC VC++有两个控件，ListBox和ListCtrl。但是对于VBA，我们似乎只有ListBox。
我想要创建一个包含两个列(Company_ID，Company_Name)的列表框。
以下是我尝试过的：
我创建了lstbox(控制类型ListBox)
行源类型=值列表
我从两个编辑框中获取用户的值，当用户单击"add“时，应该将其添加到包含2列的列表框中。
在VBA代码例程中，我添加了以下几行：
lstbox.ColumnCount = 2
lstbox.AddItem (Company_ID)
以下代码不起作用，似乎与添加列值有关：
浏览 2提问于2012-06-26得票数 11
2回答
我有一个带有列表框的用户表单，该列表框显示表中的所有项。列表框有一个双击事件；如果双击的行包含文本，它将打开一个编辑表单。如果双击的行为空，则会显示一个消息框，说明“该项无效，无法编辑”。 我希望添加一个新功能，如果行中的某个单元格包含" closed“，则会显示一个消息框，说明”此项目已关闭，不可编辑“。 我不是很擅长VBA，我很感激任何可以提供的帮助。下面是我拥有的当前代码。 Private Sub RiskLogReviewListBox_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'Checks if the se
浏览 63提问于2020-01-29得票数 0
回答已采纳
1回答
我有两个表: Person和Shift
Person具有as查找字段，这是与Shift的一对多关系。
我想创建一个表单，其中显示来自Person的记录的列表框是根据对包含来自Shift的记录的组合框的选择进行筛选的。
换句话说，我想在组合框中选择"days“(值为1)，并且只在列表框中显示班次字段中值为1的Person的记录。
等价的sql应该是这样的：
SELECT * FROM Person WHERE Person.Shift = (the value of the combobox here)
此外，如果可能的话，我希望用很少甚至没有VBA的人来做这件事，因为我要传递给的人没有
浏览 0提问于2010-05-20得票数 3
回答已采纳
首先，我是一个新手，所以如果这是基本的，我很抱歉，但我也找不到正确的答案。
我得到了一些帮助来设置它，所以有一些部分是我不能完全理解的。
我已经创建了一个用于数据输入的表单，该表单由以下字段组成：
TEAMS -组合框，其行源是表格TEAMS；CALLREASONS -多选列表框，其记录当前存在于CALLREASONS表中；ACTIONS -多选列表框，其记录当前存在于CALLACTIONS表中；SUBMIT -带有VBA的按钮，用于将所选数据发送到多个表。
数据库工作得很好，并且保存在它们应该在的位置和格式中，我遇到的问题是表单的显示。
我希望表单在每次提交记录后打开时显示为空白。但是，如果
浏览 0提问于2015-08-07得票数 0
1回答
创建ListBox
、、、
我试图使用VBA从Access创建一个Excel报表。因此，每次用户单击Access表单中的按钮时，都应该生成Excel文件。我需要在文件中有ListBox。我声明ListBox添加了项，但是在将其分配给特定的单元格时遇到了问题：
Dim lst As ListBox
With lst
.AddItem "1"
.AddItem "2"
End With
现在我想在单元格(7，1)中显示列表框。
我该怎么做呢？
浏览 3提问于2015-10-23得票数 1
回答已采纳
我使用下面的代码让用户在填写用户表单时从列表中选择项目。
但是，当用户选择其他项时，如果用户选择了“其他”项以外的任何其他项，则希望从相同的列表框中取消选择所有项。
下面是代码，我正在尝试，但是如果用户选择列表框中的“其他”项，我不知道如何取消选择用户表单中的所有项。
For x = 0 To Me.LBX2.ListCount - 1
If Me.LBX2.Selected(x) Then
If Me.LBX2.List(x) = "Other" Then
Me.LBX2.Selected(x)
浏览 6提问于2021-12-28得票数 0
回答已采纳
1回答
我目前正在使用VBA中的表单，并且希望使用一个表单来修改另一个表单中的一些值。所以我有Form1，它有三个ListBoxes，每个都有一堆东西。然后是Form2，它有一个不可修改的TextBox，它将包含用户想要编辑的选定ListBox项的值。
但是，因为我有多个ListBoxes，所以我想知道我最后单击的是哪个ListBox，这样我就可以从该列表框中绘制所选项目，并在用户单击Form2中的"Apply“时编辑该项目。
我已经创建了一个属性来跟踪最后一个ListBox的名称。问题是，我在使用它时遇到了麻烦。下面是我的代码：
Public Property Get LastClicked
浏览 0提问于2015-05-07得票数 0
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
对象存储
即时通信 IM活动推荐
腾讯云开发者
