OpenArgs Özelliği

Önemli : Bu makale makine çevisidir. Bkz. yasal uyarı. Bu makalenin İngilizce sürümüne buradan ulaşabilirsiniz.

Uygulama

Form Nesnesi

Rapor Nesnesi

Formu açan OpenForm yönteminin OpenArgs bağımsız değişkeni tarafından belirtilen dize ifadesi'ni belirler. Okunur/yazılır Değişken.

ifade.OpenArgs

ifade Gerekli. Uygulandığı Yerler listesindeki nesnelerden birini döndüren bir ifade.

Açıklamalar

Bu özellik yalnızca makro veya Visual Basic for Applications (VBA) kodu için DoCmd nesnesinin FormAç yöntemiyle kullanarak kullanılabilir. Bu özellik ayarı tüm görünümlerde salt okunurdur.

OpenArgs özelliğini kullanmak için, DoCmd nesnesinin OpenForm yöntemini kullanarak bir form açın ve OpenArgs bağımsız değişkenini istediğiniz dize ifadesine ayarlayın. Bundan sonra OpenArgs özelliği ayarı formun kodunda, örneğin Aç olay yordamı'nda, kullanılabilir. Ayrıca, bir makrodaki (örneğin Aç makrosu) veya bir ifadedeki (örneğin, formdaki bir denetim'in ControlSource özelliğini ayarlayan bir ifade) özellik ayarına da başvurabilirsiniz.

Örneğin, açtığınız form istemciler sürekli form listesini olduğunu varsayalım. Form açıldığında bir belirli istemci kayda gitmek için odak isterseniz, müşterinin adına OpenArgs özelliği ayarlayın ve sonra odağı istemcisi belirtilen ada sahip kayda gitmek için açık bir makroda KayıtBul eylemini kullanın.

Örnek

Aşağıdaki örnekte, Çalışanlar formunu belirli bir çalışan kaydına açmak için OpenArgs özelliği kullanılır ve OpenForm yönteminin OpenArgs özelliğini nasıl ayarladığı gösterilir. Bu yordamı uygun olduğunda çalıştırabilirsiniz — örneğin, çalışan hakkında yeni bilgiler girmek için kullanılan özel bir iletişim kutusu için GüncelleştirmeSonrasında olayı oluştuğunda.

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

Aşağıdaki örnekte, OpenArgs özelliğinde adlandırılan çalışanı bulmak için FindFirst yöntemi kullanılır.

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

Not : Makine Çevirisi Yasal Uyarısı: Bu makale, insan müdahalesi olmadan bir bilgisayar sistemi tarafından çevrilmiştir. Microsoft bu makine çevirilerini İngilizce bilmeyen kullanıcıların Microsoft ürünleri, hizmetleri ve teknolojileriyle ilgili içeriklerden yararlanmasına yardımcı olmak için sunar. Bu makale makine çevirisi olduğundan sözcük, cümle dizilimi ve gramer hataları içerebilir.

Yeteneklerinizi geliştirin
Eğitimleri keşfedin
Yeni özellikleri ilk olarak siz edinin
Office Insider Programına Katılın

Bu bilgi yararlı oldu mu?

Görüşleriniz için teşekkür ederiz!

Geri bildiriminiz için teşekkürler! Office destek temsilcilerimizden biriyle görüşmeniz yararlı olabilir.

×