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

Код статьи: 888695 - Список продуктов, к которым относится данная статья.
Переведено с помощью машинного переводаПРЕДУПРЕЖДЕНИЕ: СТАТЬЯ ПЕРЕВЕДЕНА С ПОМОЩЬЮ МАШИННОГО ПЕРЕВОДА
Развернуть все | Свернуть все

На этой странице

ВВЕДЕНИЕ

В данной статье описывается использование общих 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 г. - Редакция: 5.0
Информация в данной статье относится к следующим продуктам.
  • Microsoft Office Access 2007
  • Microsoft Office Access 2003
Ключевые слова: 
kbsampledatabase kbprogramming kbautomation kbexpertiseinter kbhowto kbmt KB888695 KbMtru
Переведено с помощью машинного перевода
ВНИМАНИЕ! Перевод данной статьи был выполнен не человеком, а с помощью программы машинного перевода, разработанной корпорацией Майкрософт. Корпорация Майкрософт предлагает вам статьи, переведенные как людьми, так и средствами машинного перевода, чтобы у вас была возможность ознакомиться со статьями базы знаний KB на родном языке. Однако машинный перевод не всегда идеален. Он может содержать смысловые, синтаксические и грамматические ошибки, подобно тому как иностранец делает ошибки, пытаясь говорить на вашем языке. Корпорация Майкрософт не несет ответственности за неточности, ошибки и возможный ущерб, причиненный в результате неправильного перевода или его использования. Корпорация Майкрософт также часто обновляет средства машинного перевода.
Эта статья на английском языке:888695
(http://support.microsoft.com/kb/888695/en-us/ )
Перейти к началу страницы | Отправить отзыв

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

 
Перейти к началу страницыПерейти к началу страницы