Anda dapat menggunakan fungsi Command untuk mengembalikan bagian argumen dari baris perintah yang digunakan untuk meluncurkan Access.
Keterangan
Ketika Access diluncurkan dari baris perintah, setiap bagian dari baris perintah yang mengikuti opsi /cmd diteruskan ke program sebagai argumen baris perintah. Anda bisa menggunakan fungsi Command untuk mengembalikan argumen yang telah dilewati.
Untuk mengubah argumen baris perintah setelah database dibuka:
-
Pada menu File , klik Opsi Access.
-
Dalam kotak dialog Pengaturan Aplikasi , klik Tingkat Lanjut.
-
Masukkan argumen baru dalam kotak Argumen baris perintah .
Fungsi Command sekarang akan mengembalikan argumen baru yang telah Anda masukkan.
Ketika fungsi Command digunakan di mana saja selain dalam kode Visual Basic for Applications (VBA) dalam modul, Anda harus menyertakan tanda kurung kosong setelah fungsi. Misalnya, untuk menggunakan fungsi Command dalam kotak teks pada formulir, Anda akan mengatur properti ControlSource kotak teks ke ekspresi seperti berikut ini:
=Command()
Contoh
Catatan: Contoh yang mengikuti demonstrasi penggunaan fungsi ini dalam modul Visual Basic for Applications (VBA). Untuk informasi selengkapnya tentang bekerja dengan VBA, pilih Referensi Pengembang di daftar turun bawah di samping Cari dan masukkan satu istilah atau lebih di kotak pencarian.
Contoh berikut ini memperlihatkan cara meluncurkan Access dengan argumen baris perintah lalu memperlihatkan cara mengembalikan nilai argumen ini menggunakan fungsi Command .
Untuk menguji contoh ini, klik tombol Mulai Windows dan klik Jalankan. Ketikkan kode berikut dalam kotak Jalankan di satu baris. (Anda harus mengapit bagian informasi baris perintah dalam tanda kutip).
"C:\Program Files\Microsoft Office\Office11\Msaccess.exe" _
"C:\Program Files\Microsoft Office\Office11\Samples\Northwind.mdb" /cmd "Orders"
Berikutnya, buat modul baru dalam database sampel Northwind Traders dan tambahkan Sub prosedur berikut:
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
Saat Anda menghubungi prosedur ini, Access akan membuka formulir Pesanan. Anda bisa membuat makro AutoExec untuk memanggil prosedur ini secara otomatis saat database dibuka.