Access分享--用代码实现更新序号与计数ADO与DAO-杜小杰
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> 源码示例


Access分享--用代码实现更新序号与计数ADO与DAO

发表时间:2016/6/27 9:04:07 评论(4) 浏览(8349)  评论 | 加入收藏 | 复制
   
摘 要:帮爱好者做的小示例,如下图
正 文:

点击下载此附件



Private Sub 更新计数_Click()
    Dim rst As Object

    Set rst = CurrentDb.OpenRecordset("更新计数", dbOpenDynaset)
         rst.MoveFirst
  
    Do Until rst.EOF
        rst.Edit
        rst!计数 = DCount("*", "更新计数", "DKH='" & rst!dkh & "'")
        rst.Update
        rst.MoveNext
    Loop
    rst.Close
    Set rst = Nothing
    DoCmd.OpenTable "更新计数"

End Sub

Private Sub 清空计数_Click()
    CurrentDb.Execute "update 更新计数 set 计数=null"
    DoCmd.OpenTable "更新计数"
End Sub


Private Sub 更新序号_Click()
    Dim rst As Object
    Dim strSQL As String
    Dim i As Integer
    strSQL = "select * from 更新序号 order by 面积"
    Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
        rst.MoveFirst
    Do Until rst.EOF
        rst.Edit
        rst!序号 = i + 1
        i = rst!序号
        rst.Update
        rst.MoveNext
    Loop
    rst.Close
    Set rst = Nothing
    DoCmd.OpenTable "更新序号"

End Sub


Private Sub 清空序号_Click()
    CurrentDb.Execute "update 更新序号 set 序号=null"
    DoCmd.OpenTable "更新序号"
End Sub



Access软件网交流QQ群(群号:198465573)
 
 相关文章
[access查询]如何自定义排序规则?以上午/下午/晚上三个字段...  【何必见戴  2011/12/29】
成绩名次排序示例\按成绩排名  【风行  2012/1/14】
[access查询]利用IIF、Switch函数创建自定义排序次序  【网行者  2012/5/4】
【Access文章】数据表窗体如何排序  【缪炜  2015/8/21】
如何对字段中的数字定位和排序?  【智狼  2016/1/23】
常见问答
技术分类
相关资源
文章搜索
关于作者

杜小杰

文章分类

文章存档

友情链接