Access数据库培训
网站公告
·Access快速平台QQ群号:277422564    ·Access快速开发平台下载地址及教程    ·欢迎添加微信交流账号:Accessoft7    ·如何快速搜索本站文章|示例|资料!    
您的位置: 首页 > 技术文章 > Access数据库-窗体/数据页

【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交流群 (群号:297018933)       access源码网店

最新评论 查看更多评论(1)

2018/10/26 16:58:23麥田

发表评论您的评论将提升作者分享的动力!快来评论一下吧!

用户名:
密 码:
内 容:
 

常见问答

技术分类

相关资源

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助