| 标题 | 在Access获取程序所在的目录及全名 |
| 内容 | 在Access编程中，经常会需要获取程序所在的目录及全名，下列的各种方法可实现这个功能。 不过，需注意 CurrentProject及CodeProject不适合Access97及以前的版本。 另外，需注意 CurrentProject及CodeProject的区别 一般情况下，如果你的MDB或ADP只使用一个文件，两者指同一个对象。但如果你的MDB引用了另一个MDE文件。且这段代码是在MDE里执行的话，则currentproject指你的第一个MDB，codeproject 指的是你引用的MDE文件。这种特性用在多模块，通用模块开方中非常好，我将其用于企业管理系统的开发当中，这样，可使用多个MDE文件来分开实现不同的功能，而各个MDE又可组合成一个强大的系统（如ERP）。 ? CurrentProject.FullName D:frontaccesstmtonyAboutPath.mdb ? CurrentProject.Name tmtonyAboutPath.mdb ?CurrentProject.Path D:frontaccess ?Currentdb.Name D:frontaccesstmtonyAboutPath.mdb ?Codeproject.Name tmtonyAboutPath.mdb ? CodeProject.FullName D:frontaccesstmtonyAboutPath.mdb ? CodeProject.path D:frontaccess 读取各个对象的名称 Dim obj As AccessObject For Each obj In CurrentProject.AllDataAccessPages Debug.Print obj.Name Next obj For Each obj In CurrentProject.AllForms Debug.Print obj.Name Next obj For Each obj In CurrentProject.AllMacros Debug.Print obj.Name Next obj For Each obj In CurrentProject.AllModules Debug.Print obj.Name Next obj For Each obj In CurrentProject.AllReports Debug.Print obj.Name Next obj |
| 随便看 |
|
在线学习网考试资料包含高考、自考、专升本考试、人事考试、公务员考试、大学生村官考试、特岗教师招聘考试、事业单位招聘考试、企业人才招聘、银行招聘、教师招聘、农村信用社招聘、各类资格证书考试等各类考试资料。