Funkciju Command var izmantot, lai atgrieztu programmas Access palaišanai izmantotās komandrindas argumenta daļu.
Piezīmes
Palaižot Access no komandrindas, jebkura komandrindas daļa, kas seko pēc opcijas /cmd , tiek nodota programmai kā komandrindas arguments. Varat izmantot funkciju Command , lai atgrieztu argumentu, kas ir izvirzīts.
Lai mainītu komandrindas argumentu pēc datu bāzes atvēršanas:
- Izvēlnē Fails noklikšķiniet uz Access opcijas.
- Dialoglodziņā Lietojumprogrammas iestatījumi noklikšķiniet uz Papildu.
- Komandrindas argumentu lodziņā ievadiet jaunu argumentu.
Funkcija Command tagad atgriezīs ievadīto jauno argumentu.
Ja funkcija Command tiek izmantota kaut kur citur, nevis Visual Basic for Applications (VBA) kodā modulī, pēc funkcijas jāiekļauj tukšas iekavas. Piemēram, lai izmantotu funkciju Command formas tekstlodziņā, tekstlodziņa rekvizītam Vadīklas avots ir jāiestata izteiksme, kas līdzīga šai:
=Command()
Piemērs
Piezīme
Turpmākajos piemēros redzama šīs funkcijas izmantošana Visual Basic for Applications (VBA) modulī. Lai iegūtu papildinformāciju par darbu ar VBA, nolaižamajā sarakstā atlasiet Uzziņas materiāli izstrādātājiem blakus meklēšanas lodziņam un ievadiet šajā lodziņā vienu vai vairākus vārdus.
Tālāk esošajā piemērā parādīts, kā palaist programmu Access ar komandrindas argumentu, un pēc tam parādīts, kā atgriezt šī argumenta vērtību, izmantojot funkciju Command .
Lai izmēģinātu šo piemēru, noklikšķiniet uz Windows pogas Sākt un noklikšķiniet uz Palaist. Vienā rindiņā lodziņā Izpildīt ierakstiet tālāk norādīto kodu. (Komandrindas informācijas daļas ir jāliek pēdiņās.)
"C:\Program Files\Microsoft Office\Office11\Msaccess.exe" _
"C:\Program Files\Microsoft Office\Office11\Samples\Northwind.mdb" /cmd "Orders"
Pēc tam izveidojiet jaunu moduli Northwind Traders parauga datu bāzē un pievienojiet šādu apakšprocedūru :
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
Izsaucot šo procedūru, programma Access atver formu Pasūtījumi. Varat izveidot AutoExec makro, lai automātiski izsauktu šo procedūru, atverot datu bāzi.