Access'i başlatmak için kullanılan komut satırıbağımsız değişken bölümünü döndürmek için Command işlevini kullanabilirsiniz.
Açıklamalar
Access komut satırından başlatıldığında, komut satırının /cmd seçeneğini izleyen herhangi bir bölümü programa komut satırı bağımsız değişkeni olarak geçirilir. Geçirilen bağımsız değişkeni döndürmek için Command işlevini kullanabilirsiniz.
Veritabanı açıldıktan sonra komut satırı bağımsız değişkenlerini değiştirmek için:
-
Dosya menüsünde Erişim Seçenekleri'ne tıklayın.
-
Uygulama Ayarları iletişim kutusunda Gelişmiş'e tıklayın.
-
Komut satırı bağımsız değişkenleri kutusuna yeni bir bağımsız değişken girin.
Command işlevi artık girdiğiniz yeni bağımsız değişkeni döndürür.
Command işlevi bir modüldeki Visual Basic for Applications (VBA) kodu dışında bir yerde kullanıldığında, işlevden sonra boş parantezler eklemeniz gerekir. Örneğin, Command işlevini formdaki bir metin kutusunda kullanmak için, metin kutusunun ControlSource özelliğini aşağıdaki gibi bir ifade olarak ayarlayabilirsiniz:
=Command()
Örnek
Not: Aşağıdaki örneklerde, bu işlevin Visual Basic for Applications (VBA) modülünde kullanımı gösterilir. VBA ile çalışma hakkında daha fazla bilgi için, rama'nın yanındaki açılan listede Geliştirici Başvurusu'nu seçin ve arama kutusuna bir veya birden çok terim yazın.
Aşağıdaki örnekte Access'in komut satırı bağımsız değişkeniyle nasıl başlatıldığı ve ardından Command işlevini kullanarak bu bağımsız değişkenin değerinin nasıl döndürüleceği gösterilmektedir.
Bu örneği test etmek için Windows Başlat düğmesine ve ardından Çalıştır'a tıklayın. Çalıştır kutusuna tek bir satırda aşağıdaki kodu yazın. (Komut satırı bilgilerinin bölümlerini tırnak içinde çevrelemelisiniz).
"C:\Program Files\Microsoft Office\Office11\Msaccess.exe" _
"C:\Program Files\Microsoft Office\Office11\Samples\Northwind.mdb" /cmd "Orders"
Ardından Northwind Traders örnek veritabanında yeni bir modül oluşturun ve aşağıdaki Sub yordamını ekleyin:
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
Bu yordamı çağırdığınızda, Access Siparişler formunu açar. Veritabanı açıldığında bu yordamı otomatik olarak çağırmak için bir AutoExec makro oluşturabilirsiniz.