يمكنك استخدام الدالة Command لإرجاع جزء وسيطة من سطر الأوامر المستخدمة لتشغيل Access.
ملاحظات
عند تشغيل Access من سطر الأوامر، يتم تمرير أي جزء من سطر الأوامر الذي يتبع الخيار /cmd إلى البرنامج كوسيطة سطر الأوامر. يمكنك استخدام الدالة Command لإرجاع الوسيطة التي تم تمريرها.
لتغيير وسيطة سطر الأوامر بمجرد فتح قاعدة بيانات:
-
في القائمة ملف ، انقر فوق خيارات الوصول.
-
في مربع الحوار إعدادات التطبيق ، انقر فوق خيارات متقدمة.
-
أدخل وسيطة جديدة في مربع وسيطات سطر الأوامر .
سترجع الدالة Command الآن الوسيطة الجديدة التي أدخلتها.
عند استخدام دالة Command في أي مكان آخر غير التعليمات البرمجية Visual Basic for Applications (VBA) في وحدة نمطية، يجب تضمين أقواس فارغة بعد الدالة. على سبيل المثال، لاستخدام الدالة Command في مربع نص على نموذج، يمكنك تعيين الخاصية ControlSource لمربع النص إلى تعبير كما يلي:
=Command()
مثال
ملاحظة: توضح الأمثلة التالية استخدام هذه الدالة في وحدة Visual Basic for Applications (VBA). لمزيد من المعلومات حول العمل مع VBA، حدد مرجع المطور في القائمة المنسدلة بجوار البحث وأدخل مصطلحا واحدا أو أكثر في مربع البحث.
يوضح المثال التالي كيفية تشغيل 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 لاستدعاء هذا الإجراء تلقائيا عند فتح قاعدة البيانات.