officeba > 单独文章

如何使用 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。

更多信息

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

步骤来替换通用对话框功能

Microsoft Office Access 2003

1.在 Access, 打开名为 Northwind.mdb 示例数据库。

注意 Access 2003 The Northwind.mdb 数据库通常位于 C:\ProgramFiles\Common Files Office\OFFICE11\Samples 文件夹中。
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 框中显示的文件路径。

声明：欢迎各大网站转载本站文章，还请保留一条能直接指向本站的超级链接，谢谢！

时间:2007-05-18 07:45:25,点击:65824

【OfficeBa论坛】：阅读本文时遇到了什么问题，可以到论坛进行交流！Excel专家邮件：342327115@qq.com（大家在Excel使用中遇到什么问题，可以咨询此邮箱）。

【声明】:以上文章或资料除注明为Office自创或编辑整理外，均为各方收集或网友推荐所得。其中摘录的内容以共享、研究为目的，不存在任何商业考虑。如有任何异议，请与本站联系，本站确认后将立即撤下。谢谢您的支持与理解！

相关评论

我要评论

评论内容