Access 2003 veya Access 2007'deki bir veritabanında Ortak İletişim Kutusu API'sini kullanma

Özgün KB numarası: 888695

GİRİŞ

Bu makalede, Ortak İletişim Kutusu işlevini değiştirmek için Microsoft Office Access 2003 veya Microsoft Office Access 2007'de Ortak İletişim Kutusu API'sinin nasıl kullanılacağı açıklanmaktadır. İşlevler yalnızca Microsoft Office 2000 Developer Edition'a veya Microsoft Office XP Developer Edition'a dahildir.

Microsoft, programlama örneklerini yalnızca gösterim amacıyla sağlar; örtülü veya açık garanti vermez. Buna zımni garantiler, satılabilirlik veya belirli bir amaca uygunluk da dahildir, ancak bunlarla sınırlı değildir. Bu makale, gösterilen programlama dilini ve yordamları oluşturmak ve hata ayıklamak amacıyla kullanılan araçları kullanmayı bildiğinizi varsayar. Microsoft destek mühendisleri, belirli bir yordamın işlevselliğinin açıklanmasına yardımcı olabilir, ancak gereksinimlerinizi karşılamaya yönelik olarak ek işlevsellik sağlamak veya yordamlar geliştirmek amacıyla bu örnekleri değiştirmezler.

Ortak İletişim Kutusu işlevini değiştirme adımları

Microsoft Office Access 2003

1. Access'te, Northwind.mdb adlı örnek veritabanını açın.

   Not

   Access 2003 için Northwind.mdb veritabanı genellikle klasörde bulunur C:\Program Files\Microsoft Office\OFFICE11\Samples .

2. Northwind Veritabanı penceresindeki Nesneler'in altında Formlar 'a tıklayın.

3. Veritabanı penceresi araç çubuğunda Yeni'ye tıklayın.

4. Yeni Form iletişim kutusunda Tasarım Görünümü'ne ve ardından Tamam'a tıklayın.

5. Form1'e bir metin kutusu ekleyin, metin kutusuna sağ tıklayın ve özellikler'e tıklayın.

6. Tümü sekmesine tıklayın, Ad'a tıklayın,Text1 yazın ve özellikler iletişim kutusunu kapatın.

7. Metin1 metin kutusuyla ilişkilendirilmiş etiket denetimine sağ tıklayın, Özellikler'e tıklayın ve ardından Tümü sekmesine tıklayın.

8. Resim Yazısı'na tıklayın, Metin1 yazın ve Özellikler iletişim kutusunu kapatın.

9. Form1'e bir komut düğmesi ekleyin, komut düğmesine sağ tıklayın, Özellikler'e tıklayın, Ad'a tıklayın, Command1 yazın, Resim Yazısı'na tıklayın ve ardından Command1 yazın.

10. Microsoft Visual Basic Düzenleyici başlatmak için Olay sekmesine tıklayın, Tıklandığınızda listesinde [Olay Yordamı] öğesine tıklayın ve üç nokta düğmesine tıklayın.

11. Command1_Click yordamındaki kodu aşağıdaki şekilde değiştirin:

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

12. Ekle menüsünde Modül'e tıklayın ve modül1'e aşağıdaki kodu ekleyin:

    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. Hata Ayıkla menüsünde Derle Northwind'e tıklayın ve visual basic Düzenleyici kapatın.

14. Görünüm menüsünde Form Görünümü'ne tıklayın.

15. Komut1'e tıklayın ve açılan pencerede bir dosyaya tıklayın.

    Dosyanın yolu Metin1 metin kutusunda görünür.

Microsoft Office Access 2007

1. Access 2007'de Northwind.accdb adlı örnek veritabanını açın.

2. Oluştur sekmesinde, Formlar grubunda Form'a tıklayın.

3. Biçim sekmesinde, Görünüm'in altındaki aşağı oka tıklayın ve ardından Tasarım Görünümü'ne tıklayın.

4. Form1'e bir metin kutusu ekleyin, metin kutusuna sağ tıklayın ve özellikler'e tıklayın.

5. Tümü sekmesine tıklayın, Ad'a tıklayın ve metin1 yazın.

6. Metin1 metin kutusuyla ilişkilendirilmiş etiket denetimine sağ tıklayın, Özellikler'e tıklayın ve ardından Tümü sekmesine tıklayın.

7. Resim Yazısı'na tıklayın ve metin1 yazın.

8. Form1'e bir komut düğmesi ekleyin, komut düğmesine sağ tıklayın, Özellikler'e tıklayın, Ad'a tıklayın, Command1 yazın, Resim Yazısı'na tıklayın ve ardından Command1 yazın.

9. Microsoft Visual Basic Düzenleyici başlatmak için Olay sekmesine tıklayın, Tıklandığınızda listesinde [Olay Yordamı] öğesine tıklayın ve ardından üç nokta düğmesine (...) tıklayın.

10. Command1_Click yordamındaki kodu aşağıdaki kod örneğine benzeyecek şekilde değiştirin.

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

11. Ekle menüsünde Modül'e tıklayın ve modül1'e aşağıdaki kod örneğine benzer bir kod ekleyin.

    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. Hata Ayıkla menüsünde Derle Northwind'e tıklayın ve visual basic Düzenleyici kapatın.

13. Biçim sekmesinde, Görünüm'in altındaki aşağı oka tıklayın ve sonra da Form Görünümü'ne tıklayın.

14. Komut1'e tıklayın ve açılan pencerede bir dosyaya tıklayın.

    Dosyanın yolu Metin1 kutusunda görünür.