Svojstvo OpenArgs

Važno :  Ovaj je članak strojno preveden. Pogledajteizjavu o odricanju od odgovornosti. Verziju ovog članka na engleskom potražite ovdje.

Primjenjuje se na

Objekt Form

Objekt Report

Određuje nizovni izraz navedenu u argumentu OpenArgs metode OpenForm otvaranja obrasca. Čitanje/pisanje Variant.

izraz. OpenArgs

izraz Obavezno. Izraz koji vraća jedan od objekata na popisu Primjenjuje se na.

Napomene

Ovo svojstvo je dostupno samo putem makronaredba ili pomoću jezika Visual Basic for Applications (VBA) kod metodom OpenForm objekta DoCmd . Ova postavka svojstva je samo za čitanje u svim prikazima.

Da biste koristili svojstvo OpenArgs , otvorite obrazac metodom OpenForm objekta DoCmd i OpenArgs argument postavite na željeni nizovni izraz. Postavka svojstva OpenArgs pa se poslužite u kodu za obrazac, kao što su u Otvori procedura događaja. Možete se referirati na postavku svojstva u makronaredbi, kao što je makronaredba Otvori ili izraz, kao što je izraz koji postavlja svojstvo ControlSourcekontrola na obrascu.

Na primjer, pretpostavimo da je obrazac koji želite otvoriti kontinuirani obrazac popisa klijenata. Ako želite da se fokus da biste prešli u zapisu određenog klijenta prilikom otvaranja obrasca, postavite svojstvo OpenArgs na ime klijenta, a zatim upotrijebite akciju FindRecord u makronaredbi Otvori da biste premjestili fokus zapis za klijenta s navedenim nazivom.

Primjer

Sljedeći primjer koristi svojstvo OpenArgs da biste otvorili obrazac Zaposlenici sa zapisom o određenom zaposleniku i pokazuje kako metodu OpenForm postavlja svojstvo OpenArgs . Po potrebi možete pokrenuti postupak – na primjer, kada AfterUpdate događaj za prilagođeni dijaloški okvir koji se koristi za unos nove informacije o zaposleniku.

Sub OpenToCallahan()
DoCmd.OpenForm "Employees", acNormal, , , _
acReadOnly, , "Callahan"
End Sub
Sub Form_Open(Cancel As Integer)
Dim strEmployeeName As String
' If OpenArgs property contains employee name, find
' corresponding employee record and display it on
' form. For example,if the OpenArgs property
' contains "Callahan", move to first "Callahan"
' record.
strEmployeeName = Forms!Employees.OpenArgs
If Len(strEmployeeName) > 0 Then
DoCmd.GoToControl "LastName"
DoCmd.FindRecord strEmployeeName, , True, , _
True, , True
End If
End Sub

Sljedeći primjer koristi izraz da biste pronašli zaposlenika navedenog u svojstvo OpenArgs .

Private Sub Form_Open(Cancel As Integer)
If Not IsNull(Me.OpenArgs) Then
Dim strEmployeeName As String
strEmployeeName = Me.OpenArgs
Dim RS As DAO.Recordset
Set RS = Me.RecordsetClone
RS.FindFirst "LastName = '" & _
strEmployeeName & "'"
If Not RS.NoMatch Then
Me.Bookmark = RS.Bookmark
End If
End If
End Sub

Napomena : Izjava o odricanju od odgovornosti za strojni prijevod: ovaj je članak preveo računalni sustav bez ljudske intervencije. Microsoft nudi strojne prijevode da bi korisnicima koji ne razumiju engleski omogućio čitanje sadržaja o Microsoftovim proizvodima, uslugama i tehnologijama. Budući da je preveden strojno, članak možda sadrži pogreške u vokabularu, sintaksi ili gramatici.

Proširite svoje vještine
Istražite osposobljavanje

Jesu li vam ove informacije bile korisne?

Hvala vam na povratnim informacijama!

Hvala vam na povratnim informacijama! Čini se da bi vam pomoglo kad bismo vas povezali s nekim od naših agenata podrške za Office.

×