如何使用Access 2003或Access 2007年中数据库中命令对话框API

INTRODUCTION 本指南介绍 如何 用以替换是包含在 Microsoft Office XP Developer Edition 仅在 Microsoft Office 2000 Developer Edition 或通用 对话框 功能在 Microsoft Office Access 2003 或 Microsoft Office Access 2007年中通用 对话框 API。 更多信

INTRODUCTION

本指南介绍如何用以替换是包含在 Microsoft Office XP Developer Edition 仅在 Microsoft Office 2000 Developer Edition 或通用对话框功能在 Microsoft Office Access 2003 或 Microsoft Office Access 2007年中通用对话框 API。

更多信息

Microsoft 提供编程示例仅, 供图示不附带任何明示或暗示。 这包括, 但不仅限于, 适销性或用于特定目的适用性的暗示保证。 本文假定您已熟悉与正在演示编程语言以及工具来调试过程来创建和使用。 Microsoft 支持工程师可以帮助解释功能的特定过程, 但它们将会修改这些示例以提供添加功能或构建过程以满足特定要求。 步骤来替换通用对话框功能Microsoft Office Access 2003

1.	在 Access, 打开名为 Northwind.mdb 示例数据库。注意 Access 2003 The Northwind.mdb 数据库通常位于 C:ProgramFilesCommon Files OfficeOFFICE11Samples 文件夹中。
2.	在 Northwind 数据库窗口, 中 对象 单击 窗体
3.	在 数据库窗口 工具栏, 单击 新建 。
4.	对话框 新表单 中, 单击, 设计视图 ， 然后单击 确定 。
5.	向 Form 1 添加文本框， 右键单击文本框, 依次 属性 。
6.	单击 全部 选项卡， 单击 名称 ， 键入 Text 1 , 并关闭 属性 对话框。
7.	右击标签控件与文本框 Text 1 相关联， 属性 , 依次 所有 选项卡。
8.	单击 标题 ， 键入 Text 1 , 然后关闭 属性 对话框。
9.	向 Form 1 添加一个命令按钮， 用鼠标右键单击命令按钮、 单击 属性 、 单击 名称 、 键入 Command 、 单击 Caption , 然后键入 Command 。
10.	单击 事件 选项卡， 单击 On Click 列表, 中 [ 事件过程 ] ， 然后单击省略号按钮以启动 Microsoft Visual Basic 编辑器。
11.	修改代码与以下 Command 1 _ Click 过程中：Private Sub Command1_Click()　　 Me!Text1 = LaunchCD(Me) End Sub
12.	在 插入 菜单上, 单击 模块 , 然后插入到 Module 1 以下代码： Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _ "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long　Private Type OPENFILENAME　　 lStructSize As Long　　 hwndOwner As Long　　 hInstance As Long　　 lpstrFilter As String　　 lpstrCustomFilter As String　　 nMaxCustFilter 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　　 lCustData As Long　　 lpfnHook As Long　　 lpTemplateName As String End Type　Function LaunchCD(strform As Form) As String　　 Dim OpenFile As OPENFILENAME　　 Dim lReturn As Long　　 Dim sFilter As String　　 OpenFile.lStructSize = Len(OpenFile)　　 OpenFile.hwndOwner = strform.hwnd　　 sFilter = "All Files (*.*)" & Chr(0) & "*.*" & Chr(0) & _　　　 "JPEG Files (*.JPG)" & Chr(0) & "*.JPG" & Chr(0)　　 OpenFile.lpstrFilter = sFilter　　 OpenFile.nFilterIndex = 1　　 OpenFile.lpstrFile = String(257, 0)　　 OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1　　 OpenFile.lpstrFileTitle = OpenFile.lpstrFile　　 OpenFile.nMaxFileTitle = OpenFile.nMaxFile　　 OpenFile.lpstrInitialDir = "C:"　　 OpenFile.lpstrTitle = "Select a file using the Common Dialog DLL"　　 OpenFile.flags = 0　　 lReturn = GetOpenFileName(OpenFile)　　　　 If lReturn = 0 Then　　　　　　 MsgBox "A file was not selected!", vbInformation, _　　　　　　　　"Select a file using the Common Dialog DLL"　　　　　Else　　　　　　 LaunchCD = Trim(Left(OpenFile.lpstrFile, InStr(1, OpenFile.lpstrFile, vbNullChar) - 1))　　　　　 End If End Function
13.	在 调试 菜单上, 单击 编译 Northwind , 然后关闭 VisualBasic 编辑器。
14.	在 视图 菜单上, 单击 窗体视图 。
15.	Command , 依次打开窗口中的一个文件。Text 1 文本框中显示的文件路径。

MicrosoftOfficeAccess 2007

1.	Access 2007年, 中打开示例数据库名 Northwind.accdb。
2.	在 创建 选项卡, 表单 单击 表单 组中。
3.	在 格式 选项卡, 下面 视图 , 下箭头依次 设计视图 。
4.	向 Form 1 添加文本框， 右键单击文本框, 依次 属性 。
5.	单击 全部 选项卡， 单击 名称 , 然后键入 Text 1 。
6.	右击标签控件与文本框 Text 1 相关联， 属性 , 依次 所有 选项卡。
7.	单击 标题 , 然后键入 Text 1 。
8.	向 Form 1 添加一个命令按钮， 用鼠标右键单击命令按钮、 单击 属性 、 单击 名称 、 键入 Command 、 单击 Caption , 然后键入 Command 。
9.	单击 事件 选项卡， 单击 On Click 列表, 中 [ 事件过程 ] ， 然后单击省略号按钮 ( number ) 要启动 Microsoft VisualBasic 编辑器。
10.	修改代码以类似以下代码示例 Command 1 _ Click 过程中。Private Sub Command1_Click()　　 Me!Text1 = LaunchCD(Me) End Sub
11.	在 插入 菜单上, 单击 模块 , 然后插入到 Module 1 类似以下代码示例代码。Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _ "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long　Private Type OPENFILENAME　　 lStructSize As Long　　 hwndOwner As Long　　 hInstance As Long　　 lpstrFilter As String　　 lpstrCustomFilter As String　　 nMaxCustFilter 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　　 lCustData As Long　　 lpfnHook As Long　　 lpTemplateName As String End Type　Function LaunchCD(strform As Form) As String　　 Dim OpenFile As OPENFILENAME　　 Dim lReturn As Long　　 Dim sFilter As String　　 OpenFile.lStructSize = Len(OpenFile)　　 OpenFile.hwndOwner = strform.hwnd　　 sFilter = "All Files (*.*)" & Chr(0) & "*.*" & Chr(0) & _　　　 "JPEG Files (*.JPG)" & Chr(0) & "*.JPG" & Chr(0)　　 OpenFile.lpstrFilter = sFilter　　 OpenFile.nFilterIndex = 1　　 OpenFile.lpstrFile = String(257, 0)　　 OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1　　 OpenFile.lpstrFileTitle = OpenFile.lpstrFile　　 OpenFile.nMaxFileTitle = OpenFile.nMaxFile　　 OpenFile.lpstrInitialDir = "C:"　　 OpenFile.lpstrTitle = "Select a file using the Common Dialog DLL"　　 OpenFile.flags = 0　　 lReturn = GetOpenFileName(OpenFile)　　　　 If lReturn = 0 Then　　　　　　 MsgBox "A file was not selected!", vbInformation, _　　　　　　　　"Select a file using the Common Dialog DLL"　　　　　Else　　　　　　 LaunchCD = Trim(Left(OpenFile.lpstrFile, InStr(1, OpenFile.lpstrFile, vbNullChar) - 1))　　　　　 End If End Function
12.	在 调试 菜单上, 单击 编译 Northwind , 然后关闭 VisualBasic 编辑器。
13.	在 格式 选项卡, 下面 视图 , 下箭头依次 窗体视图 。
14.	Command , 依次打开窗口中的一个文件。Text 1 框中显示的文件路径。