使用vba访问搜索-在不更改RecordSource的情况下在子窗体中显示结果
在不更改RecordSource的情况下，在子窗体中显示搜索结果，可以通过以下步骤实现：
- 创建一个文本框控件，用于输入搜索关键字。
- 创建一个按钮控件，用于触发搜索操作。
- 在按钮的点击事件中，编写VBA代码来执行搜索操作。
- 在子窗体中添加一个列表框或数据表格控件，用于显示搜索结果。
以下是一个示例的VBA代码，用于实现上述功能：
Private Sub btnSearch_Click()
Dim searchKeyword As String
Dim strSQL As String
' 获取搜索关键字
searchKeyword = Me.txtSearch.Value
' 构建搜索SQL语句
strSQL = "SELECT * FROM YourTableName WHERE YourFieldName LIKE '*" & searchKeyword & "*'"
' 设置子窗体的RecordSource为搜索结果
Me.subformName.Form.RecordSource = strSQL
' 刷新子窗体
Me.subformName.Form.Requery
End Sub请注意替换代码中的"YourTableName"和"YourFieldName"为实际的表名和字段名，以及"subformName"为子窗体的名称。
这段代码的作用是，当用户点击搜索按钮时，获取文本框中的搜索关键字，构建一个SQL语句来查询包含该关键字的记录，并将该SQL语句设置为子窗体的RecordSource，最后刷新子窗体以显示搜索结果。
对于这个问题，腾讯云的相关产品和链接地址可能并不适用，因为这是一个与云计算无关的功能需求。
相关·内容
4回答
MS Access VBA -在数据表子表单中动态显示生成的SQL结果
ms-access、vba
我在MS应用程序(自动化和ETL流程)方面有多年的VBA经验，但直到最近我才需要处理MS Access中的表单。我正在为我设计的一个数据库设计一些简单的数据抽取表单，而这似乎是一个简单的任务。
目标:我需要一个数据表子表单来显示从主窗体上的控件中动态构建的SQL语句返回的记录。
在主窗体上，我有一个按钮，当用户单击该按钮时，该按钮将将用户在其他用户窗体控件中指定的信息编译为SQL查询，然后运行该查询，以便子表单显示结果记录。
不管我做什么，我都做不到。我一直得到微软visual basic运行时错误"'2467'：您输入的表达式是指关闭或不存在的对象。“这就是我从下面的
浏览 1提问于2014-01-21得票数 10
回答已采纳
1回答
访问表单(VBA)的查询结果
sql、vba、ms-access
作为一个新手，我正在做一个访问项目，我面临着一些问题(必须用VBA来做所有的事情)。简单地说，我必须在表单上显示查询结果。我几乎没有文本框，我需要显示一些信息。我知道我必须将RecordSource更改为表单，并且必须为每个文本框设置RecordSet。这是我的代码，但不起作用：
Private Sub Form_open(Cancel As Integer)
Dim strSQL As String, queryDef As DAO.queryDef
strSQL = " *SELECT etc...* "
CurrentDb.QueryDefs.D
浏览 1提问于2019-09-03得票数 0
1回答
Microsoft Access数据库-搜索文本框窗体
ms-access、vba
我正在尝试创建一个窗体，其中包含一个文本框和一个按钮，单击该按钮可以在特定表中搜索记录，并显示搜索到的文本的所有相关信息。对于这个窗体，我将使用它作为一个子窗体，所以我认为VBA可能是最好的方法。
下面是我的表格：
下面是我希望看到的一个例子：
我想输入一个partno，然后单击该按钮，将填充字段。
请告诉我如何处理这个问题。
浏览 4提问于2014-08-14得票数 0
2回答
如何在窗体中重新查询子窗体？
ms-access、vba
我遇到了一个问题，在访问过程中，我无法请求表单内部的子表单。
表单名为frmSearch，子表单名为SearchResults
我试过了
Private Sub Command38_Click()
Me!SearchResults.Form.Requery (or)
Me.SearchResults.Form.Requery
End Sub
我的表单和子表单如下所示：
为了清楚起见，我使用"Search“按钮创建了一个包含textbox和combobox值的字符串。此字符串创建一个名为qryTrialQuery的SQL查询。然后，我的子表单对qryTrialQuery进行
浏览 4提问于2012-11-17得票数 1
回答已采纳
2回答
将访问筛选器与自己的关键字搜索一起使用
ms-access、vba
我是access和vba方面的新手。现在我的第一个项目遇到了问题。我已经创建了一个带有关键字搜索的表和表单。我的关键字搜索运行良好，但如果我同时使用access中的标准筛选器，我只能使用一列中的筛选器，因为所有其他筛选器值都不可用。我创建了一个msgbox来查看输出，access在表名前面加了一个下划线。
Public Sub btnSearch_Click()
Dim sql As String
sqlQuery = " brands.name LIKE '*" & Me.txtKeywords & "*' " _
浏览 0提问于2017-08-22得票数 1
2回答
使用变量作为MS Access子窗体记录源的SQL Server查询
sql-server、ms-access、vba
我正在尝试找出构建动态查询的最佳方法，并将其用作MS Access子窗体的记录源。我现在静态地分配了WHERE子句，这样我就可以构建表单，并确保数据被正确提取。主窗体将有两个格式为ShortDate的文本框和下面的两个带有查询结果的子窗体。第一个子窗体是按员工姓名分组的查询，第二个子窗体是部门总数的总和。
FWIW这是Access 2010 ADP/ADE前端，SQL Server 2008后端。我当前用于部门合计的SQL如下：
SELECT COUNT(*) AS TotalNumEstimates, SUM(NumPanels) AS TotalNumPanels, SUM(
浏览 2提问于2016-04-27得票数 0
2回答
使用VBA在Microsoft 2010表单中筛选结果
ms-access、vba
我正在开发Access数据库，在该数据库中，我需要以数据表的形式显示表中的记录。我相信我已经正确地编写了代码来执行过滤，但不知道如何显示记录。
我知道我可以使用一个查询，然后是一个基于这些结果的表单来更容易地执行这个过程，但是如果可能的话，希望限制这个过程，以减少数据库的总体大小。过滤器将对一家公司进行排序，以及财政日期。
任何帮助都是非常感谢的。
这是我到目前为止的代码..。
Option Compare Database
Sub Form_Current()
Dim oTable As DAO.Recordset
Dim oDataNeedsGas
Dim dNe
浏览 3提问于2013-07-25得票数 0
3回答
Access 2007 VBA和SQL -更新指向动态创建的查询的子窗体
sql、ms-access、ms-access-2007、vba
摘要:每当用户从下拉菜单中选择3个选项中的一个时，我使用VB重新创建一个查询，如果用户从组合框中选择了任何选项，则会附加WHERE子句。然后，我尝试刷新表单上显示的信息，从而根据用户输入过滤表中显示的内容。
1)使用VB动态创建查询。
Private Sub BuildQuery()
' This sub routine will redefine the subQryAllJobsQuery based on input from
' the user on the Management tab.
Dim strQryName As String
Dim strSql As
浏览 4提问于2010-05-26得票数 1
回答已采纳
2回答
MS中的动态报告不会使用源查询更新。
sql、database、vba、ms-access
所以我有一个机械零件数据库。我在数据库中有一个搜索表单，允许用户将过滤器应用于查询(通过使用5个文本/组合框和一个“应用过滤器”按钮)。此查询将包含使其通过筛选器的组件，以及有关这些组件的一些详细信息。同样在搜索表单上，我有一个与查询绑定的子报表。
我的计划是让用户使用表单上的控件对数据进行筛选。当用户过滤掉组件时，报表应该更新以显示哪些组件传递新的查询。然后，通过单击报表中的记录来选择他们感兴趣的组件，然后将该组件ID传递到VBA以完成更多的任务。
我的问题是绑定到查询的报表不会像查询那样更新。我尝试过在单击按钮事件上使用DoCmd.Requery和Me.Form.Refresh，但是没有得
浏览 1提问于2015-10-01得票数 2
回答已采纳
1回答
使用Access VBA更改窗体的记录源
ms-access、vba、subform
我正在创建搜索表单，但无法在子表单中查看搜索结果。查询运行正常，我已经将子窗体记录源设置为查询。我没有得到任何错误。当我单击search按钮时，查询运行，它显示了子窗体底部的记录选择器中的行数，但我看不到这些行。
下面是按钮的OnClick事件的代码：
Private Sub cmdSearch_Click()
Dim tableName As String
Dim colName As String
Dim keyword As String
Dim strSQL As String
tableName = Me.cmbTableNames.Value
colName = Me.cmbC
浏览 5提问于2014-04-08得票数 3
1回答
MS访问: VBA太快导致字段更新，只有当切换断点在代码中，需要计时器？
vba、ms-access、delay、wait、pause
我目前正在做一个采购订单“软件”在Access和我有问题后，计算金额后的项目数量(qty)更新。
当我在VBA代码中有关于“后更新”事件的Toggle断点时，在更新qty =5并遍历代码行之后，就可以从子表单1(即'Total‘字段之和)中正确地更新父文本字段。代码包含一个刷新，以便添加正确的值，而不是旧的值：
。
。
但是，删除切换断点时，我认为VBA代码没有足够的时间完全处理刷新命令，该命令用错误的(旧的)值更新父文本字段.。
此问题导致实际子表单计算总数与父表所增加的值之间的差异(在这里，我删除了切换断点，并在第二行项上添加了1，但计算结果是250而不是251
浏览 0提问于2021-04-06得票数 1
1回答
搜索文本框函数，当文本框和列表框中没有条目时，让我的函数继续运行。
ms-access、textbox、vba、listbox、multi-select
我真正需要知道的就是如何在多个多选列表框中进行选择，但将其中任意数量的列表保留为空白，并且仍然有宏/查询工作，而不必输入错误消息。
这还包括对文本框进行同样的操作。文本框的功能与列表框相同，它们在数据表中搜索任何内容，以匹配我在记录中查找的内容，并在表中显示我要查找的内容。
这是我的密码
Private Sub Command62_Click()
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim varItem As Variant
Dim District As String
Dim Circumstance As String
Dim
浏览 2提问于2019-03-18得票数 1
回答已采纳
2回答
Mainform选项卡控件将值传递给选择大小写的子窗体变量
ms-access、subform
在过去的三个小时里，我一直在寻找这个问题，所以如果有人问了这个问题，我很抱歉，但是我找不到解决办法。
我有一个主表单，frmPHDLP和子表单(连续数据表) frmPHDUpdate。两者都不是约束形式。frmPHDLP在上面有一个选项卡控件，显示真实的办公地点。子表单将根据所选选项卡在每个位置显示员工列表。我在VBA的子表单中设置RecordSource。
第一个选项卡工作完美。问题是，当我在mainform上选择一个新的选项卡时，我无法获得子表单来用新的位置请求SQL。SQL语句构建在子窗体的Form_Current事件中。
显然，运行Me!frmPHDUpdate.Form.Requer
浏览 0提问于2018-03-29得票数 0
回答已采纳
3回答
如何在microsoft access中将窗体绑定到SQL语句
sql、vba、ms-access、binding、filtering
**编辑
大家好，我正在尝试在我的vba中包含一条SQL语句，这样我就可以轻松地对数据进行排序和筛选。所以我已经找到了将SQL包含到我的VBA中的方法，但是我得到了一个错误，说“RunSQL操作需要一条SQL语句”，但是很明显，SQL语句在strSQL变量中。
Private Sub buttonNot_Click()
Dim strSQL As String
strSQL = "SELECT Table1.[FirstNam], Table1.[LastNam]" & _
"FROM Table1 " & _
"WHERE (((
浏览 7提问于2014-05-16得票数 0
1回答
Access 2016:在多个文本框中显示搜索结果
ms-access、ms-access-2016
这项工作正在Access 2016中执行。创建一个查询，然后根据该查询创建一个表单。使文本框成为查询记录的搜索框。搜索脚本如下所示。 Dim strsearch As String
Dim Task As String
'Check if a keyword entered or not
If IsNull(Me.txtSearch) Or Me.txtSearch = "" Then
MsgBox "Please type in your search keyword.", vbOKOnly, "Keyword Needed"
浏览 47提问于2020-01-03得票数 0
回答已采纳
2回答
如何在MS-Access中的表单之间传值？
forms、ms-access、vba
我正在使用Access 2013。我有一个由三个子窗体组成的主窗体。我希望能够在两个表单之间传递数据。
其中一个子窗体位于“数据表视图”中，当用户通过对话框窗体将数据更新到表中时，我正在尝试更新它。此对话框窗体是使用合规子窗体(数据表图标)上方的按钮启动的。
我不确定是否必须使用VBA代码来启动更新。下面是我正在做的几张图片。
任何帮助都将不胜感激。谢谢。
我现在在StackOverFlow上搜索任何线索
浏览 2提问于2018-08-01得票数 0
1回答
Me.Requery似乎没有对表单进行任何操作。
ms-access、vba、ms-access-2010
我已经搜索并找到了许多关于在子窗体上使用请求的信息，但似乎找不到任何指示试图使用新记录集请求活动窗体的信息。
我有一个基于查询的表单。我使用一个未绑定的文本框来捕获需要搜索的地址，然后更改查询中的sql语句以定位记录，然后尝试使用me.requery加载新结果。
代码正在更新sql语句，但表单没有使用新记录结果进行请求。我的密码在下面。
我对access和VBA相当陌生，并且欣赏您可能拥有的任何智慧。另外，在其他代码中有什么可以导致失败的东西吗？
Private Sub Command51_Click()
Dim d As DAO.Database
Dim q As DAO.QueryDe
浏览 0提问于2015-04-03得票数 0
回答已采纳
1回答
MS Access表单绑定到ADO记录集
sql、ms-access、ado
快把我逼疯了。 问题出在速度上。 我有一个工作的SQL Server链接到一个客户端可访问的网站，我想添加一个访问前端，使我们办公室的工作人员能够更好地支持客户端和现场工作人员。 我构建的当前表单是一个主表单，其中包含五个子表单，在一个视图中为我们提供了所有相关的客户信息。然而，这项工作需要24秒来加载单个客户端的完整记录。 我查看了SQL Server，发现没有索引，修复了这个问题，并将时间降至24秒，随后的负载接近18秒，具体取决于客户端(有些客户端的记录要多得多)。这可能是可以的，因为虽然这是一个相对永恒的计算时间在现实世界的时间它的okay...but不是很好。我想看看我是否可以通过
浏览 24提问于2019-12-28得票数 0
回答已采纳
1回答
访问窗体上传递前一个值的Textbox
vba、ms-access
我创建了一个搜索表单。
搜索文本有一个文本框。用户通过单击搜索按钮或按enter键触发搜索事件。
按钮单击事件正在工作。
在第一次按enter键时，文本框将传递上一个事件在文本框中输入的值。如果第二次按enter键，则传递当前值。
例如，在表单load上，文本框为空，然后输入搜索文本为"Ali“，然后按enter键，然后传递值"NULL”，然后再次按enter键，然后传递值"Ali“。
Option Compare Database
Option Explicit
Private Sub btnSearch_Click()
Dim SQL, strSe
浏览 0提问于2020-01-04得票数 0
回答已采纳
1回答
使用access vba计算sql查询结果中的行数
sql、ms-access、ms-access-2007、vba
我正在尝试使用access 2007 vba来计算sql查询结果中的行数。我所拥有的是一个名为AGN的文本框，当用户在其上放置值时，检查该值，然后如果该值已经插入，它将返回MsgBox。我想做的是：
Dim rs As DAO.Recordset
Dim db As Database
Dim strSQL As String
Set db = CurrentDb
strSQL = "SELECT agencies.[agency no] FROM agencies WHERE agencies.[agency no]= " &Me.AGN.Text
浏览 3提问于2014-04-21得票数 0
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
即时通信 IM
ICP备案
对象存储
实时音视频活动推荐
腾讯云开发者
