通过VBA实现MDB转换为MDE,下面就是自定义的MDB转换为MDE函数
'***********************************************
'函数功能:MDB转MDE自定义函数
'函数变量:DestinationFile字符串变量,目的文件
' SourceFile字符串变量,源文件
' AccApp应用程序对象变量
'应用实例:MakeMDE "C:\a.mdb", "C:\b.mde"
'***********************************************
Public Function MakeMDE(SourceFile As String, _
DestinationFile As String, _
Optional AccApp As Application) As Boolean
Set AccApp = New Access.Application
AccApp.SysCmd 603, SourceFile, DestinationFile
Set AccApp = Nothing
End Function
演示实例下载:点击下载此附件