<<< 返回 access911.net 编程静态资料库索引页

多个 Access 自定义函数

 

作者:  摘自:  录入:cg1  时间:2002-11-19  浏览人次:3108


专题地址:http://access911.net/fixhtm/71FAB41E.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:

 


'Access 自增函数及相关技巧
'检查指定文件是否存在
***************** Code Start *******************
Function fIsFileDIR(stPath As String, _
                    Optional lngType As Long) _
                    As Integer
'Fully qualify stPath
'To check for a file
'   ?fIsFileDIR("c:\winnt\win.ini")
'To check for a Dir
'   ?fIsFileDir("c:\msoffice",vbdirectory)
'
    On Error Resume Next
    fIsFileDIR = Len(Dir(stPath, lngType)) > 0
End Function
'***************** Code End *********************
 
 
'列表框中多选查询
'******************** Code Start ************************
    Dim frm As Form, ctl As Con.....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/71FAB41E.htm

 


上一篇:如何使用 ADO 來压缩或修复 MS Access 文件?(jro的使用)

下一篇:了解Access安全性

2017年2月22日生成静态资料