Office中国论坛/Access中国论坛

标题: 《通用查询 3.0》测试版本-----用不了 [打印本页]

作者: 笨笨虫 时间: 2003-11-25 05:01
标题: 《通用查询 3.0》测试版本-----用不了
xp+office2k

[attach]2557[/attach]

作者: binghuo123 时间: 2003-11-29 19:50
既然用不了，还说他干什么！

作者: 李啸林 时间: 2003-12-4 04:42
CurDir是Access的内置函数，出现这种问题，表明你的access有问题，也就是说包含有CurDir函数的dll没有找到，或未引用，并不是我程序的问题。

附：CurDir 函数

返回一个 Variant (String)，用来代表当前的路径。

语法

CurDir[(drive)]

可选的 drive 参数是一个字符串表达式，它指定一个存在的驱动器。如果没有指定驱动器，或 drive 是零长度字符串 ("")，则 CurDir 会返回当前驱动器的路径。

本示例使用 CurDir 函数来返回当前的路径。

' 在 Microsoft Windows：
' 假设 C 驱动器的当前路径为“C:\WINDOWS\SYSTEM”。
' 假设 D 驱动器的当前路径为“D:\EXCEL”。
' 假设 C 为当前的驱动器。
Dim MyPath
MyPath = CurDir ' 返回“C:\WINDOWS\SYSTEM”。
MyPath = CurDir("C") ' 返回“C:\WINDOWS\SYSTEM”。
MyPath = CurDir("D") ' 返回“D:\EXCEL”。

' 在 Macintosh：
' 驱动器代号（字母）会被忽略，只返回当前驱动器的路径。
' 假设 HD 驱动器的当前路径为“HD:MY FOLDER”。
' 假设 HD 为当前驱动器。同时还有一台 MD 也接在这台计算机上。
Dim MyPath
MyPath = CurDir ' 返回“HD:MY FOLDER”。
MyPath = CurDir("HD") ' 返回“HD:MY FOLDER”。
MyPath = CurDir("MD") ' 返回“HD:MY FOLDER”

作者: chaojianan 时间: 2009-11-1 21:25
学习CurDir 函数

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)