使用从列表框传递的值访问VBA运行查询
从列表框传递的值访问VBA运行查询，是指通过使用列表框控件，将选择的值作为参数传递给VBA代码中的查询操作，从而实现查询功能的操作。
具体步骤如下：
- 创建列表框控件：在前端开发中，可以使用HTML和JavaScript来创建列表框控件，也可以使用前端框架如React、Angular、Vue等来创建。在后端开发中，可以使用各种编程语言和框架来创建列表框控件，如Java的Swing、C#的WinForms、Python的Tkinter等。
- 绑定数据到列表框：将需要进行查询的数据绑定到列表框中，可以从数据库中查询获取数据，或者通过其他方式获取数据并进行绑定。
- 传递值到VBA代码：通过监听列表框的选择事件，获取选择的值，并将其传递给VBA代码。在前端开发中，可以使用JavaScript来实现事件监听和值传递的逻辑，而在后端开发中，可以使用相应的编程语言来实现。
- 运行查询操作：在VBA代码中，根据传递过来的值，进行相应的查询操作。可以连接数据库，执行SQL查询语句，获取查询结果并进行处理。根据具体的需求，可以使用不同的数据库操作技术，如ADO、ODBC等。
使用从列表框传递的值访问VBA运行查询的优势在于，可以通过选择列表框中的值，方便快捷地进行查询操作，而不需要手动输入查询条件，提高了查询的准确性和效率。
这种方式适用于各种需要查询操作的场景，如数据库查询、文件搜索等。可以根据具体的业务需求，进行相应的定制和扩展。
腾讯云提供了多种云计算相关产品和服务，用于支持开发和部署应用程序。其中，推荐的腾讯云产品和服务包括：
- 云服务器（Elastic Compute Cloud，ECC）：提供可扩展的云服务器实例，可根据需求快速创建、部署和管理虚拟机，适用于各种应用场景。产品介绍：云服务器
- 云数据库（Cloud Database，CDB）：提供可靠、可扩展的云数据库服务，支持多种数据库引擎，如MySQL、SQL Server、MongoDB等。产品介绍：云数据库
- 人工智能平台（AI Platform）：提供多种人工智能服务和工具，如图像识别、自然语言处理、语音识别等，用于构建智能化应用。产品介绍：人工智能平台
- 云存储（Cloud Storage，COS）：提供可靠、高性能的对象存储服务，支持海量数据存储和访问，适用于多媒体处理、数据备份等场景。产品介绍：云存储
- 区块链服务（Blockchain Service，BCS）：提供安全、高性能的区块链解决方案，支持快速搭建和管理区块链网络，适用于金融、供应链等领域。产品介绍：区块链服务
这些腾讯云产品和服务可以帮助开发工程师在云计算领域进行开发和部署，并提供丰富的功能和性能，满足各种应用需求。
相关·内容
我有一个包含多个列表框的表单。列表框具有来自直通查询的SELECT语句的行源，该直通查询对SQL数据库运行EXEC语句。
由于性能问题，我们一直在使用SQL server Profiler监视服务器，并注意到当您在VBA代码中的列表框上运行.Requery时，它实际上会运行TSQL EXEC语句两次。我已经逐行介绍了VBA代码，并证明是一行代码(listbox.requery)创建了多个调用。
有没有人遇到过这种情况，或者有任何解决方案的想法。
为了进一步说明，列表框的行源设置为'SELECT * FROM qsptTestQuery‘。我有一个Access查询对象(例如，名为qspt
浏览 9提问于2018-08-10得票数 0
我正在运行Ms Access VBA Sql代码，将选定的项从列表框添加到临时表中。但是，我的代码工作得很好，当我从列表框中选择某些项时，它会返回以下错误。
运行时错误'3075'：查询表达式中的语法错误(缺少操作符)“技术学士(B.Tech/B.E) (计算机)研究所: Maeer's Mit工程学院”.
我想这和包括的特殊人物有关。
Private Sub Command101_Click()
DoCmd.SetWarnings False
code1 = "INSERT INTO tmp_education_list ( education ) "
浏览 7提问于2022-10-15得票数 2
回答已采纳
因此，我在Access中有一个表单(frmBookingForm)，以及一个显示查询结果的列表框(lstMyBookings)。下面有一个按钮(cmdDeleteBooking)，它使用lstMyBookings选择作为输入运行一个delete查询。然后，该按钮运行一个宏，该宏首先检查列表框中的记录是否被选中，如果选中，则运行delete查询并请求数据，因此已删除的记录不再显示在列表框中。如果没有，则显示错误消息。但是，如果我再次单击该按钮，它将再次运行delete查询，尽管列表框中显然没有选中任何内容。
本质上，我如何“清除”列表框的选择？
我更喜欢可以用宏格式完成的解决方案，因为我对VBA
浏览 2提问于2014-02-19得票数 2
所以我有这个电子表格和几个列表框。在这些列表框中，我有一些实际上是过滤器的值/项。我希望获得每个列表框的每个项/筛选器，以修改代码中的SQL查询。因此，我被要求在列表框中循环，并设法通过循环电子表格的形状来实现它，但最终.现在，这些列表框在VBA中被视为形状，而不再是列表框。我正在寻找一种方法，要么在列表框中转换我的形状，要么从形状类型中找到一种方法来循环每个列表框的项目。这是我的代码的一部分，到目前为止，我循环遍历每个形状/列表框，如果在我的形状名称中有单词"CFRA“，那么我希望在我的列表框中选择的每一项中循环，以便我的函数返回它们。
Private Function getLis
浏览 3提问于2020-07-28得票数 0
回答已采纳
在Access 2010中，我正在尝试使一个窗体在一个子窗体QueriesSubForm中显示一个查询，当从列表框QueryListBox中选择该查询时，然后单击按钮runbtn。它应该在链接子窗体中显示查询，并且当您从列表框中选择的不同选项再次执行整个步骤并单击按钮时，它会发生变化。
目前，我只能让它工作，如果我想让它在一个新的任务窗口中显示查询，当像这样编程时：
QueriesListBox列表框- SQL视图
SELECT MSysObjects.[Name]
FROM MSysObjects
WHERE (((MSysObjects.[Type])=5) AND ((Left([Nam
浏览 3提问于2013-04-05得票数 3
回答已采纳
我已经努力了好几个小时来解决我的问题，但没有运气。
我所拥有的控件如下
用户表单- 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
回答已采纳
我在MS Access中有一个问题，我不知道如何解决这个问题。
我的表单上有一个列表框。如果使用更改了列表框的值，则应运行SQL查询，并且应显示某些文本框的结果。例如：
用户从列表框中选择'A‘值，则应运行以下查询：
SELECT XValue, YValue,Wert FROM Mytable WHERE Name='A' and ID=fzgID
然后我想在三个文本框中显示XValue、YValue和Wert。问题是我可能有多个组合(XValue，YValue，Wert)。
我该怎么做呢？如何将列表框和查询链接到文本框？
非常感谢
浏览 2提问于2013-06-25得票数 0
我有一个名为"lbItems“的列表框，它被设置为"Table/query”的RowSource属性。我有一个VBA语句，它运行一个查询，从一个表中选择"lineItem“，它用lineItems填充列表框，如下所示：
Me.lbItems.RowSource = "SELECT lineItem FROM Table1"
但是，这并没有给我任何关于lineItems的信息，而是在“描述”字段中找到的。我想使用一个VBA语句，它运行如下SQL查询：
Me.lbItems.RowSource = "SELECT lineItem, Des
浏览 4提问于2016-08-10得票数 1
回答已采纳
其目标是创建一个查询表中定义为“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
回答已采纳
2回答
如何动态填充报表？
、、、
希望这是我最后一个关于访问的问题，因为我很快就会完成它的工作。
我现在有一个报表，该报表是从按下"Run“按钮时填写的表单生成的。搜索数据库主键并填充表单。当用户单击"Print“按钮时，将生成一个可打印的报告，由该表单中的数据填充。所有这些都很简单。
现在，在表单中，只有一个列表框。该列表框根据单击的事务类型显示事务类型的结果。例如，单击“购买”将生成列表框中的所有已购买产品的客户，而单击“出售”将生成列表框中已售出的所有客户。有更多的交易比这两个，但这并不重要的目的，这个问题。
我需要做的是使列表框(由VBA中的查询填充)的内容显示在可打印的报表上。
例如，报告可能如下所示
浏览 0提问于2013-08-01得票数 2
回答已采纳
2回答
我正在建设一个购物计划- msAccesss 2016。一些要购买的物品是电器组件，如果至少购买10件，价格大约为0.06100美元。我试图在一个列表框中显示这个数量和单价。这张单子把价格打成一圈。有人知道在列表框中显示全部0.06100美元的方法吗？它在表的数据表视图和绑定到列表框的查询的数据表视图中显示OK。
更多细节: Shopper中包含此信息的部分是一个名为PricesLists的表。它包括：
RecNo (主键的自动编号)
VendorNo -供应商表的外键-行表示供应商的价格。
PartNo -部件表的外键-行表示该部件的供应商价格。
数量-至少必须订购多少零件才
浏览 2提问于2016-06-17得票数 0
3回答
我在Excel中有5个多选择列表框。每个列表框的选定内容都写在一个单元格中，用逗号分隔。
例如，在单元格A1中，所有选定的名称:提姆、米兰达、劳拉
这些单元格是访问查询(where子句)的条件。
我打开MS查询并向查询中添加以下where子句并定义参数：
Where (Instr(?, [name])>0 And Instr(?, [number])>0 And Instr(?, [city])>0 And Instr(?, [phone])>0 And Instr(?, [email])>0)
但是，如果其中一个参数字段是空的，则运行得很好--(例如，用户没有
浏览 5提问于2013-12-03得票数 2
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
回答已采纳
我有一个表单FRMSOCIALGRAPH。在表单中，我有一个子表单FrmSGSystems。在子窗体上，我有一个列表框-- Systemlist (1列)--有多个值。在单击某个值时，我希望针对列表框上的值运行查询。计划是将一个值传递到Txtbox中的主窗体上，然后在我的查询条件中使用Txtbox的值。
我无法从列表框中获取引用，尽管它已经进入了Txt框。我拥有的代码是：
Me!SystemLookup = Forms.frmsocialgraph.FrmSGSystems.Form.Systemlist.Column( _
0, Me.Systemlist.ListIndex)
我怀
浏览 4提问于2018-02-09得票数 0
回答已采纳
3回答
对VBA来说相当新。在Access中的窗体上有一个列表框，该列表框由表中的数据填充。从列表框中选择一个值“给予”和“ID”，然后用于执行查询。我需要这个ID可以在另一种形式中使用，以便根据值执行查询。实现这一目标的最佳途径是什么？
`Dim IDValue As String
IDValue = Me.lstBoxCompanyName.Value
CompDetailSQL = "SELECT * FROM Companies WHERE Companies.CompanyID = " & IDValue`
浏览 5提问于2013-09-27得票数 0
回答已采纳
我在MS Access 2010表单上有一个列表框，该列表框的内容由查询生成。列表框列出了新的客户名称；这些名称没有在数据库的Customers表中列出。
用户可以在列表框中选择一个客户名称，然后单击按钮将该客户名称添加到Customers表中。
现在，在将新客户添加到Customers表之后，我希望刷新该表，即，我希望重新运行生成其内容的查询。有没有办法在VBA中或通过设置属性来做到这一点？
谢谢！:)
浏览 1提问于2011-11-06得票数 0
2回答
我在Access中有一个列表框，该列表框的多重选择值设置为true。我希望能够通过VBA代码设置选定的值。我该怎么做呢？
浏览 2提问于2013-03-27得票数 1
回答已采纳
我想将所有从0到100的数字添加到vba的列表框中，但是每个条目都需要3位数和一个整数。例如，列表框中的前三个条目将是000,001,002。
当我尝试使用以下方法将它们添加到列表框中时：
listbox1.AddItem (000)
它被更正为：
listbox1.AddItem (0)
有办法解决这个问题吗？
浏览 5提问于2014-06-25得票数 0
回答已采纳
1回答
因此，我有一个列表框，它使用select sql查询显示在Order表中输入的所有订单。现在我还想添加从列表框中编辑项目的功能，我看到了右键单击编辑列表项选项，但是当我单击它时，它只是打开表单，但不填充字段。表单中有未绑定的文本框，但我不知道如何使它们基于正确的单击条目填充。我还尝试从vba打开目标表单，并通过vba使用以下代码填充字段
Private Sub editrecordbttn_Click()
Dim valSelect As Variant
Dim v As Variant
Dim selector As Variant
Dim strValue As String '
浏览 1提问于2021-11-01得票数 0
回答已采纳
我刚开始在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
回答已采纳
1回答
添加:我在MS 2010的列表框中使用这个查询，在我的列表中选择不同的值(在本例中，用于AOM)：
SELECT First([Exhibit Recording].ReferenceNo) AS FirstOfReferenceNo, [Exhibit Recording].AOM
FROM [Exhibit Recording]
GROUP BY [Exhibit Recording].AOM;
它工作得很好，只是我将它与AOM文本框连接，以便用此VB代码输入数据：
Private Sub txtAOM_AfterUpdate()
If (VBA.Strings.Len(txtAOM
浏览 3提问于2013-10-31得票数 1
回答已采纳
我在Access 2010的表单上使用了一个多选择列表框。我想根据主列表中选择的内容在另一个列表框中筛选记录。理想情况下，我希望在查询条件中这样做。
有没有人找到一种方法可以轻松地使用VBA函数来填充IN ()语句的值？理想情况下，我正在寻找这样的东西：
如果我能让它正常工作，我可以很容易地创建VBA函数来返回一个ID列表。
其他方法：
是的，我可以将所选的值加载到一个临时表中，并使用IN (SELECT MyColumn FROM tblTempValues)查询它们，但是我真的不想为此添加另一个表。
我也可以使用动态SQL，但为了简单性和可维护性，我更愿意将它保留在可视化查询设计
浏览 1提问于2017-10-27得票数 1
回答已采纳
1回答
我对VBA还是很陌生的，但是工作表上有两个activex列表框。在一个列表框中，我有销售人员名称(称为lstNames)，而另一个列表框有位置(lstSite)。我正在努力实现以下目标：
从lstNames中选择名称
从lstNames中选择生成与名称相关的几个位置的列表的lstSite。
例如，如果我从lstNames列表框中选择Bob，那么lstSites列表框将填充Bob的所有站点，如NY、CO、CA、PA。如果我从lstNames中选择Susan，那么lstSites将清除Bob，并添加Susan的站点，这些站点是TX、WA、OR等。
lstNames和lstSite都
浏览 12提问于2016-08-26得票数 0
我有以下vba，它在测试访问数据库中创建查询。我有两个多选择列表框。问题是，我希望能够从"Me“中选择多个项，而从"Me”中选择一个项，并且能够运行查询。但是，这是不可能的，因为查询语言并不是用来处理这个问题的。它让我从“我”中选择一些东西。
如何修改下面的vba，以便在多个列表框中的一个没有选定的情况下，或者如果两个列表中都有选择项时，可以查询两个选择列表框？
Private Sub Command6_Click()
Dim Q As QueryDef, DB As Database
Dim Criteria As String
Dim ctl As Co
浏览 1提问于2016-07-30得票数 0
回答已采纳
1回答
在VBA中，我使用稳步增长的文本文件的文本反复更新列表框的内容。有没有办法让用户在更新列表框的循环运行时保持控制(滚动列表框，按下按钮)？application.wait的一个替代方案也可以工作；就像在中一样，更新->等待x秒(此时用户仍然可以再次重复-> ->更新。
浏览 2提问于2012-01-11得票数 0
回答已采纳
1回答
大家早上好，
我试图在主表单上得到一个列表框，该列表框由一个关键代码提供。列表框位于子窗体上。
我使用行源创建到表的链接，列表框应该是从该列表框开始的。
但是由于任何原因，我无法获得列表框显示用户刚刚创建的国家的详细信息。
我检查了所有的参数，看起来都很好.
我还测试了没有链接到主表单的查询，它运行得很好。我在同一个子表单上有另一个列表框，它使用相同的查询(或多或少)，而且运行良好。
我尝试了我所能做的一切，即使是在一个新的表单上，我从零开始通过复制所有的项目在空白DB上进行测试，我得到了同样的.空白列表框。
如果有人知道出了什么事。
非常感谢你的帮助，
干杯
哈基姆
浏览 6提问于2017-06-12得票数 0
回答已采纳
1回答
我有一个名为animal的列表框，行源设置为以下代码，其中查询"animal“是一个直通查询。但是，列表框中不会填充任何动物。注意:如果我将查询"animal“作为独立的直通查询运行，它将正确运行，它不会填充列表框。当单击列表框时，几乎就好像查询没有执行一样。
Private Sub animallist_Enter()
Dim Q As QueryDef
Dim DB As Database
' Use for dynamic SQL statement'
Dim strSQL
浏览 5提问于2016-08-05得票数 2
回答已采纳
我有一个包含3个列表框的表单，我试图根据2个输入/文本框中给定的范围来查询这些列表框。我不确定如何让脚本查看文本框。
Me.lstDailytop.RowSource = " SELECT StockCode, SumOfQTY, Date from qrytpdailystck WHERE [Date] BETWEEN Me.txtStart.Value And Me.txtEnd.Value"
Me.lstMonthlytop.RowSource = " SELECT StockCode, SumOfQTY, Date from qrytpmonthstck W
浏览 47提问于2019-05-23得票数 0
回答已采纳
我目前正在将访问后端移动到Server。我遇到了某些列表框的行源问题。我需要一种方法来设置listbox行源来查询驻留在服务器上的SP。我还需要传递一个从单击另一个列表框中派生出来的参数。
例如，用户单击listbox1，然后将选定的值作为参数传递给listbox2行源的查询。如何使行源在Server上查询并将参数传递给它。
浏览 5提问于2013-08-27得票数 1
回答已采纳
我有一个带有一些列表框的表单，可以用来从列表中选择值。我有一个使用表单值作为过滤器的查询。在我尝试使用VBA脚本打开查询之前，这种组合可以很好地工作。此时，我收到一条错误消息，指出查询需要参数。代码段为：
查询-实体选择-使用表单(一次只使用一个列表框-这会找出它是哪一个，并从表实体列表中选择适当的项)：
SELECT val(forms.selections.select_year) as Yr, *
FROM [entity list]
where [group]=forms!selections!select_group
UNION select val(forms.selectio
浏览 1提问于2013-05-02得票数 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
1回答
如果我运行一个查询，从每条记录中选择三个独立字段。是否可以在三个单独的字符串(每个字段一个)中获取每个返回的结果，以便我可以在vba代码中循环它们？
浏览 0提问于2011-04-30得票数 2
回答已采纳
1回答
下面的代码是一个SELECT查询，并将各自的值传递给MS Access中的适当控制框。它传递除了最初从列表框(POA_Assigned_to_individual_Name.RowSource)接收的值以外的所有值。
SQL查询结果似乎带来了null值，无法将其传递回列表框。
SQL = "SELECT * FROM Incident_Record" & _
" WHERE [Incident_Record].[SMART_Incident_Ticket] = " & Me.Mod_SMART_Incident_Ticket.Value &
浏览 2提问于2018-02-08得票数 0
我有两个列表框，它们通过单击事件的vba填充。表“Project”是一个odbc数据源，有250条记录。
List1.RowSource = "SELECT Name FROM Project WHERE ProjectID = " & ProjectID.Caption & " AND Year = " & ActualYear.Caption & " ORDER BY Name"
List2.RowSource = "SELECT ProjectShare FROM Project WHERE Pro
浏览 1提问于2018-06-15得票数 0
回答已采纳
好的，只是一个警告，我是一个完全的新手与VBA和访问，但我是插入它。
我有一个包含一些列表框的表单，我想要做的是根据“父”列表框的选择隐藏或显示特定的列表框和表单的字段。
也就是说，“位置”列表框包含许多选择，其中一个被称为“加拿大”。
当用户选择“加拿大”时，我希望表单显示另一个名为“省”的框。
当前代码：
Private Sub Form_Load()
MsgBox "Form Loaded"
If Forms![Tickets]![location] = "Canada" Then
MsgBox "location is Canad
浏览 3提问于2014-03-11得票数 1
回答已采纳
我已经使用Access大约一年了，直到最近才开始学习VBA。我读过的书和我在网上读过的帮助似乎并不完全符合我所需要的；或者，如果它们符合，那么我一定是个新手，以至于没有注意到。
我的项目是一个个人财务数据库，我正在研究一种预测现金流的方法。我有
具有称为“tbl_InitialPoint”的循环事务的表(列描述、数量和频率(以天为单位))，
在“tbl_Register”中查找特定描述的最后日期的查询，
一个附加的查询，用于插入从“tbl_InitialPoint”到“tbl_Register”的循环事务
插入tbl_Register ( PostDate，Description，
浏览 3提问于2013-10-01得票数 0
最终目标是将数据附加到包含vba脚本和activex列表框的xlsm文件中。使用蟒蛇/熊猫是首选。首先，我想打开xlsm文件，添加一个空工作表，然后再次关闭它，而不使用VBA代码，因为我没有一个列表框而导致错误。
activex列表框给我带来了麻烦，因为它不是“传输”的，并且VBA脚本在尝试使用列表框时会产生一个错误。运行python脚本后，VBA代码看起来很好，但是在设置'xLstBox‘变量时它会崩溃。
我可以看到但无法实现的可能修复方法是：
让python编辑文件，如果VBA脚本可以生成列表框.，则不会干扰activex对象
我的python代码：
from openpyxl i
浏览 15提问于2022-09-06得票数 0
回答已采纳
1回答
我有一个用于运行报告的make table查询(由于一系列连接和各种其他复杂的条件-它必须是一个表，否则会因查询太多而失败)。
我现在需要能够过滤使用的数据(它是求和字段)使用一个'IN‘从一个列表框中选择。
这是我想要的查询，EWAList是列表框中选中的项，有人能帮上忙吗？
SELECT C.Num, P.Name, E.Phase, C.Code,
Sum(C.Hours) AS Hours, Sum(C.Total) AS Total,
Sum(TotalForC.Total) AS ETotal, E.E_Date
INTO CDat
浏览 4提问于2010-07-09得票数 0
回答已采纳
在我的应用程序中，用户从他们想要编辑的列表框中选择记录。然而，在他们能够编辑之前，还有一个额外的查询来确保他们想要修改的信息是正确的。以下是流程：
用户输入一个Item_Number并单击一个按钮来查询包含该Item_Number的所有位置的DB。这些被装进一个列表盒里。
用户从他/她希望编辑的列表框中选择位置
用户输入所选项目的新Last_Cost和/或新Vendor_ID并单击以确认编辑
在VBA中，有一个针对另一个DB的查询，以确保新的Vendor_ID是有效的。
水流继续
问题是，当用于请求的VBA代码
DoCmd.Requery (VendorNumber
浏览 0提问于2015-01-15得票数 0
回答已采纳
我有一个包含Cbo_Vendor的表单，其中用户选择一个供应商(基于列出供应商和PN‘s的链接电子表格的列表)。此选择用于筛选针对不同列表框的2个select查询：(Qry_Parts)为供应商派生PN的列表，并(Qry_Team)用于确定该供应商的买方是谁。
Qry_Team有两个字段-供应商和买方，并绑定到一个单独的链接电子表格，其中列出供应商和买家。供应商的标准是
[Forms]![Summary_Form]![Cbo_Vendor]
我有一个列表框显示买方的名字从Qry_Team。List_Buyer的行源是
SELECT [Qry_Team].[Buyer] FROM Qry_Tea
浏览 0提问于2018-07-02得票数 0
回答已采纳
我有2个them表单与1个ListBox控件对每个他们。
如何从webformB访问位于webformA上的列表框？
例如，我希望在WebFormB上声明类似这样的string name = ListBoxWebformA.SelectedValue.ToString();，这样我就可以在WebFormB的代码中使用该值。
WebFormA上的ListBox列出了几个名称。当我从列表框中选择一个名称并按下OK按钮时，我调用Response.Redirect("~/WebFormB.aspx")；
因此，在WebFormB中，我希望通过将所选值放入一个字符串来访问这个“名称”。
浏览 0提问于2010-12-30得票数 0
回答已采纳
2回答
我有一个问题，使一个列表框成为一个多选择列表框。据我所知，进行列表框多重选择的代码是：
[forms]![formname]![listboxname].multiselect=2
然而，当我在Private Form_Load()中运行它时，我会得到运行时错误'2448‘，您不能为这个对象赋值。
我想我不知道如何使列表框多选择，但我很确定我很清楚如何使用VBA中的多选择列表框。
任何有关如何使用上述代码将列表框实际更改为multiselect的帮助都将不胜感激。
浏览 0提问于2015-05-20得票数 2
回答已采纳
我可能有一个临时的解决办法，但如果我不能永久地修复它，这将导致问题。
我在MS Access中有一个查询，当它单独运行时，它工作得很好，但是当我使用CurrentDb.Execute命令运行它时，它会给出“运行时错误'3146'：ODBC-调用失败”的错误。
我还检查了它是否失败，如果它是从直接窗口运行的，那么它也会失败。
来自三个不同表的查询调用加上一个由VBA脚本设计的本地表。如果删除了一个特定的表，则VBA脚本可以工作。
我知道这是非常通用的，但是为什么查询在任何地方都能工作，除非它是从VBA调用的？
更新:原来的问题措辞很糟糕，我对此表示歉意。它是即时写的，我被我遇到的
浏览 5提问于2015-02-20得票数 1
我试图用命令按钮更新列表框，单击MS Access窗体，并将ADODB记录集更新为Sqlite数据库文件。
记录集RecordCount属性正确地返回100条记录，但运行代码时，列表框仅显示记录集中的第一行/记录。
这个列表框有什么问题，我遗漏了什么？？！我很感谢你的帮助。
代码如下：
Private Sub cdRefresh_Click()
Dim Cnn As Object, Rst As Object
Dim cnString As String, SqlStr As String
cnString = "DRIVER=SQLite3 ODBC
浏览 4提问于2021-10-05得票数 1
我有一个名为Qsearch的表单，其中包含一段代码，当选择一个命令按钮时，该代码根据三个多值列表框中的多值选择创建一个查询。创建的查询没有选中“显示”复选框。如何创建将Show复选框设置为True的VBA代码？
用于构建查询的VBA代码为：
strFinalFilter = "SELECT * FROM Contacts WHERE " & strFinalFilter
DoCmd.DeleteObject acQuery, "search_results"
Set qdfNew = CurrentDb.CreateQueryDe
浏览 1提问于2014-11-27得票数 0
我有一个绑定到表(tblTransferDetail)的列表框。主键是'TransNum‘(类型为INT)，列表框作为第一列绑定到它。
列表框的双击事件(lstScannedItems)执行以下代码：
CurrentDb.Execute "DELETE FROM tblTransferDetail WHERE TransNum = " & Me.lstScannedItems, dbSeeChanges
然而，当我双击列表框中的一条记录时，我一直收到'VBA运行时错误3075‘，并且上面的行高亮显示。
我哪里错了？
浏览 19提问于2018-08-06得票数 0
回答已采纳
3回答
我在MS Access中生成一个报告-我在这里尝试做的基本上是将一个查询追加到我已经创建的表中-我选择第一个值，更改它并更新表。我遇到的问题是-此报告将由VB6应用程序使用。因此，用户根本看不到访问权限。
我的追加查询需要一个USER ID (4位数字)才能运行。通常，当我在Access中运行报表时，我会将参数传递给Access中的窗体，并使用它们来运行查询。然而，在这种情况下，我需要用户在附加查询时输入值，此外，当在VBA中附加查询时，它首先显示"You are about to append a query, are you sure" (或类似的内容)，所以有没有方法也自
浏览 0提问于2016-03-12得票数 1
1回答
我试图从一个包含三个字段的表单中调用一个访问查询(QRY_TimecardStatus)：周末日期、供应商名称和状态类型(包含多个选择的列表框)。
因为那个骡子。选择列表框条件需要在VBA中创建--我找到了一些非常好的代码！
Set DB = CurrentDb()
Set Q = DB.QueryDefs("QRY_TimecardStatus")
Q.SQL = "Select * From Data Where [Approval Status] In(" & Criteria & ");"
但是，我需要将另外两个字段
浏览 2提问于2015-05-14得票数 0
回答已采纳
1回答
我目前正在使用MS Access作为我创建的数据库的前端。我有一个用户使用的PowerApp，它的后端是Server。
但是，我需要一些函数来将内容加载到这些表中，所以我使用Access作为工具。
我希望在服务器端运行一些查询，而不是让Access运行这些查询，因为Access从服务器中提取所有内容，然后执行操作，然后将其推回服务器。
对于VBA，我是否可以在服务器上运行代码，而不是试图使用DoCmd.RunSQL，这似乎是通过MS运行的呢？
浏览 1提问于2022-08-29得票数 1
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
腾讯会议
实时音视频活动推荐
腾讯云开发者
