我做了一个追加查询,(如下内容)存在一些问题:
一是就是未追加数据,也会弹出对话框“数据上报成功”;
二是不再显示“追加的记录数”
请老师指导:
如何实现:
1、未追加数据,不弹出对话框“数据上报成功”;
2、如果追加,用VBA代码,表示追加记录的条数。
Private Sub 命令0_Click()
Dim intSelect As Integer
intSelect = MsgBox("请再次检查“就业中心版”的位置名称" + Chr(13) + Chr(13) + " D:\社保补贴\SBBT.MDB" + Chr(13) + Chr(13) + "你确实要上报数据?", vbYesNo + vbQuestion, "提示")
If intSelect = vbYes Then
DoCmd.SetWarnings False
DoCmd.OpenQuery "上报享受对象"
DoCmd.OpenQuery "上报补贴金额"
DoCmd.SetWarnings True
intSelect = MsgBox("数据上报成功!", vbExclamation, "提示")
DoCmd.Close
End If
End Sub
[此贴子已经被作者于2005-12-5 16:26:25编辑过]
|