在Access中使用FindNext
FFF
我在MS Access中有一个非常基本的应用程序来检查一些数据。我在表单中有一个Texbox和一个按钮。我的简单目标：我只想在测试框中写一些东西，单击按钮，然后检索与该搜索匹配的第一条记录。因此，我可以检查所有字段。然后，我再次单击并获得下一条记录，等等。如果我在“单击时”按钮事件中编写了一些基本代码
DoCmd.FindRecord "XXX", , True, , True
它可以正常工作，并且找到带有XXX的第一条记录。
但是，当我替换固定的“ XXX”并使用Texbox中的文本（称为ProjectBox）时，它不起作用。
DoCmd.FindRecord ProjectBox.Value, , True, , True
DoCmd.FindRecord ProjectBox.Text, , True, , True
两条陈述都失败...您能建议些什么吗？先感谢您！
阿尔伯特·D·卡勒
好了，您可以编写代码来搜索+检查数据记录，但是为什么不只在现有表单上放置一个文本框呢？您输入一些搜索（例如XXX），然后在该文本框旁边放置一个按钮。
所以，说你有这个：
所以我放了一个文本框（txtSearch）和一个按钮。
因此，现在单击按钮时的代码可以是：
Private Sub Command13_Click()
Me.Filter = "HotelName like '*" & Me.txtSearch & "*'"
Me.FilterOn = True
End Sub
因此，现在对表单进行了过滤，您可以通过所有匹配的记录来回浏览。我的意思是，您想过滤一些数据-但是您想在哪里，何时何地处理结果？说提取一些数据并仅在代码中对其进行过滤没有多大意义，因为那样您（或用户）如何处理这些结果数据？
当然，任何形式的用户都可以按Ctrl-F，然后会弹出此对话框：
因此，这并不是什么，因为它是内置的，所以您通常不需要编写任何代码。
Perhaps you wondering how to traverse, seach, process the data but NOT with the UI (user interface) but ONLY say in VBA code?
Well, then you could write this code that takes the input from the text box above and do this:
Dim strSQL As String
strSQL = "SELECT ID, HotelName FROM tblHotels WHERE HotelName LIKE '*" & Me.txtSearch & "*'"
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset(strSQL)
Do While rst.EOF = False
Debug.Print "ID and Hotel name match = " & rst!ID & "," & rst!HotelName
rst.MoveNext
Loop
rst.Close
So the above is pure code - does not use the form. So, if in above I typed in Banff, then the debug.print (ctrl-g - immedate window) would display this output:
Output:
ID and Hotel name match = 153,Banff Springs
ID and Hotel name match = 188,Banff Hotelling
ID and Hotel name match = 206,Banff Inn
ID and Hotel name match = 292,Best of Banff
So the issue is NOT writing code to search or filter data, but WHERE, WHEN, HOW you going to present that data to the user.
由于您要在文本框中键入一些搜索内容，因此构建表单很有意义，但是如上所述，表单具有内置的搜索功能，但是您当然可以在表单上设置过滤器，并且那么下一个或上一个移动的所有“动作”将通过表格中内置的简单的下一个/上一个功能来处理。因此，您只需要编写少量代码即可进行过滤-但是表单的内置导航功能因此使您不必编写所有下一个/上一个代码。
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
编辑于
相关文章
Related 相关文章
- 1
将findnext与两个结果一起使用
- 2
使用FindNext的UDF似乎中止而没有警告
- 3
使用.FindNext方法在VBA中进行无限循环调试
- 4
嵌套MySQL无法在Access VBA中使用
- 5
如何在Access中使用WITH语句？
- 6
如何在MS Access中使用DISTINCT？
- 7
在Access中使用VBA从模板创建表单
- 8
在MS Access中使用土耳其语字符
- 9
“ LIKE”运算符可在MS Access中使用，但不能在ADO中使用
- 10
在Microsoft Access中使用sql设置查询参数的值
- 11
如何在Access数据库中使用登录控件
- 12
如何在Access DLookup功能标准中使用“-”
- 13
如何在MS ACCESS中使用类似Oracle Rownum的功能
- 14
如何在.antmatchers.access（）中使用常量
- 15
在MS Access中使用ISO 8601日期
- 16
在Android中使用Storage Access Framework保存文件
- 17
在MS Access中使用Excel VBA进行SQL删除
- 18
MS Access等效于在select中使用density_rank
- 19
保存字段的表达式以供以后在Access中使用
- 20
如何在Access中使用评论框添加评论？
- 21
在MS Access中使用SQL更新空字段
- 22
在Access 2010中使用宏打开Visio绘图
- 23
在ACCESS 2013中使用SELECT MAX进行更新查询
- 24
MS Access在查询中使用多个子查询
- 25
如何在MS Access SQL中使用IF语句
- 26
Microsoft Access VBA在计算中使用变量字段
- 27
在Elasticsearch python客户端中使用SQL Access
- 28
如何在Access 2010中使用.mdw文件
- 29
在Access 2007中使用VB自动提交HTML表单
我来说两句