Η συνάρτηση Command

Παρατηρήσεις

Όταν η Access εκκινείται από τη γραμμή εντολών, οποιοδήποτε τμήμα της γραμμής εντολών που ακολουθεί την επιλογή /cmd μεταβιβάζεται στο πρόγραμμα ως όρισμα γραμμής εντολών. Μπορείτε να χρησιμοποιήσετε τη συνάρτηση Command για να επιστρέψετε το όρισμα που έχει μεταβιβαστεί.

Για να αλλάξετε ένα όρισμα γραμμής εντολών μετά το άνοιγμα μιας βάσης δεδομένων:

1. Στο μενού Αρχείο , κάντε κλικ στην επιλογή Επιλογές της Access.

2. Στο παράθυρο διαλόγου Ρυθμίσεις εφαρμογής , κάντε κλικ στην επιλογή Για προχωρημένους.

3. Εισαγάγετε ένα νέο όρισμα στο πλαίσιο Ορίσματα γραμμής εντολών .

Η συνάρτηση Command θα επιστρέψει τώρα το νέο όρισμα που έχετε εισαγάγει.

Όταν η συνάρτηση Command χρησιμοποιείται οπουδήποτε αλλού εκτός από κώδικα της Visual Basic for Applications (VBA) σε μια λειτουργική μονάδα, πρέπει να συμπεριλάβετε κενές παρενθέσεις μετά τη συνάρτηση. Για παράδειγμα, για να χρησιμοποιήσετε τη συνάρτηση Command σε ένα πλαίσιο κειμένου σε μια φόρμα, θα πρέπει να ορίσετε την ιδιότητα ControlSource του πλαισίου κειμένου σε μια παράσταση όπως η εξής:

=Command()

Παράδειγμα

Το παρακάτω παράδειγμα δείχνει πώς μπορείτε να εκκινήσετε την Access με ένα όρισμα γραμμής εντολών και, στη συνέχεια, δείχνει πώς μπορείτε να επιστρέψετε την τιμή αυτού του ορίσματος χρησιμοποιώντας τη συνάρτηση Command .

Για να δοκιμάσετε αυτό το παράδειγμα, κάντε κλικ στο κουμπί Έναρξη των Windows και κάντε κλικ στην επιλογή Εκτέλεση. Πληκτρολογήστε τον παρακάτω κωδικό στο πλαίσιο Εκτέλεση σε μία γραμμή. (Πρέπει να περικλείετε τα τμήματα των πληροφοριών της γραμμής εντολών σε εισαγωγικά).

"C:\Program Files\Microsoft Office\Office11\Msaccess.exe" _
"C:\Program Files\Microsoft Office\Office11\Samples\Northwind.mdb" /cmd "Orders"

Στη συνέχεια, δημιουργήστε μια νέα λειτουργική μονάδα στο δείγμα βάσης δεδομένων Northwind Traders και προσθέστε την ακόλουθη δευτερεύουσα διαδικασία:

Public Sub CheckCommandLine()
    ' Check the value returned by Command function and display
    ' the appropriate form.
    If Command = "Orders" Then
        DoCmd.OpenForm "Orders"
    ElseIf Command = "Employees" Then
        DoCmd.OpenForm "Employees"
    Else
        Exit Sub
    End If
End Sub

Όταν καλείτε αυτήν τη διαδικασία, η Access ανοίγει τη φόρμα "Παραγγελίες". Μπορείτε να δημιουργήσετε μια μακροεντολή AutoExec για να καλέσετε αυτή τη διαδικασία αυτόματα όταν ανοίγει η βάση δεδομένων.