Funkciju Command var izmantot, lai atgrieztu funkciju arguments daļu, kas komandrinda izmantota programmas Microsoft Office Access 2007.
Piezīmes
Kad programma Access tiek palaista no komandrindas, jebkura komandrindas daļa, kas seko pēc opcijas /cmd , tiek nodota programmai kā komandrindas arguments. Funkciju Command var izmantot , lai atgrieztu argumentu, kas ir nodots.
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.
-
Lodziņā Komandrindas argumenti ievadiet jaunu argumentu.
Funkcija Command tagad atgriezīs jauno ievadīto argumentu.
Ja funkciju Command modulī izmanto nevis Visual Basic for Applications (VBA) kodā, bet arī tukšas iekavas pēc funkcijas ir jāiekļauj. Piemēram, lai izmantotu funkciju Command formas tekstlodziņā, tekstlodziņa rekvizītam ControlSource ir jāiestata šāda izteiksme forma:
=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.
Š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 pārbaudītu šo piemēru, noklikšķiniet uz Windows sākuma pogas un noklikšķiniet uz Palaist. Uz vienas rindiņas lodziņā Palaist ierakstiet tālāk norādīto kodu. (Komandrindas informācijas daļas ir jāiekļauj 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šprocesu :
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.
