Office中国论坛/Access中国论坛

标题: 请版主帮我：关于追加查询有些问题！！ [打印本页]

作者: yttzm 时间: 2005-12-6 00:25
标题: 请版主帮我：关于追加查询有些问题！！
我做了一个追加查询，（如下内容）存在一些问题：

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

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

请老师指导：

如何实现：

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

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

作者: 方漠 时间: 2005-12-6 04:56
数据库呢？这样叫人怎么帮你改？？？

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

作者: yttzm 时间: 2005-12-6 06:19
标题: 关于追加问题，请老师帮忙改一下！
[attach]14591[/attach]

我已经传上！

请老师帮忙改一下！

作者: 一点通 时间: 2005-12-6 07:15
请将例子简化后再上传,别人不会安装你的程序来帮你的,与问题不相关的东西全部删除就行了

作者: wuaza 时间: 2005-12-6 20:57
SQL SERVER中有个全局变量@@rowcount，用于统计操作查询的影响记录数。

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)