Verwendung von Common Dialog API in einer Datenbank in Access 2003 oder Access 2007

In diesem Artikel wird beschrieben, wie Sie Common Dialog API in Microsoft Office Access 2003 und in Microsoft Office Access 2007 anstelle der Common Dialog Box-Funktionen verwenden, die nur in der Microsoft Office 2000 Developer Edition und in der Microsoft Office XP Developer Edition enthalten sind.

Die Verwendung der hier aufgeführten Informationen, Makro- oder Programmcodes geschieht auf Ihre eigene Verantwortung. Microsoft stellt Ihnen diese Informationen sowie Makro- und Programmlistings ohne Gewähr auf Richtigkeit, Vollständigkeit und/oder Funktionalität sowie ohne Anspruch auf Support zur Verfügung. In diesem Artikel wird vorausgesetzt, dass Sie mit der in den Beispielen verwendeten Programmiersprache und mit den zum Erstellen und Debuggen von Prozeduren verwendeten Tools vertraut sind. Die Spezialisten von Microsoft Support Services können bei der Erläuterung der Funktionalität bestimmter Prozeduren helfen, jedoch werden sie diese Beispiele nicht in Bezug auf eine erweiterte Funktionalität verändern, noch werden sie Prozeduren entwickeln, die auf Ihre besonderen Bedürfnisse zugeschnitten sind.

Schritte zum Ersetzen der Common Dialog-Funktionen

Microsoft Office Access 2003

1. Öffnen Sie in Access die Beispieldatenbank mit dem Namen Nordwind.mdb.
   
   Hinweis: Die Datenbank "Nordwind.mdb" für Access 2003 ist normalerweise im Ordner C:\Programme\Microsoft Office\OFFICE11\Samples gespeichert.
2. Klicken Sie im Nordwind-Datenbankfenster unter Objekte auf Formulare.
3. Klicken Sie auf der Datenbankfenster-Symbolleiste auf Neu.
4. Klicken Sie im Dialogfeld Neues Formular auf Entwurfsansicht, und klicken Sie anschließend auf OK.
5. Fügen Sie Formular1 ein Textfeld hinzu, klicken Sie mit der rechten Maustaste auf das Textfeld, und klicken Sie anschließend auf Eigenschaften.
6. Klicken Sie auf die Registerkarte Alle, klicken Sie auf Name, geben Sie Text1 ein, und schließen Sie dann das Dialogfeld Eigenschaften.
7. Klicken Sie mit der rechten Maustaste auf das entsprechende Beschriftungssteuerelement für das Textfeld Text1, klicken Sie auf Eigenschaften, und klicken Sie dann auf die Registerkarte Alle.
8. Klicken Sie auf Beschriftung, geben Sie Text1 ein, und schließen Sie dann das Dialogfeld Eigenschaften.
9. Fügen Sie Formular1 eine Befehlsschaltfläche hinzu, klicken Sie mit der rechten Maustaste auf die Befehlsschaltfläche, klicken Sie auf Eigenschaften, klicken Sie auf Name, geben Sie Command1 ein, klicken Sie auf Beschriftung, und geben Sie dann Command1 ein.
10. Klicken Sie auf die Registerkarte Ereignis, klicken Sie in der Liste Beim Klicken auf [Ereignisprozedur], und klicken Sie dann auf die Schaltfläche mit den Auslassungszeichen, um den Microsoft Visual Basic-Editor zu starten.
11. Ändern Sie den Code in der Prozedur "Command1_Click" in den folgenden Code:

    Private Sub Command1_Click()
        Me!Text1 = LaunchCD(Me)
    End Sub

12. Klicken Sie im Menü Einfügen auf Modul, und fügen Sie dann den folgenden Code in Modul1 ein:

    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. Klicken Sie im Menü Debuggen auf Kompilieren von Nordwind, und schließen Sie dann den Visual Basic-Editor.
14. Klicken Sie im Menü Ansicht auf Formularansicht.
15. Klicken Sie auf Command1, und klicken Sie dann auf eine Datei in dem Fenster, das geöffnet wird.
    
    Der Dateipfad wird im Textfeld Text1 angezeigt.

Microsoft Office Access 2007

1. Öffnen Sie in Access 2007 die Beispieldatenbank mit dem Namen Nordwind.mdb.
2. Klicken Sie auf der Registerkarte Erstellen in der Gruppe Formulare auf Formular.
3. Klicken Sie auf der Registerkarte Format unter Ansicht auf den Pfeil nach unten, und klicken Sie dann auf Entwurfsansicht.
4. Fügen Sie Formular1 ein Textfeld hinzu, klicken Sie mit der rechten Maustaste auf das Textfeld, und klicken Sie anschließend auf Eigenschaften.
5. Klicken Sie auf die Registerkarte Alle, klicken Sie auf Name, und geben Sie dann Text1 ein.
6. Klicken Sie mit der rechten Maustaste auf das dem Textfeld Text1 zugeordnete Beschriftungssteuerelement, klicken Sie auf Eigenschaften, und klicken Sie dann auf die Registerkarte Alle.
7. Klicken Sie auf Beschriftung, und geben Sie dann Text1 ein.
8. Fügen Sie Formular1 eine Befehlsschaltfläche hinzu, klicken Sie mit der rechten Maustaste auf die Befehlsschaltfläche, klicken Sie auf Eigenschaften, klicken Sie auf Name, geben Sie Command1 ein, klicken Sie auf Beschriftung, und geben Sie dann Command1 ein.
9. Klicken Sie auf die Registerkarte Ereignis, klicken Sie in der Liste Beim Klicken auf [Ereignisprozedur], und klicken Sie dann auf die Schaltfläche mit den Auslassungszeichen (...), um den Microsoft Visual Basic-Editor zu starten.
10. Ändern Sie den Code in der Prozedur "Command1_Click" etwa so wie in dem folgenden Codebeispiel:

    Private Sub Command1_Click()
        Me!Text1 = LaunchCD(Me)
    End Sub

11. Klicken Sie im Menü Einfügen auf Modul, und fügen Sie dann ähnlichen Code wie in dem folgenden Codebeispiel in Modul1 ein:

    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. Klicken Sie im Menü Debuggen auf Kompilieren von Nordwind, und schließen Sie dann den Visual Basic-Editor.
13. Klicken Sie auf der Registerkarte Format unter Ansicht auf den Pfeil nach unten, und klicken Sie dann auf Formularansicht.
14. Klicken Sie auf Command1, und klicken Sie dann auf eine Datei in dem Fenster, das geöffnet wird.
    
    Der Dateipfad wird im Textfeld Text1 angezeigt.