V
主页
批量更新数据 Access数据库系统功能讲解 VBA代码编程实例
发布人
Private Sub Command更新1_Click() '前端添加 If 修改字段 = "" Or IsNull(修改字段) = True Then MsgBox "修改字段值为空!" Exit Sub End If Dim search_rs As DAO.Recordset Dim search_sql As String search_sql = "Select * From 学生信息表" Set search_rs = CurrentDb.OpenRecordset(search_sql, dbOpenDynaset) Do While search_rs.EOF = False search_rs.Edit search_rs.Fields(Me.修改字段).Value = Me.前端添加 & search_rs.Fields(Me.修改字段).Value search_rs.Update search_rs.MoveNext Loop search_rs.Close Set search_rs = Nothing MsgBox "处理完成" End Sub Private Sub Command更新2_Click() '后端添加 If 修改字段 = "" Or IsNull(修改字段) = True Then MsgBox "修改字段值为空!" Exit Sub End If Dim search_rs As DAO.Recordset Dim search_sql As String search_sql = "Select * From 学生信息表" Set search_rs = CurrentDb.OpenRecordset(search_sql, dbOpenDynaset) Do While search_rs.EOF = False search_rs.Edit search_rs.Fields(Me.修改字段).Value = search_rs.Fields(Me.修改字段).Value & Me.后端添加 search_rs.Update search_rs.MoveNext Loop search_rs.Close Set search_rs = Nothing MsgBox "处理完成" End Sub Private Sub Command更新3_Click() '全部替换 If 修改字段 = "" Or IsNull(修改字段) = True Then MsgBox "修改字段值为空!" Exit Sub End If Dim search_rs As DAO.Recordset Dim search_sql As String search_sql = "Select * From 学生信息表" Set search_rs = CurrentDb.OpenRecordset(search_sql, dbOpenDynaset) Do While search_rs.EOF = False search_rs.Edit search_rs.Fields(Me.修改字段).Value = Me.全部替换 search_rs.Update search_rs.MoveNext Loop search_rs.Close Set search_rs = Nothing MsgBox "处理完成" End Sub Private Sub Command更新4_Click() '查找替换 If 修改字段 = "" Or IsNull(修改字段) = True Then MsgBox "修改字段值为空!" Exit Sub End If Dim search_rs As DAO.Recordset Dim search_sql As String search_sql = "Select * From 学生信息表" Set search_rs = CurrentDb.OpenRecordset(search_sql, dbOpenDynaset) Dim a1 As String Do While search_rs.EOF = False search_rs.Edit a1 = search_rs.Fields(Me.修改字段).Value search_rs.Fields(Me.修改字段).Value = Replace(a1, Me.查找值, Me.替换值) search_rs.Update search_rs.MoveNext Loop search_rs.Close Set search_rs = Nothing MsgBox "处理完成" End Sub
打开封面
下载高清视频
观看高清视频
视频下载器
Access数据库系统局域网共享多用户使用
【人事管理信息系统】-Access数据库系统设计制作实例
【进销存出入库管理系统】(局域网版本 支持多用户使用)-Access数据库系统设计制作实例
设备使用管理 Access数据库功能模块讲解 VBA代码实例
操作查询更新数据 Access数据库功能模块讲解 宏教程
【零基础小白制作Access数据库系统教程】个人信息管理系统数据库制作过程录制
【收入支出记账程序】-Access数据库系统设计制作实例 账户项目收入支出收支统计记账管理
【唐诗学习信息系统】-Access数据库系统设计制作实例
使用分割窗体管理数据 Access数据库系统功能模块讲解 VBA代码实例
【学生管理系统】-Access数据库系统设计制作实例(仅使用宏制作)
【班级班费管理系统】-Access数据库系统设计制作实例
【超市进销存管理系统】-基本功能操作演示 Access数据库设计制作实例
TreeView控件 树形目录 Access数据库系统功能模块讲解 VBA代码
【会员管理系统】(局域网版本)-Access数据库系统二次开发实例
【学校教学管理系统】Access数据库设计制作实例
【机票订票信息系统】-Access数据库系统设计制作实例
【Access应用实例】自定义显示或隐藏数据表字段列
【学生选课成绩管理系统】-Access数据库设计制作实例
【学校运动会信息系统】-Access数据库系统设计制作实例
【停车场管理系统】-Access数据库系统设计制作实例
【邮局订报管理系统】-Access数据库系统设计制作实例 设计报告资料 源文件 VBA代码
【库存管理系统】无需编程,零代码开发 Excel前端+Access数据库后端 开发模版,二次开发
if语句判断常用功能 Access数据库系统功能讲解 VBA代码编程实例
【Access数据库VBA实例】—客户资料管理系统(升级版)
【股票管理系统】(股票模拟选股,收益率统计,自选股管理,股票监控预警)-Access数据库系统设计制作实例
【小区物业收费管理系统】(宏版本)-Access数据库系统设计制作实例
【合同管理系统】(支持局域网)项目合同收款发票-Access数据库系统设计制作实例
【学生请假管理系统】-Access数据库系统设计制作实例
引用外部链接图片 Access数据库系统功能讲解VBA代码编程实例
学生信息管理系统 数据库制作要求和代码解析 Access数据库设计实例
【问卷调查管理程序】(制作讲解)-Access数据库系统设计制作实例 制作过程录制 VBA代码编程
【超市会员积分管理系统】-Access数据库系统设计制作实例 功能介绍 设计资料 系统讲解
【学习笔记管理系统】-Access数据库系统设计制作实例
【工作计划管理程序】-Access数据库系统设计制作实例
【accesss数据库】英语单词学习系统制作:单词和词义学习功能
根据模板生成word文档并填充数据 Access数据库系统功能模块讲解 VBA代码实例
【固定资产管理系统】-Access数据库系统设计制作实例
【仓储管理系统】(单机版)-Access数据库系统制作教程 数据库文件 开源 VBA代码 编程教学
【院校专业信息管理系统】-Access数据库系统设计制作实例
【餐饮店点餐订单管理系统】-Access数据库系统设计制作实例