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

jinzhanxi

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

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

jinzhanxi

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

看到了。谢了

lastmem

已经做了更新查询，能用就拿去，不能用自己修改一下

jinzhanxi

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

谢谢！

lastmem

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

jinzhanxi

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

jinzhanxi

这会就能明白点了……谢谢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 发表于 2011-8-26 10:54
不会吧？你居然把搞了31个字段？
这个玩意用更新查询将31字段的值替换成null即可，也可用ado记录集来做 ...

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

最好能给实例，谢谢！

todaynew

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

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