Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > 源码示例

【Access源码示例】用代码删除字段名,用代码批量删除表中字段名

时 间:2018-02-03 10:43:16
作 者:麥田   ID:11  城市:上海  QQ:3002789054点击这里给麥田发消息
摘 要:【Access源码示例】用代码删除字段名,用代码批量删除表中字段名
正 文:

【网友问题】∑村里×來滴(107191344) 14:54:28
请教一下:表中有很多字段,不固定,我想删除“ABC”及“DEF”以外的所有字段,这个Select的语句要怎么写啊。

Accessoft-麥田(3002789054)  15:02:12

Private Sub Cmd_All_Click()
    Dim colFields As New Collection
    '循环取得所有要删除的字段名,并保存到集合变量中
    Dim dbs As Object: Set dbs = CurrentDb
    Dim fld As Object
    For Each fld In dbs.TableDefs("员工表").Fields
        Select Case fld.Name
        Case "姓名", "性别"    '要排除不删除的字段
        Case Else: colFields.Add fld.Name
        End Select
    Next
    '删除字段
    Dim varItem As Variant
    For Each varItem In colFields
        CurrentDb.TableDefs("员工表").Fields.Delete CStr(varItem)
    Next
    MsgBox "已删除表中除“姓名”、“性别”字段外所有所有其他字段!"
End Sub

附   件:
点击下载此附件

演   示:



Access软件网QQ交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

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