ДәлелАшу сипаты

Қолданылады

Пішін нысаны

Есеп нысаны

Пішінді ашатын ПішінАшу әдісінің ДәлелАшу дәлелімен көрсетілген жол өрнегі анықтайды. Нұсқаны оқыңыз/жазыңыз.

өрнек.ДәлелАшу

өрнек Қажетті. Өрнек Қолданылады тізімінде нысандардың біреуін қайтарады.

Ескертпелер

Бұл сипат макроc пайдалану арқылы немесе Бағдарламаларға арналған Visual Basic (VBA) кодын DoCmd нысанының ПішінАшу әдісімен бірге пайдалану арқылы ғана қолданылады. Бұл сипаттық параметр барлық көріністерде тек оқуға арналған.

ДәлелАшу сипатын пайдалану үшін DoCmd нысанының ПішінАшу әдісі арқылы пішінді ашып, ДәлелАшу дәлелін қажетті жол өрнегіне қойыңыз. Содан кейін ДәлелАшу сипаттық параметрін Ашу оқиға процедурасы сияқты пішінге арналған кодта пайдалануға болады. Сондай-ақ, Ашу құрамды пәрмені сияқты құрамды пәрмендегі немесе пішіндегі басқару элементі арналған БасқаруКөзі сипатын орнататын өрнек сияқты өрнектегі сипаттық параметрге сілтеме жасауыңызға болады.

Мысалы, ашылатын пішін тұтынушылардың жалғасатын формасы тізімі делік. Егер сіз фокус пішін ашылғанда арнайы тұтынушылар жазбасына жылжуын қаласаңыз, ДәлелАшу сипатын тұтынушының атына қойып, кезелімді аты ерекше тұтынушыға арналған жазбаға жылжыту үшін Ашу құрамды пәрменіндегі КөздіТабу әрекетін пайдалануыңызға болады.

Мысал

Төмендегі мысал арнайы жұмысшылар жазбасына рналған Жұмысшылар пішінін ашу үшін ДәлелАшу сипатын пайдаланады және ПішінАшу әдісінің ДәлелАшу сипатын қалай орнататынын көрсетеді. Бұл процедураны тиісінше — мысалы, жұмысшы туралы жаңа ақпарат енгізу үшін пайдаланылатын таңдамалы тілқатысу терезесі үшін ЖаңартуданКейін оқиғасы орын алғанда бастауыңызға болады.

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

Келесі мысал ДәлелАшу сипатында аталған жұмысшының орнын анықтау үшін БіріншіТабу әдісін пайдаланады.

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
Дағдыларды жетілдіру
Оқыту курсымен танысыңыз
Жаңа мүмкіндіктерге бірінші болып қол жеткізу
Office Insider бағдарламасына қосылу

Осы ақпарат пайдалы болды ма?

Пікіріңіз үшін рақмет!

Пікіріңізге рақмет! Сізді Office қолдау көрсету қызметіндегі агенттердің бірімен байланыстырған жөн болуы мүмкін.

×