A2019:如何为未绑定日期控件(如绑定日期控件)获取表单中的上下文菜单

A2019: how to get a context menu in a form for an unbound date control like for bound date controls

我不确定如何为未绑定表单的控件获得与绑定控件相同的上下文菜单,两者都具有日期值。

有两个未绑定的控件通过以下方式获取它们的控件值:

txtErsteSpende:

=Wenn([spSurrKey]>0;DomMin("[zaZahlDatum]";"[tblZahlungen]";"[zaSP_FKEY] = " & [Formulare]![frm110_Spender]![spSurrKey]);Null)

txtLetzteSpende:

=Wenn([spSurrKey]>0;DomMax("[zaZahlDatum]";"[tblZahlungen]";"[zaSP_FKEY] = " & [Formulare]![frm110_Spender]![spSurrKey]);Null)

抱歉,这些是德语的例子:“wenn”的意思是“iif”。似乎绑定控件允许上下文菜单但不适用于未绑定控件。

或者是否有一种技术无需编写 vba 代码即可允许两种控件使用相同的上下文菜单?

任何建议表示赞赏 谢谢

Contextmenu filter a date - bound control Contextmenu filter a date - unbound control

目标是:

  • 更新表格table
  • 显示两个文本框的日期上下文菜单

在尝试使用不是 practable 的子表单后,因为表单显示在数据 sheet 视图中,我找到了这个解决方案:

qry110:

SELECT tblSpender.spID, tblSpender.spNachname, tblSpender.spVorname, tblSpender.spOrt, tblSpender.spGebdat, DMin("[zaZahlungsdatum]","[tblZahlungen]","[zaSPFKEY] = " & Nz([tblSpender].[spID],0)) AS datErsteSpende, DMax("[zaZahlungsdatum]","[tblZahlungen]","[zaSPFKEY] = " & Nz([tblSpender].[spID],0)) AS datLetzteSpende
FROM tblSpender;

=> 工作正常,但在 table tblZahlungen 中没有条目(没有外键)用于 tblSpender

中的主键时,在表单的文本框中显示#Error

所以我基于第一个检查 NULL 值的 qry110 创建了第二个查询作为 frm110 的记录源:

qry111:

SELECT qry110_Spender.spID, qry110_Spender.spNachname, qry110_Spender.spVorname, qry110_Spender.spOrt, qry110_Spender.spGebdat, IIf(Nz([datErsteSpende],0)>0,DateValue([datErsteSpende]),Null) AS datumErsteSpende, IIf(Nz([datLetzteSpende],0)>0,DateValue([datLetzteSpende]),Null) AS datumLetzteSpende
FROM qry110_Spender;

有效,现在表单的记录集已更新table。 也许该表单对于大数据不是很有效,但它对我的用户

来说是可以接受的table

谢谢你的提示

contextmenu for date textboxes