access2003中的VBA,请帮我看看哪里的代码错误了,为什么有语句不执行
Dim my_tb1 As Recordset
Dim my_tb2 As Recordset
Set my_db = CurrentDb
Set my_tb1 = my_db.OpenRecordset("select * from [" & Text0.Value & "] order by [时间]", dbOpenDynaset)
Set my_tb2 = my_db.OpenRecordset("select * from [" & Text1.Value & "] order by [时间]", dbOpenDynaset)
my_tb1.MoveFirst
my_tb2.MoveFirst
Do Until my_tb1.EOF
my_tb2.FindFirst "[时间]=" + "'" + my_tb1("时间") + "'"
If my_tb1("价格") <> my_tb2("价格") Then
MsgBox (my_tb1("时间") + " 表1价格为: " + Str(my_tb1("价格")) + " " + my_tb2("时间") + " 表2价格为: " + Str(my_tb2("价格")))
End If
my_tb1.MoveNext
my_tb2.MoveFirst
Loop
MsgBox ("检查完毕")
my_tb1.Close
my_tb2.Close
这个是我写的一段程序
有两张表,那我分别建立两个记录集,my_tb1和my_tb2.
两个表中都有[时间]这么一个字段,但是my_tb1中的时间比my_tb2中的要少,而且同样的时间的其他字段也是不同的.
那么我在这里想要实现的功能是
比如在my_tb1中时间为20060110 14:45,那我想在记录集my_tb2中也找到为这一时间的记录.
然后把这两张表中时间字段为20060110 14:45的其他字段进行比较.
举个例子就是my_tb1中时间为20060110 14:45的这条记录的某一个字段为10
my_tb2中时间为20060110 14:45中这条记录的某一个字段的值为20
我在程序中的后面会对这10和20进行比较.
说了半天,我遇到的麻烦是什么呢.是my_tb2.FindFirst "[时间]=" + "'" + my_tb1("时间") + "'"这条语句老是不执行.
换句话说,my_tb1我让它指针按顺序下移的,然后依次查找my_tb2中的相应记录.
但是my_tb2却一直停在第一个记录
我想知道是不是我上面的语句哪里写错了,那该怎么写呢?
请老师指导.谢谢.
相关推荐
1、Access 2003 VBA编程入门与实践
本文详细介绍了Access 2003 VBA的基础知识,包括编程生命周期的各个阶段、Visual Basic编辑器的功能以及如何组织和编写高效的VBA代码。通过学习本文,读者可以掌握从需求收集到实施的完整开发过程,并了解如何通过分层结构、变量使用、流程控制和错误处理提高代码质量。
ACCESS VBA 进销存管理系统详解(新版)
Visual Basic for Applications (VBA) 是一种编程语言,允许用户通过编写脚本来自动化Office应用程序中的任务。在Microsoft Access中,VBA尤其重要,它提供了强大的数据库管理和开发工具,可以创建自定义的函数、处理事件和实现复杂的业务逻辑。VBA程序通常由一系列过程(Procedures)组成,包括函数(Functions)和子程序(Subroutines)。过程定义了一段执行特定任务的代码。函数返回值,而子程序则不返回值。
深入理解Access 2003 VBA编程与调试技巧
本篇博文旨在深入解析《Access 2003 VBA编程入门》书籍中关于VBA程序调试和错误处理的章节内容。通过动手练习和自定义项目的详细步骤,包括创建数据库、设置控件属性、编写事件过程和函数、以及如何设置断点和使用监视窗口等,文章将引导读者掌握VBA程序的调试方法和技巧。
【Python编程】Python安全编程与常见漏洞防护
内容概要:本文深入剖析Python应用的安全风险与防护策略,重点对比SQL注入、命令注入、反序列化漏洞、路径遍历等常见攻击面的防御方案。文章从输入验证原则出发,详解参数化查询(parameterized query)对SQL注入的防御机制、subprocess模块的shell=True风险与参数列表传递、以及pickle/ast.literal_eval的安全替代方案。通过代码示例展示密码哈希(bcrypt/argon2)的盐值与迭代策略、JWT令牌的签名验证与过期控制、以及CORS跨域配置的白名单限制,同时介绍bandit静态安全扫描的规则配置、OWASP Python安全编码规范、以及依赖漏洞(CVE)的自动化检测(safety/pip-audit),最后给出在Web应用、数据处理、云原生部署等场景下的安全纵深防御体系与最小权限原则实践。 migu.blsxex.hxjlj.org.cn www.huike-auto.com m.huiyimofang.com hx-whg.com www.huaxiazhenhui.com
新型电力系统下PI-LSTM物理信息长短期记忆神经网络的电力变压器状态评估方法(Matlab代码实现)
内容概要:本文提出了一种基于物理信息长短期记忆神经网络(PI-LSTM)的电力变压器状态评估方法,旨在适应新型电力系统对设备状态精准评估的需求。该方法将物理规律作为先验知识融入LSTM网络,通过构建包含变压器热力学、电气特性等物理约束的损失函数,提升模型在数据稀疏或噪声干扰下的泛化能力与解释性。利用Matlab实现了PI-LSTM模型的搭建、训练与验证,通过实际案例对比传统LSTM与PI-LSTM在状态参数预测精度、趋势拟合度及异常检测敏感性方面的表现,证明了所提方法的有效性和优越性,为变压器等关键电力设备的智能运维提供了新的技术路径。; 适合人群:从事电力系统、智能电网、设备状态监测与故障诊断研究的科研人员、工程技术人员及高校研究生。; 使用场景及目标:①应用于新型电力系统中电力变压器的健康状态评估与预测性维护;②为掌握物理信息神经网络(PINN)在电力系统中的融合应用提供Matlab实践范例; 阅读建议:建议读者结合Matlab代码深入理解PI-LSTM的网络结构设计、物理约束项的数学表达与代码实现细节,并尝试在不同工况数据集上复现和测试,以充分掌握其在提高模型物理一致性与预测可靠性方面的核心优势。


VB基础类
