Τρόπος δημιουργίας Word σύνθετου πλαισίου που περιέχει περισσότερα από 25 στοιχεία από μια βάση δεδομένων της Microsoft Access

Στο Microsoft Office Word 2003 και σε παλαιότερες εκδόσεις, επιλέξτε μακροεντολής στο μενού Εργαλεία και στη συνέχεια, κάντε κλικ στην επιλογή Επεξεργασία Visual Basic.

Στο Word 2007, κάντε κλικ στην καρτέλα " Προγραμματιστής " και, στη συνέχεια, κάντε κλικ στην επιλογή Επεξεργασία Visual Basic

Στο παράθυρο " έργο ", επιλέξτε το TemplateProject.

ΣΗΜΕΊΩΣΗ: Εάν δεν εμφανίζεται το παράθυρο του έργου , κάντε κλικ στην επιλογή Εξερεύνηση έργου από το μενού Προβολή .

Στο μενού " Εισαγωγή ", κάντε κλικ στο κουμπί UserForm. Θα πρέπει να εμφανίζεται μια νέα UserForm και την Εργαλειοθήκη στοιχείων ελέγχου . Κάντε δεξιό κλικ στο εσωτερικό του UserForm, και στη συνέχεια κάντε κλικ στο κουμπί Προβολή κώδικα στο μενού συντόμευσης. Προσθέστε τον ακόλουθο κώδικα στο συμβάν Προετοιμασία :

Option Explicit
'Define Variables

Private Sub UserForm_Initialize()

Dim dbDatabase As Database
Dim rsNorthwind As Recordset
Dim i As Integer
Dim aResults()

' This code activates the Database connection. Change 
' the path to reflect your database.
Set dbDatabase = OpenDatabase("C:\My Documents\NorthWind.mdb")

' This code opens the Customers table.  Change the Table 
' to reflect the desired table.
Set rsNorthwind = dbDatabase.OpenRecordset("Customers", dbOpenSnapshot)

i = 0

   With rsNorthwind
   ' This code populates the combo box with the values 
   ' in the CompanyName field.

      Do Until .EOF
         ComboBox1.AddItem (i)
         ComboBox1.Column(0, i) = .Fields("CompanyName")
         .MoveNext
         i = i + 1
      Loop

   End With
End Sub

Στο μενού Εργαλεία , κάντε κλικ στο κουμπί " αναφορές".

Κάντε κλικ στο κουμπί βιβλιοθήκη 3,6 αντικειμένων DAO της Microsoft.

Κάντε κλικ στο κουμπί OK για να κλείσετε το πλαίσιο διαλόγου " αναφορές ".

Κλείστε το παράθυρο κώδικα.

Κάντε δεξιό κλικ το UserFormκαι στη συνέχεια επιλέξτε την εντολή Ιδιότητες από το μενού συντόμευσης. Στην καρτέλα αλφαβητικά , μετονομάστε (όνομα) frmcombo, και στη συνέχεια μετονομάστε λεζάντα στο Microsoft Word. Κλείστε το παράθυρο Ιδιότητες UserForm .

Στην καρτέλα στοιχεία ελέγχου από την εργαλειοθήκη, επιλέξτε σύνθετο πλαίσιο και τοποθετήστε το σε σας UserForm. Κάντε δεξιό κλικ στο στοιχείο ελέγχου και, στη συνέχεια, κάντε κλικ στο κουμπί Προβολή κώδικα στο μενού συντόμευσης. Για να αλλάξετε τον κωδικό σύνθετο πλαίσιο για να:

Private Sub ComboBox1_Change()
   ActiveDocument.FormFields("Text1").Result = ComboBox1.Value
End Sub

ΣΗΜΕΊΩΣΗ: Κείμενο1 είναι το όνομα του σελιδοδείκτη του πεδίου φόρμας κειμένου που εισάγετε στο πρότυπο της διαδικασίας βήμα 2 από το "Δημιουργία το πεδίο φόρμας κειμένου" αυτού του άρθρου.

Κλείστε το παράθυρο κώδικα.

Στην καρτέλα στοιχεία ελέγχου από την εργαλειοθήκη, επιλέξτε CommandButton και τοποθετήστε το στη φόρμα σας χρήστη ως ένα κουμπί " Κλείσιμο ". Κάντε δεξιό κλικ CommandButton, και στη συνέχεια κάντε κλικ στο κουμπί Προβολή κώδικα στο μενού συντόμευσης. Για να αλλάξετε τον κωδικό CommandButton για να:

Private Sub Cmdclose_Click()
   End
End Sub

Κλείστε το παράθυρο κώδικα.

Κάντε δεξιό κλικ CommandButton, και στη συνέχεια επιλέξτε την εντολή Ιδιότητες από το μενού συντόμευσης. Στην καρτέλα αλφαβητικά , μετονομάστε (όνομα) Cmdclose, και στη συνέχεια μετονομάστε λεζάντα σε Κλείσιμο. Κλείστε το παράθυρο Ιδιότητες CommandButton .

Στο παράθυρο "έργο", επιλέξτε το TemplateProject.

Στο μενού " Εισαγωγή ", κάντε κλικ στην εντολή " λειτουργική μονάδα". Εμφανίζεται ένα φύλλο κώδικα κενή λειτουργική μονάδα.

Πληκτρολογήστε τον ακόλουθο κώδικα:

Sub gocombobox()
   frmcombo.Show
End Sub

Στο πρότυπό σας, στο μενού Προβολή , επιλέξτε γραμμές εργαλείωνκαι, στη συνέχεια, κάντε κλικ στην επιλογή φόρμες.

Τοποθετήστε το σημείο εισαγωγής όπου θέλετε το αποτέλεσμα της αναπτυσσόμενης λίστας έχει εισαχθεί. Στη γραμμή εργαλείων " φόρμες ", κάντε κλικ στο Πεδίο φόρμας κειμένου (το πρώτο κουμπί στα αριστερά). Το Πεδίο φόρμας κειμένου εισάγεται στο πρότυπο ως γκρι σκίαση.

ΣΗΜΕΊΩΣΗ: Εάν μπορείτε να δείτε το πεδίο {FORMTEXT} , πιέστε το συνδυασμό πλήκτρων ALT + F9 για να απενεργοποιήσετε τους κωδικούς πεδίων.

Κάντε δεξιό κλικ στο Πεδίο φόρμας κειμένου, και στη συνέχεια επιλέξτε την εντολή Ιδιότητες από το μενού συντόμευσης.

Στο παράθυρο διαλόγου Επιλογές πεδίου φόρμας: κείμενο , κάτω από την ενότητα " Εκτέλεση μακροεντολής ", επιλέξτε τη μακροεντολή gocombobox από την καταχώρηση: ονομάζεται σύνθετο πλαίσιο.


ΣΗΜΕΊΩΣΗ: Βεβαιωθείτε ότι το όνομα του σελιδοδείκτη του πεδίου φόρμας κειμένου είναι ίδια με αυτήν που καθορίσατε στο βήμα 9 της διαδικασίας "Δημιουργία του UserForm σύνθετο πλαίσιο" παραπάνω σε αυτό το άρθρο.

Στη γραμμή εργαλείων " φόρμες ", κάντε κλικ στο κουμπί Προστασία φόρμας.

Αποθηκεύστε και κλείστε το πρότυπο.