《通用查询 3.0》测试版本-----用不了

笨笨虫

xp+office2k

chaojianan

学习CurDir 函数

李啸林

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”

binghuo123

既然用不了，还说他干什么！