【Access示例】批量修改外部Access文件中表的字段名
时 间:2018-10-26 15:11:39
作 者:缪炜 ID:24010 城市:江阴
摘 要:假设有一些Access文件,这些Access中都有相同的表名,但需要批量将这些表都改成统一的名称,示例如下:
正 文:
主要代码:
Dim db As Object 'DAO.Database Dim tdf As Object ' DAO.TableDef Dim varItem As Variant If IsNull(Me.修改后) Then MsgBox "修改后不能为空,请输入修改后名称。", vbExclamation Me.修改后.SetFocus Exit Sub End If If IsNull(Me.修改前) Then MsgBox "修改前不能为空,请输入修改前名称。", vbExclamation Me.修改前.SetFocus Exit Sub End If For Each varItem In Me.lst_文件.ItemsSelected ' Debug.Print Me.lst_文件.Column(0, varItem) Set db = DBEngine(0).OpenDatabase(Me.txt_文件 & "\" & Me.lst_文件.Column(0, varItem)) Set tdf = db.TableDefs("示例表") tdf.Fields(Me.修改前).Name = Me.修改后 Next MsgBox "修改成功。", vbInformation
附件下载:
演 示:
Access软件网QQ交流群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
学习心得
最新文章
- 【Access表名称命名建议】将A...(04.20)
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)
- 【Access模块示例】通过模块代...(04.15)
- Access查询里面分组合计功能添...(04.13)
- 【Access删除查询】删除数字最...(04.12)
- 显示文件夹中所有文件的修改时间(04.11)
- 铁路工程管理系统;铁路工程管理小程...(04.10)
- 【Access查询示例】怎么将两个...(04.09)