请版主帮我：关于追加查询有些问题！！

yttzm

我做了一个追加查询，（如下内容）存在一些问题：

一是就是未追加数据，也会弹出对话框“数据上报成功”；

二是不再显示“追加的记录数”

请老师指导：

如何实现：

１、未追加数据，不弹出对话框“数据上报成功”；

２、如果追加，用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编辑过]

方漠

数据库呢？这样叫人怎么帮你改？？？

可以先获取欲追加表的记录数，再与追加过后比较，如果有变化，则表明有记录追加进来。至于条数，拿这两个变量相减就可以得出了。

yttzm

我已经传上！

请老师帮忙改一下！

一点通

请将例子简化后再上传,别人不会安装你的程序来帮你的,与问题不相关的东西全部删除就行了

wuaza

SQL SERVER中有个全局变量@@rowcount，用于统计操作查询的影响记录数。

这个在ADP中应该很好处理，做个触发器就行了。呵呵，我也是刚刚在学SQL Server。