Office中国论坛/Access中国论坛

标题: 如何实现数据清零或者初始化？ [打印本页]

作者: jinzhanxi 时间: 2011-8-26 10:22
标题: 如何实现数据清零或者初始化？
本帖最后由 jinzhanxi 于 2011-8-26 10:23 编辑

表格中ID是自动编号，其他数据都是填写的，想实现一个操作，点击后把除ID意外的数据都清空，或者定义初始数据为空，实现初始化功能。

我知道这个表格还是EXCEL思维，我只是举个例子。

[attach]46512[/attach]

作者: todaynew 时间: 2011-8-26 10:35
删除查询即可

作者: jinzhanxi 时间: 2011-8-26 10:42

todaynew 发表于 2011-8-26 10:35
删除查询即可

不是这个意思，我是想把这个作为一个月度的表格每日填写，每月1日清空再填写，查询、报表啥的都还保存，就是数据清空重新输入。

作者: todaynew 时间: 2011-8-26 10:45
本帖最后由 todaynew 于 2011-8-26 10:46 编辑

jinzhanxi 发表于 2011-8-26 10:42
不是这个意思，我是想把这个作为一个月度的表格每日填写，每月1日清空再填写，查询、报表啥的都还保存，就 ...

没让你不保留，按一定条件删除某些表中的数据而已：

currentdb.execute "delete * from tbname where ......."

作者: jinzhanxi 时间: 2011-8-26 10:49

todaynew 发表于 2011-8-26 10:45
没让你不保留，按一定条件删除某些表中的数据而已：

currentdb.execute "delete * from tbname wher ...

新手，不是太懂，是把
currentdb.execute "delete * from tbname where .......
作为一个模块吗？
还是怎么操作？
能不能给我那里面添加下，我照着样子学习的能力还行，直接学语言编程啥的很菜

作者: todaynew 时间: 2011-8-26 10:54

jinzhanxi 发表于 2011-8-26 10:49
新手，不是太懂，是把
currentdb.execute "delete * from tbname where .......
作为一个模块吗？

不会吧？你居然把搞了31个字段？

这个玩意用更新查询将31字段的值替换成null即可，也可用ado记录集来做循环替换。

作者: jinzhanxi 时间: 2011-8-26 11:03

todaynew 发表于 2011-8-26 10:54
不会吧？你居然把搞了31个字段？
这个玩意用更新查询将31字段的值替换成null即可，也可用ado记录集来做 ...

额，越来越看不懂……
能不能再分析分析，我知道自己刚开始，啥也不会，希望todaynew老师指导习下啊

最好能给实例，谢谢！

作者: todaynew 时间: 2011-8-26 11:09
本帖最后由 todaynew 于 2011-8-26 11:11 编辑

jinzhanxi 发表于 2011-8-26 11:03
额，越来越看不懂……
能不能再分析分析，我知道自己刚开始，啥也不会，希望todaynew老师指导习下啊

Function setNull(tbname As String)
Dim rs As New ADODB.Recordset
Dim i As Long, j As Long
rs.Open tbname, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
For i = 1 To rs.RecordCount
For j = 1 To rs.Fields.Count - 1
rs.Fields(j).Value = Null
rs.Update
Next
rs.MoveNext
Next
rs.Close
Set rs = Nothing
End Function

[attach]46515[/attach]

作者: jinzhanxi 时间: 2011-8-26 11:11
这会就能明白点了……谢谢todaynew老师

作者: jinzhanxi 时间: 2011-8-26 11:13
能不能给我个邮箱，我把我这个全部的内容发给你一份，你帮忙看看？

作者: lastmem 时间: 2011-8-26 19:30
[attach]46517[/attach]

建立一个更新查询，把除ID外的所有数据更新为NULL即可

作者: jinzhanxi 时间: 2011-8-26 19:32

lastmem 发表于 2011-8-26 19:30
建立一个更新查询，把除ID外的所有数据更新为NULL即可

谢谢！

作者: lastmem 时间: 2011-8-26 19:35
已经做了更新查询，能用就拿去，不能用自己修改一下

作者: jinzhanxi 时间: 2011-8-27 08:27

lastmem 发表于 2011-8-26 19:35
已经做了更新查询，能用就拿去，不能用自己修改一下

看到了。谢了

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