S
SkyRanger
есть Action с кодом
есть форма с 2 полями с выбором даты и хотспот с надписью
код хотспота
Идея такая. Юзверь щелкает по кнопке акшина во вьюхе. Открывается форма. Юзверь выбирает 2 даты с и по щелкает по хотспоту и автоматически производится фильтрация в диапазоне этих дат.
Но, как то странно. В режиме отладки все работает. В обычном режиме строка
Set view = uiview.View
дает ошибку мол объекта нема <_<
Как заставить работать или подскажите плиз решение получше.
Код:
Sub Click(Source As Button)
Dim w As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = w.CurrentDocument
'Set doc = uidoc.Document
Dim vl As Variant
Dim fl As Boolean
fl = w.DialogBox( "rep_2date_form" , True , True , True , True , True , False , "Отчет")
End Sub
код хотспота
Код:
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim uiview As NotesUIView
Dim view As NotesView
Dim formula As String
Set uidoc = ws.CurrentDocument
Set uiview = ws.CurrentView
formula = {SELECT form="uregcard" & date_obr_1>[} & uidoc.FieldGetText("date1") & {] & date_obr_1<[} & uidoc.FieldGetText("date2") & {]}
Set view = uiview.View
view.SelectionFormula = formula
view.Refresh
Call ws.ViewRebuild
End Sub
Идея такая. Юзверь щелкает по кнопке акшина во вьюхе. Открывается форма. Юзверь выбирает 2 даты с и по щелкает по хотспоту и автоматически производится фильтрация в диапазоне этих дат.
Но, как то странно. В режиме отладки все работает. В обычном режиме строка
Set view = uiview.View
дает ошибку мол объекта нема <_<
Как заставить работать или подскажите плиз решение получше.