代码之家 › 专栏 › 技术社区 › Summer044

Access/VB自定义导航按钮-按日期转到下一个/上一个

ms-access-forms ms-access-2010 navigation ms-access vba

Summer044 · 技术社区 · 7 年前

我有一个表格,我们的主管每天用它按生产线输入他们的班次。我的子窗体(基于查询)按日期显示所有输入的班次(我有一个搜索框,您可以在其中选择日期)。
我的导航按钮(目前只是通过宏运行,用于转到第一个、下一个、最后一个)执行它们应该执行的操作,即移动到下一个/上一个记录,但我想知道是否有一种方法可以对我的按钮进行编码,按日期移动到下一组记录,而不是只移动到当前日期内的下一个记录?

例如,当我在“日期搜索”框中搜索2017年9月28日时,我的子窗体将填充该日期的57条记录。我当前的下一个(&M);之前的按钮只需在该日期的每条记录上逐个移动,然后再移动到下一个日期(当然,这是宏告诉它要做的!)。我希望能够打下一个,并让它跳到2017年9月29日。不确定这在宏中是否可行,但可能在一些VB代码中?

我正在使用Access 2010/VB。我的单个表单将数据保存到单个表中。我的子窗体从查询中提取并显示在数据表视图中。表单名称-ShiftRecord2。子窗体-ShiftProdRecords2\u Query\u子窗体。子窗体当前由ShiftDate填充。我的主窗体和子窗体通过ShiftDate的主/子字段链接。

我不知道你需要看到我这方面的什么才能提供帮助。我感谢所有帮助/提示/建议/教程/链接!

编辑以添加: 我的子窗体上的当前筛选器字段如下所示:

[ShiftDate] Like "*" & [Forms]![ShiftRecord2]![txtSearchDate] & "*"

2 回复 | 直到 4 年前

Gustav 7 年前

我的主窗体和子窗体通过换档日期。

然后:

我的子窗体上的当前筛选器字段如下所示:

[ShiftDate] Like "*" & [Forms]![ShiftRecord2]![txtSearchDate] & "*"

如果是这样, 去除过滤并使用Erik的想法制作按钮,然后过滤 父母亲 形式:

Me!txtSearchDate.Value = DateAdd("d", -1, Me!txtSearchDate.Value)
Me.Filter = "ShiftDate = #" & Format(Me!txtSearchDate.Value, "yyyy\/mm\/dd") & "#"
Me.FilterOn = True

以及:

Me!txtSearchDate.Value = DateAdd("d", 1, Me!txtSearchDate.Value)
Me.Filter = "ShiftDate = #" & Format(Me!txtSearchDate.Value, "yyyy\/mm\/dd") & "#"
Me.FilterOn = True

无需重新询问。主/子链接将自动重新查询子窗体。

Erik A 7 年前

您可以尝试以下操作:

下一步:

Me.txtSearchDate = DateAdd("d",1, Me.txtSearchDate,)
Me.mySubformName.Requery

上一个:

Me.txtSearchDate = DateAdd("d", -1, Me.txtSearchDate)
Me.mySubformName.Requery

推荐文章

Kram Kramer · 通过vba自动调整文本大小以适应形状

4 月前

Swapnil Supekar · 将二维阵列转换为一维阵列,并将一维阵列粘贴到另一张图纸上

4 月前

Eric · 我有邮政编码替换问题Excel VBA

4 月前

Chasester · VBA使用嵌套的DIV抓取URL

4 月前

jkp · 特殊字符复选标记

4 月前

Iron Man · 代码插入和复制到错误的工作表

4 月前

NoFafo · 将文本框放入数组进行格式化

4 月前

Smokestack · 过滤器范围C3:G3并粘贴到其他单元格

4 月前

Julie S. · Excel VBA for循环的代码帮助,用于检查多个ListBoxes是否有值?

4 月前

Kram Kramer · 如何通过vba代码将Chart xAxes字体颜色从黑色更改为红色?

5 月前