Access VBA教程:MDE属性

使用 MDE属性可以确定数据库是否已保存为 .mde 文件。

注意   该属性只应用于Microsoft Access 数据库 (.mdb)。

设置

当数据库保存为 .mde 文件时,Microsoft Access 将在数据库中添加 MDE属性,并将它设为String 型值“T”。

MDE属性仅在使用Visual Basic 时才可用,并且在所有视图中都是只读的。

重要事项   试图确定一个没有保存为 .mde 文件的数据库的 MDE属性,将产生运行时错误 3270(找不到属性)。在数据库保存为 .mde 文件之前,数据库中不存在 MDE属性。

说明

指向“工具”菜单的“数据库实用工具”,并单击“生成 MDE 文件”,可以将数据库转换为 .mde 文件。当数据库保存为 .mde 文件时,Microsoft Access 将删除所有可编辑的源代码,编译所有的模块并压缩数据库。Visual Basic 代码在以后仍然能运行,但不能查看或更改。此外,还不能对其中的窗体或报表对象进行添加或更改。

警告   一定要保留原始数据库的备份。如果需要在 .mde 数据库中更改任何代码或对象的设计,必须在原始数据库中进行,然后新建 .mde 数据库。因为不能直接转换 .mde 文件,所以在将数据库转换为新版本的 Microsoft Access 时也需要用到原始数据库。

如果要避免窗体或报表被更改,或对数据库用户隐藏 Visual Basic 代码,则最好将数据库保存为 .mde 文件。对自己创建的向导,或对前端/后端应用程序的前端部分,也可以将数据库转换为 .mde 文件。

数据库副本不能保存为 .mde 文件;但如果数据库保存为 .mde 文件,可以进行同步复制。

示例

下面的示例使用 IsItMDE函数来检查当前的数据库的 MDE属性:


Dim dbs As Object
Set dbs = CurrentDb
If IsItMDE(dbs) <> True Then
    ' Process custom database code.
End If
Function IsItMDE(dbs as Object) As Boolean
    Dim strMDE As String
    On Error Resume Next
    strMDE = dbs.Properties("MDE")
    If Err = 0 AND strMDE = "T" Then
        ' This is an MDE database.
        IsItMDE = True
    Else
        IsITMDE = False
    End if
End Function

上页:Access VBA教程:MaxRecords属性 下页:Access VBA教程:Me属性

Access VBA教程:MDE属性

Access VBA教程:Me属性 Access VBA教程:MenuBar属性
Access VBA教程:MinMaxButtons属性 Access VBA教程:Minor属性
Access VBA教程:Modal属性 Access VBA教程:Module属性
Access VBA教程:Modules属性 Access VBA教程:MousePointer属性
Access VBA教程:MouseWheel属性 Access VBA教程:Moveable属性
Access VBA教程:MoveLayout属性 Access VBA教程:MSODSC属性
Access VBA教程:MultiRow属性 Access VBA教程:MultiSelect属性
Access VBA教程:Name属性 Access VBA教程:NavigationButtons属性
Access VBA教程:NewFileTaskPane属性 Access VBA教程:NewRecord属性
Access VBA教程:NewRowOrCol属性 Access VBA教程:NewValues属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号