Office中国论坛/Access中国论坛 › Access中国门户旧版 ›Access› 模块类函数VBA › 查看内容

Access自动检测注册表，如果没有注册表信息，则自动增加

2002-6-29 05:46| 发布者: admin| 查看: 452| 评论: 6|原作者: binbow_z|来自: www.office-cn.net

摘要: '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' 刷新表链接 ' ' ' ' 这个模块包含用于刷新到后台数据库表的链接的函数，如果那 ' ' 些表可用的话 ...

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'                刷新表链接                               '
'                                                             '
' 这个模块包含用于刷新到后台数据库表的链接的函数，如果那 '
' 些表可用的话。改写自罗斯文商贸数据库！这可是宝库！       '
'                                                             '
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'=======================================================================
'
'本节程序无须修改，需要修改的程序在后面
'
'=======================================================================
Option Explicit          ' 要求变量在使用以前明确声明
Option Compare Database ' 字符串比较使用数据库次序

Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _
"GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Boolean
Declare Function GetSaveFileName Lib "comdlg32.dll" Alias _
"GetSaveFileNameA" (pOpenfilename As OPENFILENAME) As Boolean

Type MSA_OPENFILENAME
' 用于打开文件对话框过滤器的过滤字符串。
' 使用 MSA_CreateFilterString() 来创建它。
' 默认(Default) = 所有文件, *.*
strFilter As String
' 用于显示的初始过滤器。
' 默认(Default) = 1
lngFilterIndex As Long
' 对话框所作用的初始目录。
' 默认(Default) = 当前工作目录。
strInitialDir As String
' 初始文件名。
' 默认(Default) = ""
strInitialFile As String
strDialogTitle As String
' 默认的文件扩展名，如果用户没有指定一个的话，将使用它。
' 默认(Default) = 系统值 (打开文件，保存文件)。
strDefaultExtension As String
' 所使用的标志 (参看“常量”(Const) 列表)
' 默认(Default) = 无标志。
lngFlags As Long
' 所选取文件的完整路径。在打开文件(OpenFile)时，如果用户点取了
' 一个不存在的文件，将只返回 "File Name"(文件名)框中的文本。
strFullPathReturned As String
' 所选取文件的文件名。
strFileNameReturned As String
' 文件名(strFileNameReturned)开始位置在完整路径中的偏移。
intFileOffset As Integer
'文件扩展名开始位置在完整路径(strFullPathReturned)中的偏移。
intFileExtension As Integer
End Type

Const ALLFILES = "所有文件"

Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As Long
nMaxCustrFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
Flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustrData As Long
lpfnHook As Long
lpTemplateName As Long
End Type

Const OFN_ALLOWMULTISELECT = &H200
Const OFN_CREATEPROMPT = &H2000
Const OFN_EXPLORER = &H80000
Const OFN_FILEMUSTEXIST = &H1000
Const OFN_HIDEREADONLY = &H4
Const OFN_NOCHANGEDIR = &H8
Const OFN_NODEREFERENCELINKS = &H100000
Const OFN_NONETWORKBUTTON = &H20000
Const OFN_NOREADONLYRETURN = &H8000
Const OFN_NOVALIDATE = &H100
Const OFN_OVERWRITEPROMPT = &H2
Const OFN_PATHMUSTEXIST = &H800
Const OFN_READONLY = &H1
Const OFN_SHOWHELP = &H10

Function FindFile(strSearchPath, strTitle, strFilterFilename, strFilterExtname) As String
' 显示打开文件对话框让用户定位
' 特定的文件。返回文件的完整路径。

Dim msaof As MSA_OPENFILENAME

' 给对话框设置选项。
msaof.strDialogTitle = strTitle
msaof.strInitialDir = strSearchPath
msaof.strFilter = MSA_CreateFilterString(strFilterFilename, strFilterExtname)

' 调用打开文件对话框例程。
MSA_GetOpenFileName msaof

' 返回路径和文件名。
FindFile = Trim(msaof.strFullPathReturned)

End Function

Function MSA_CreateFilterString(ParamArray varFilt() As Variant) As String
' 从所传递的实参中创建一个过滤器字符串。
' 如果没有传递进任何实参，将返回 "" 。
' 期望传进偶数个实参(过滤字符串、扩展名)，但
' 如果传进奇数个，将附加 *.* 。

Dim strFilter As String
Dim intRet As Integer

收藏分享邀请

上一篇：Access调用CHM的简单方法下一篇：[原创]Access自定义的计算一月有多少天的函数

发表评论

帐号		自动登录	找回密码
密码			注册

Access自动检测注册表，如果没有注册表信息，则自动增加

最新评论

相关分类