有网友发贴求助:
主窗体、子窗体如何共用一个删除按钮?
随风 等级: 普通会员 ( △ ) 积分:2 城市:东莞 发表于:2013-12-11 11:31:15
http://www.accessoft.com/bbs/showtopic.asp?id=20367
主窗体、子窗体如何共用一个删除按钮?
当光标在主窗体时,按’删除‘按钮是删除整张单,
当光标在子窗体时,按’删除‘按钮是删除子窗体数据选中项。
本示例是通过判断上次获得焦点控名称是否为子窗体控件名来实现
具体看示例:
点击下载此附件
Private Sub 删除记录_Click()
Dim ctl As Control
Set ctl = Screen.PreviousControl '返回对上次获得焦点的控件的引用
If ctl.Name = "子窗体" Then
strsql = "Delete * FROM 合约细项 Where IID=Forms!FrmOpen!子窗体.Form!IID;"
DoCmd.SetWarnings False ' 取消系统提示
DoCmd.RunSQL strsql ' 运行查询
DoCmd.SetWarnings True ' 恢复系统提示
Me.子窗体.Requery
Me.子窗体.SetFocus
MsgBox "成功删除子窗体记录."
Else
strsql = "Delete * FROM 合约 Where BID_NO=Forms!FrmOpen!BID_NO;"
DoCmd.SetWarnings False ' 取消系统提示
DoCmd.RunSQL strsql ' 运行查询
DoCmd.SetWarnings True ' 恢复系统提示
Me.Requery
MsgBox "成功删除主窗体记录."
End If
End Sub
|