Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/15.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vba 根据在另一个子窗体中的选择打开子窗体中的记录_Vba_Filter_Ms Access 2013_Subform - Fatal编程技术网

Vba 根据在另一个子窗体中的选择打开子窗体中的记录

Vba 根据在另一个子窗体中的选择打开子窗体中的记录,vba,filter,ms-access-2013,subform,Vba,Filter,Ms Access 2013,Subform,这是我的第一篇帖子,但经常浏览这个网站来解决问题。不幸的是,我还没能为我目前的发展提出一个解决方案。我正在使用不同类型的设置处理任务列表。主要形式是多用户一站式服务 有两张桌子 团队 -ID(自动编号) -名字(文本) -姓氏(文本) -全名(计算) 任务 -ID(自动编号) -任务(短文本) -说明(长文本) -开始日期(短日期) -分配给(查找到全名) -Etc(其他字段) 主菜单(主窗体)设置为绑定到团队表。使用下拉字段选择团队成员。该表单有两个子表单(CurrentTaskSub和New

这是我的第一篇帖子,但经常浏览这个网站来解决问题。不幸的是,我还没能为我目前的发展提出一个解决方案。我正在使用不同类型的设置处理任务列表。主要形式是多用户一站式服务

有两张桌子

团队 -ID(自动编号) -名字(文本) -姓氏(文本) -全名(计算)

任务 -ID(自动编号) -任务(短文本) -说明(长文本) -开始日期(短日期) -分配给(查找到全名) -Etc(其他字段)

主菜单(主窗体)设置为绑定到团队表。使用下拉字段选择团队成员。该表单有两个子表单(CurrentTaskSub和NewTaskSub)。这两个子窗体都绑定到任务。CurrentTaskSub是从任务查询中创建的,其中任务未完成且超过开始日期。NewTaskSub是任务表的直接形式

选择名称后,它将使用父/子关系将CurrentTaskSub筛选为分配给该团队成员的任务。那部分有效

我想做的是,当您从CurrentTaskSub中选择一个任务时,它将填充到NewTaskSub中,以查看有关该任务的所有信息,并对其进行更改或更新。然后,当在NewTaskSub中保存更改时,无论是完成任务、更新任务还是创建新任务,它都会刷新这两个子窗体

以下是我的尝试:

在CurrentTaskSub子窗体上,我选择task字段并设置单击它将执行VBA代码

我尝试过的许多代码的当前代码是:

表格!主菜单![NewTaskSub].Form.Filter=“[Task]=”&Me.Task 形式!主菜单![NewTaskSub].Form.FilterOn=True

'带有表单(NewTaskSub).记录集 '对该记录集运行findfirst 'NewTaskSub.FindFirst“[Task]=”&Me.Task '如果未找到项目,则发出警告 '如果是NewTaskSub.NoMatch,则MsgBox Me.Task&'未找到' "以


这两种方法都会产生调试错误。我认为我在正确的轨道上,但似乎可以找到我所希望的解决办法。任何帮助或建议都将不胜感激。谢谢。

好的,在继续测试之后,我已经解决了这个问题

这是一个小问题,不需要我做很多尝试

不过,我把这个留给其他可能有类似问题的人

我必须使用过滤器并添加一个重新查询,因此对于此实例,代码如下所示:

Me.Parent.Form.NewTaskSub.Form.Filter = "[ID]= " & Me.ID
Me.Parent.Form.NewTaskSub.Form.FilterOn = True
Me.Parent.Controls!NewTaskSub.Form.Requery