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

生成记录集读取、写入、及输入框清空代玛的函数

时 间:2017-08-07 08:16:05
作 者:MDZZ   ID:47512  城市:南京
摘 要:用于生成基于表或查询的记录集读取、写入,及输入框清空代码,减少写代码时的工作量的函数
正 文:

给大家分享个用于生成基于表或查询的记录集读取、写入,及输入框清空代码,减少写代码时的工作量的函数


'用于生成基于表或查询的记录集读取、写入,及输入框清空代码,减少写代码时的工作量,如:
'Me.fld1 = rst!fld1     '读取
'rst!fld1 = Me.fld1     '写入
'Me.fld1 = Null         '清空
'生成的代码会输出到立即窗口,如看不到立即窗口请按Ctrl+G,将立即窗口中的代码复制粘贴到对应的新增、修改窗体模块中即可
'立即窗口输入:?GetCode ("表1") 然后回车.或者GetCode "查询1",acQuery 然后回车


Function GetCode(TableName, Optional ObjectType As AcObjectType = acTable) As String
    Dim fld As Object 'DAO.Field
    Dim tdf As Object 'DAO.TableDef
    Dim dbs As Object 'DAO.Database
    
    Set dbs = CurrentDb
    If ObjectType = acTable Then
        Set tdf = dbs.TableDefs(TableName)
    Else
        Set tdf = dbs.QueryDefs(TableName)
    End If
    For Each fld In tdf.Fields
        Debug.Print "Me!" & fld.Name & "=rst!" & fld.Name
    Next

    For Each fld In tdf.Fields
        Debug.Print "rstTmp!" & fld.Name & "=rst!" & fld.Name
    Next

    For Each fld In tdf.Fields
        Debug.Print "Me." & fld.Name & "=Null"
    Next
    Set dbs = Nothing
    Set tdf = Nothing
    Set fld = Nothing
End Function





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

常见问答:

技术分类:

相关资源:

专栏作家

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