如何实现数据清零或者初始化？

jinzhanxi

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

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

todaynew

删除查询即可

jinzhanxi

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

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

todaynew

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

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

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

jinzhanxi

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

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

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

todaynew

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

不会吧？你居然把搞了31个字段？
这个玩意用更新查询将31字段的值替换成null即可，也可用ado记录集来做循环替换。

jinzhanxi

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

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

最好能给实例，谢谢！

todaynew

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

jinzhanxi

这会就能明白点了……谢谢todaynew老师

jinzhanxi

能不能给我个邮箱，我把我这个全部的内容发给你一份，你帮忙看看？