Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

子主窗体数据修改前运行追加查询将被修改的数据追加到一表问题?

sunny  发表于:2009-07-23 09:25:11  
复制

点击下载此附件

 

 

 

 

Top
trynew 发表于:2009-07-23 11:21:41

点击下载此附件

就是在控件的更新前事件中执行一个追加查询。给你的追加查询增加了两个条件:当然你的追加查询要定义条件为等于子窗体当前记录了。



sunny 发表于:2009-07-23 12:03:36

选择否不撤消修改的复期怎么写?

 

Private Sub 采购复期_BeforeUpdate(Cancel As Integer)
If MsgBox("是否修改此复期?", vbYesNo + 32, "提示信息") = vbYes Then
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "采购复期更改查询"
    DoCmd.SetWarnings True

If MsgBox("是否修改此复期?", vbYesNo + 32, "提示信息") = vbno Then

                                         '选择否不撤消修改的复期怎么写?
 

End If

end if

End Sub



点燃一支烟 发表于:2009-07-23 12:09:27

Private Sub 采购复期_BeforeUpdate(Cancel As Integer)
If MsgBox("是否修改此复期?", vbYesNo + 32, "提示信息") = vbYes Then
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "采购复期更改查询"
    DoCmd.SetWarnings True

esle

’这里写你的否的情况下怎么办的事件过程,“什么都不干,退出过程的话”就写:

exit sub

end if

End Sub



点燃一支烟 发表于:2009-07-23 12:11:24
Else

sunny 发表于:2009-07-23 14:25:58
因为是子窗体吧,更改了就保存了,exit sub也没用

点燃一支烟 发表于:2009-07-23 15:14:03
Private Sub 采购复期_BeforeUpdate(Cancel As Integer)
If MsgBox("是否修改此复期?", vbYesNo + 32, "提示信息") = vbYes Then
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "采购复期更改查询"
    DoCmd.SetWarnings True
Else
Me.Undo
Exit Sub
End If
End Sub

总记录:6篇  页次:1/1 9 1 :