Access怎样在模块中对窗体上的子窗体进行 *** 作?

Access怎样在模块中对窗体上的子窗体进行 *** 作?,第1张

可以啊,access窗体做起来其实很漂亮,access就是用子窗体去查询数据表,datagrid控件还要注册下载,直接把子窗体控件拉到窗体上,向导取消,右健点击,删除他的连接字段,数据源直接选表的名字或者查询的名称。在查询里条件指向窗体控件,格式是=froms!窗体名称!文本框名称。然后记住要刷新主窗体才能更新数据表查询,这就类似与加载动作,直接拖一个刷新按钮在窗体上,再拖一个文本框给个名字,查询条件就指向这个文本框,最后把主窗体随便设置一个数据源,因为刷新窗体动作必须要窗体有记录集,把按钮上面的字改成加载,然后你在文本框里输条件,按下加载,子窗体表格就会出现你想要的结果了

主窗体:

1)放一个日期文本框,设其名称为TxtDate,用于手动选择日期,将TxtDate设为子窗体的链接主字段

2)放两个按钮,全选和反选

子窗体(jz):

1)jbxib表应有字段ID(自动编号)、姓名、身份z号、是否缴费、缴费日期

2)将缴费日期字段设为链接子字段

全选按钮动作代码:

docmd.runsql "UPDATE jbxib SET 是否缴费 = TRUE WHERE 缴费日期 = #" &me.TxtDate.value &"# "

me.jz.requery

反选按钮动作代码:

docmd.runsql "UPDATE jbxib SET 是否缴费 = NOT(是否缴费) WHERE 缴费日期 = #" &me.TxtDate.value &"# "

me.jz.requery

主窗体发生插入、更新和删除记录后,刷新子窗体即可:请为主窗体编写下列事件过程:<pre t="code" l="vb">Private Sub Form_AfterInsert()

Me![子窗体名].Requery

End Sub

Private Sub Form_AfterUpdate()

Me![子窗体名].Requery

End Sub

Private Sub Form_AfterDelConfirm(Status As Integer)

Me![子窗体名].Requery

End Sub


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/sjk/9629849.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-04-30
下一篇 2023-04-30

发表评论

登录后才能评论

评论列表(0条)

保存