【Access示例】批量修改外部Access文件中表的字段名-缪炜
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-窗体/数据页


【Access示例】批量修改外部Access文件中表的字段名

发表时间:2018/10/26 15:11:39 评论(1) 浏览(566)  评论 | 加入收藏 | 复制
   
摘 要:假设有一些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群(群号:198465573)
 
 相关文章
[access报表]怎样打开外部数据库中的报表  【朱亦文(译)   2004/11/11】
[access报表]打开外部数据库中的报表  【竹笛  2007/10/18】
用VBA代码删除外部数据库的表  【放飞梦想  2007/10/26】
[access查询]快速获取外部文件对象名的简单方法  【叶雨欣的爸爸  2009/1/9】
[access查询]用SQL语句来获取外部带密码MDB文件的语法  【叶雨欣的爸爸   2009/1/12】
【Access示例】获取外部数据库名与表名  【缪炜  2014/5/16】
【Access示例】获取外部数据库的表中的数据  【缪炜  2014/5/30】
 
 访客评论
2018/10/26麥田

总记录:1篇  页次:1/1 9 1 :
 
 发表评论
评论内容 (必填)

常见问答
技术分类
相关资源
文章搜索
关于作者

缪炜

文章分类

文章存档

友情链接