Access'i başlatırken kullanılan komut satırının bağımsız değişken bölümünü döndürmek için Command işlevini kullanabilirsiniz.
Notlar
Access komut satırından başlatıldığında, komut satırının /cmd seçeneğini izleyen bölümü komut satırı bağımsız değişkeni olarak programa geçirilir. Geçirilen bağımsız değişkeni döndürmek için Komut işlevini kullanabilirsiniz.
Veritabanı açıldıktan sonra komut satırı bağımsız değişkenini değiştirmek için:
- Dosya menüsünde Access Seçenekleri'ne tıklayın.
- Uygulama Ayarları iletişim kutusunda, Gelişmiş'i tıklatın.
- Komut satırı bağımsız değişkenleri kutusuna yeni bir bağımsız değişken girin.
Komut işlevi şimdi girdiğiniz yeni bağımsız değişkeni döndürecektir.
Komut işlevi bir modüldeki Visual Basic for Applications (VBA) kodu dışında herhangi 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ğıdakine benzer bir ifadeye ayarlarsınız:
=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 örnek, Access'in bir komut satırı bağımsız değişkeniyle nasıl başlatılacağını ve ardından Komut işlevi kullanılarak bu bağımsız değişkenin değerinin nasıl döndürüleceğini gösterir.
Bu örneği test etmek için Windows Başlat düğmesine ve Çalıştır'a tıklayın. Aşağıdaki kodu Çalıştır kutusuna tek bir satıra yazın. (Komut satırı bilgilerinin bazı bölümlerini tırnak işaretleri içine almalısınız).
"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 Alt yordamı 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ın otomatik olarak çağrılması için bir AutoExec makrosu oluşturabilirsiniz.