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
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)