Как использовать API-Интерфейс общего диалогового окна базы данных в Access 2003 или Access 2007

Переводы статьи Переводы статьи
Код статьи: 888695 - Vizualiza?i produsele pentru care se aplic? acest articol.
Развернуть все | Свернуть все

В этой статье

ВВЕДЕНИЕ

В данной статье описывается использование общих API диалоговое окно в Microsoft Office Access 2003 или Microsoft Office Access 2007 для замены функции общего диалогового окна, включен только в Microsoft Office 2000 Developer Edition или в Microsoft Office XP Developer Edition.

Дополнительная информация

Корпорация Майкрософт предлагает примеры программного кода только для иллюстрации Это включает, но не ограничивается, подразумеваемые гарантии товарности или пригодности для определенной цели. В данной статье предполагается, что вы знакомы с языком программирования предложенном и с помощью средств, которые используются для создания и отладки. Сотрудники службы поддержки Майкрософт могут пояснить конкретной процедуры, но они будут изменять примеры для реализации дополнительных возможностей или удовлетворения конкретных требований.

Шаги для замены функции общего диалогового окна

Microsoft Office Access 2003

  1. В Microsoft Access откройте учебную базу данных, называется Northwind.mdb.

    Примечание Базы данных Northwind.mdb для Access 2003 обычно находится в C:\Program Files\Microsoft Office\OFFICE11\Samples папки.
  2. В группе Объекты в окне базы данных "Борей" щелкните Формы.
  3. В Окно базы данных панель инструментов, нажмите кнопку Новый.
  4. В Новая форма диалоговое окно, нажмите кнопку Режим конструктора, а затем нажмите кнопку ОК.
  5. Добавление текстового поля в форму Form1, щелкните правой кнопкой мыши текстовое поле и нажмите кнопку Свойства.
  6. Нажмите кнопку Все Щелкните Имя, тип Текст1, а затем закройте окно Свойства диалоговое окно.
  7. Щелкните правой кнопкой мыши элемент управления label, с которым связан Текст1 текстовое поле, нажмите кнопкуСвойства, а затем нажмите кнопку Все Вкладка.
  8. Нажмите кнопку Заголовок, тип Текст1, а затем закройте окно Свойства диалоговое окно.
  9. Добавление кнопки. Форма Form1, щелкните правой кнопкой мыши кнопки, нажмите кнопку Свойства, нажмите кнопкуИмя, тип Command1, нажмите кнопкуЗаголовок, а затем введитеCommand1.
  10. Нажмите кнопку События Щелкните [Процедура обработки событий] В диалоговом окне По щелчку список, а затем нажмите кнопку с многоточием, чтобы запустить Microsoft Visual Базовый редактор.
  11. Изменить код в процедуре Command1_Click следующее:
    Private Sub Command1_Click()
        Me!Text1 = LaunchCD(Me)
    End Sub
  12. На Вставка меню, нажмите кнопкуМодуль, а затем вставьте следующий код в Module1.
    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. На Отладка меню, нажмите кнопку Компиляция данных «Борей», а затем закройте редактор Visual Basic.
  14. На Представление меню, нажмите кнопку Форма Представление.
  15. Нажмите кнопку Command1, а затем выберите файл в Откроется окно.

    Путь к файлу появится вТекст1 текстовое поле.

Microsoft Office Access 2007

  1. В Access 2007 откройте базу данных с именем Northwind.accdb.
  2. На Создание Щелкните Форма В диалоговом окне Формы Группа.
  3. На Формат Щелкните стрелку вниз Представление, а затем нажмите кнопку Режим конструктора.
  4. Добавление текстового поля в форму Form1, щелкните правой кнопкой мыши текстовое поле и нажмите кнопку Свойства.
  5. Нажмите кнопку Все Щелкните Имя, а затем введите Текст1.
  6. Щелкните правой кнопкой мыши элемент управления label, с которым связан Текст1 текстовое поле, нажмите кнопкуСвойства, а затем нажмите кнопку Все Вкладка.
  7. Нажмите кнопку Заголовок, а затем введите Текст1.
  8. Добавление кнопки. Форма Form1, щелкните правой кнопкой мыши кнопки, нажмите кнопку Свойства, нажмите кнопкуИмя, тип Command1, нажмите кнопкуЗаголовок, а затем введитеCommand1.
  9. Нажмите кнопку События Щелкните [Процедура обработки событий] В диалоговом окне По щелчку список, а затем нажмите кнопку с многоточием)...) для запуска Microsoft Visual Базовый редактор.
  10. Изменить код в процедуре Command1_Click напоминать следующий код.
    Private Sub Command1_Click()
        Me!Text1 = LaunchCD(Me)
    End Sub
  11. На Вставка меню, нажмите кнопкуМодуль, а затем вставьте код, подобный приведенному в следующем примере кода в Module1.
    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. На Отладка меню, нажмите кнопку Компиляция данных «Борей», а затем закройте редактор Visual Basic.
  13. На Формат Щелкните стрелку вниз Представление, а затем нажмите кнопку Режим формы.
  14. Нажмите кнопку Command1, а затем выберите файл в Откроется окно.

    Путь к файлу появится вТекст1 поле.

Свойства

Код статьи: 888695 - Последний отзыв: 17 сентября 2011 г. - Revision: 5.0
Информация в данной статье относится к следующим продуктам.
  • Microsoft Office Access 2007
  • Microsoft Office Access 2003
Ключевые слова: 
kbsampledatabase kbprogramming kbautomation kbexpertiseinter kbhowto kbmt KB888695 KbMtru
Переведено с помощью машинного перевода
ВНИМАНИЕ! Перевод данной статьи был выполнен не человеком, а с помощью программы машинного перевода, разработанной корпорацией Майкрософт. Корпорация Майкрософт предлагает вам статьи, переведенные как людьми, так и средствами машинного перевода, чтобы у вас была возможность ознакомиться со статьями базы знаний KB на родном языке. Однако машинный перевод не всегда идеален. Он может содержать смысловые, синтаксические и грамматические ошибки, подобно тому как иностранец делает ошибки, пытаясь говорить на вашем языке. Корпорация Майкрософт не несет ответственности за неточности, ошибки и возможный ущерб, причиненный в результате неправильного перевода или его использования. Корпорация Майкрософт также часто обновляет средства машинного перевода.
Эта статья на английском языке:888695

Отправить отзыв

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com