Πώς μπορείτε να χρησιμοποιήσετε το 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 παρέχει παραδείγματα προγραμματισμού μόνο για λόγους επεξήγησης, χωρίς να παρέχει καμία εγγύηση, σιωπηρή ή ρητή. Σε αυτά περιλαμβάνονται, ενδεικτικά, οι σιωπηρές εγγυήσεις εμπορευσιμότητας ή/και καταλληλότητας για συγκεκριμένο σκοπό. Αυτό το άρθρο προϋποθέτει ότι είστε εξοικειωμένοι με τη γλώσσα προγραμματισμού που παρουσιάζεται, καθώς και με τα εργαλεία που χρησιμοποιούνται για τη δημιουργία και τον εντοπισμό σφαλμάτων κώδικα διαδικασιών. Οι μηχανικοί υποστήριξης της Microsoft μπορούν να σας εξηγήσουν τη λειτουργικότητα μιας συγκεκριμένης διαδικασίας, αλλά δεν θα τροποποιήσουν αυτά τα παραδείγματα, για να παράσχουν πρόσθετες λειτουργίες, ούτε θα δημιουργήσουν διαδικασίες, για να καλύψουν τις συγκεκριμένες απαιτήσεις σας.

Τα βήματα για να αντικαταστήσετε τη λειτουργικότητα κοινό παράθυρο διαλόγου

Microsoft Office Access 2003

  1. Στην Access, ανοίξτε το δείγμα βάσης δεδομένων που ονομάζεται Northwind.mdb.

    ΣΗΜΕΙΩΣΗΗ βάση δεδομένων Northwind.mdb, για την Access 2003 βρίσκεται συνήθως στο φάκελο C:\Program Files\Microsoft Office\OFFICE11\Samples.
  2. underδύο διαστάσεωνστο παράθυρο της βάσης δεδομένων Northwind, κάντε κλικ στο κουμπίΦόρμες.
  3. ΣτοΤο παράθυρο "βάση δεδομένων"γραμμή εργαλείων, κάντε κλικ στο κουμπίΝέα.
  4. ΣτοΔημιουργία φόρμαςπαράθυρο διαλόγου, κάντε κλικ στο κουμπίΠροβολή σχεδίασης, και στη συνέχεια κάντε κλικ στο κουμπίOk.
  5. Προσθέστε ένα πλαίσιο κειμένου Φόρμα1, κάντε δεξιό κλικ στο πλαίσιο κειμένου και στη συνέχεια κάντε κλικ στο κουμπίΙδιότητες (Properties).
  6. Κάντε κλικ στην καρτέλαΌλεςκαρτέλα, κάντε κλικ στο κουμπίNAMETYPEΚείμενο1, και κατόπιν κλείστε τοΙδιότητες (Properties)παράθυρο διαλόγου.
  7. Κάντε δεξιό κλικ στο στοιχείο ελέγχου ετικέτας που σχετίζεται με τοΚείμενο1πλαίσιο κειμένου, κάντε κλικ στο κουμπίΙδιότητες (Properties), και στη συνέχεια κάντε κλικ στοΌλεςTAB.
  8. Κάντε κλικΛεζάντα (Caption)TYPEΚείμενο1, και κατόπιν κλείστε τοΙδιότητες (Properties)παράθυρο διαλόγου.
  9. Προσθήκη ενός κουμπιού εντολής σεΦόρμα1, κάντε δεξιό κλικ στο κουμπί εντολής, κάντε κλικ στο κουμπίΙδιότητες (Properties)Κάντε κλικNAMETYPECommand1Κάντε κλικΛεζάντα (Caption), και στη συνέχεια πληκτρολογήστεCommand1.
  10. Κάντε κλικ στην καρτέλαΣυμβάνκαρτέλα, κάντε κλικ στο κουμπί[Διαδικασία συμβάντος] ([Event Procedure])ΣτοΜε το κλικλίστα και, στη συνέχεια, κάντε κλικ στο κουμπί έλλειψη για να ξεκινήσει το πρόγραμμα επεξεργασίας της Visual Basic της Microsoft.
  11. Τροποποιήστε τον κώδικα στη διαδικασία Command1_Click με το ακόλουθο:
    Private Sub Command1_Click()
        Me!Text1 = LaunchCD(Me)
    End Sub
  12. Στο διακομιστήINSERTμενού, κάντε κλικ στο κουμπίModule, και, στη συνέχεια, εισαγάγετε τον ακόλουθο κώδικα στη 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. Στο διακομιστήΟ εντοπισμός σφαλμάτωνμενού, κάντε κλικ στο κουμπίΗ μεταγλώττιση της Northwind, και στη συνέχεια κλείστε το πρόγραμμα επεξεργασίας της Visual Basic.
  14. Στο διακομιστήViewμενού, κάντε κλικ στο κουμπίΜορφή προβολής.
  15. Κάντε κλικCommand1, και στη συνέχεια κάντε κλικ σε ένα αρχείο στο παράθυρο που ανοίγει.

    Η διαδρομή του αρχείου εμφανίζεται στο στοΚείμενο1Text box.

Microsoft Office Access 2007

  1. Στην Access 2007, ανοίξτε το δείγμα βάσης δεδομένων που ονομάζεται Northwind.accdb.
  2. Στο διακομιστήCreateκαρτέλα, κάντε κλικ στο κουμπίMAPIΣτοΦόρμεςΌμιλος.
  3. Στο διακομιστήΜορφή (Format)καρτέλα, κάντε κλικ στο βέλος προς τα κάτω παρακάτωView, και στη συνέχεια κάντε κλικ στο κουμπίΠροβολή σχεδίασης.
  4. Προσθέστε ένα πλαίσιο κειμένου Φόρμα1, κάντε δεξιό κλικ στο πλαίσιο κειμένου και στη συνέχεια κάντε κλικ στο κουμπίΙδιότητες (Properties).
  5. Κάντε κλικ στην καρτέλαΌλεςκαρτέλα, κάντε κλικ στο κουμπίNAME, και στη συνέχεια πληκτρολογήστεΚείμενο1.
  6. Κάντε δεξιό κλικ στο στοιχείο ελέγχου ετικέτας που σχετίζεται με τοΚείμενο1πλαίσιο κειμένου, κάντε κλικ στο κουμπίΙδιότητες (Properties), και στη συνέχεια κάντε κλικ στοΌλεςTAB.
  7. Κάντε κλικΛεζάντα (Caption), και στη συνέχεια πληκτρολογήστεΚείμενο1.
  8. Προσθήκη ενός κουμπιού εντολής σεΦόρμα1, κάντε δεξιό κλικ στο κουμπί εντολής, κάντε κλικ στο κουμπίΙδιότητες (Properties)Κάντε κλικNAMETYPECommand1Κάντε κλικΛεζάντα (Caption), και στη συνέχεια πληκτρολογήστεCommand1.
  9. Κάντε κλικ στην καρτέλαΣυμβάνκαρτέλα, κάντε κλικ στο κουμπί[Διαδικασία συμβάντος] ([Event Procedure])ΣτοΜε το κλικκαι, στη συνέχεια, επιλέξτε τα αποσιωπητικά (κουμπί...) για να ξεκινήσει το πρόγραμμα επεξεργασίας της Visual Basic της Microsoft.
  10. Τροποποιήστε τον κώδικα στη διαδικασία Command1_Click να μοιάζει με το ακόλουθο παράδειγμα κώδικα.
    Private Sub Command1_Click()
        Me!Text1 = LaunchCD(Me)
    End Sub
  11. Στο διακομιστήINSERTμενού, κάντε κλικ στο κουμπίModule, και στη συνέχεια εισαγάγετε κώδικα που μοιάζει με το ακόλουθο παράδειγμα κώδικα σε 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. Στο διακομιστήΟ εντοπισμός σφαλμάτωνμενού, κάντε κλικ στο κουμπίΗ μεταγλώττιση της Northwind, και στη συνέχεια κλείστε το πρόγραμμα επεξεργασίας της Visual Basic.
  13. Στο διακομιστήΜορφή (Format)καρτέλα, κάντε κλικ στο βέλος προς τα κάτω παρακάτωView, και στη συνέχεια κάντε κλικ στο κουμπίΠροβολή φόρμας.
  14. Κάντε κλικCommand1, και στη συνέχεια κάντε κλικ σε ένα αρχείο στο παράθυρο που ανοίγει.

    Η διαδρομή του αρχείου εμφανίζεται στο στοΚείμενο1"Τύπος" (Type).

Ιδιότητες

Αναγν. άρθρου: 888695 - Τελευταία αναθεώρηση: Σάββατο, 17 Σεπτεμβρίου 2011 - Αναθεώρηση: 5.0
Οι πληροφορίες σε αυτό το άρθρο ισχύουν για:
  • Microsoft Office Access 2007
  • Microsoft Office Access 2003
Λέξεις-κλειδιά: 
kbsampledatabase kbprogramming kbautomation kbexpertiseinter kbhowto kbmt KB888695 KbMtel
Μηχανικά μεταφρασμένο
ΣΗΜΑΝΤΙΚΟ: Αυτό το άρθρο είναι προϊόν λογισμικού μηχανικής μετάφρασης της Microsoft και όχι ανθρώπινης μετάφρασης. Η Microsoft σάς προσφέρει άρθρα που είναι προϊόντα ανθρώπινης αλλά και μηχανικής μετάφρασης έτσι ώστε να έχετε πρόσβαση σε όλα τα άρθρα της Γνωσιακής Βάσης μας στη δική σας γλώσσα. Ωστόσο, ένα άρθρο που έχει προκύψει από μηχανική μετάφραση δεν είναι πάντα άριστης ποιότητας. Ενδέχεται να περιέχει λεξιλογικά, συντακτικά ή γραμματικά λάθη, όπως ακριβώς τα λάθη που θα έκανε ένας μη φυσικός ομιλητής επιχειρώντας να μιλήσει τη γλώσσα σας. Η Microsoft δεν φέρει καμία ευθύνη για τυχόν ανακρίβειες, σφάλματα ή ζημίες που προκύψουν λόγω τυχόν παρερμηνειών στη μετάφραση του περιεχομένου ή χρήσης του από τους πελάτες της. Επίσης, η Microsoft πραγματοποιεί συχνά ενημερώσεις στο λογισμικό μηχανικής μετάφρασης.
Η αγγλική έκδοση αυτού του άρθρου είναι η ακόλουθη: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