두 개의 편집 가능한 날짜 선택 도구 필드 (Start_Date & End_Date)와 단추가있는 폼 (TrimQuery)이 있습니다. 버튼을 누르면 (Trim_Date) 필드를 폴링하고 (TrimQuery) 양식에서 지정한 날짜 사이에 모든 문서를 표시하는 다른 양식 (트림 트랙)에서 기존의 뷰 (모든 트림 추적)를 가져와야합니다. 날짜 선택 도구를 사용합니다. 아래 코드를 게시했습니다.날짜 선택 도구를 사용한 선택 수식
두 날짜간에 문서를 볼 수있는 다른 방법이 있습니까? 내 문제의 대부분은 코드로 게시 한 선택 수식에 있다고 생각하지만 잘못되었다는 것을 알고 있습니다. 나는 다른 예제에서 코드의 비트를 잡으려고했습니다. 이것을 골라라. 내가 얻을 수있는 도움에 감사드립니다. 감사.
Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim workspace As NotesUIWorkspace
Dim doc As NotesDocument
Dim uidoc As NotesUIDocument
Dim StartDate As NotesItem
Dim EndDate As NotesItem
Dim Trimming As String
Trimming = "Trim Track"
Set StartDate = doc.GetFirstItem("Start_Date")
Set EndDate = doc.GetFirstItem("End_Date")
Set uidoc=workspace.CurrentDocument
Set db=session.CurrentDatabase
Set view=db.GetView("All Trim Tracking")
SF = {SELECT Trim_Date = "} & StartDate.Text & "&" & EndDate.Text & {" | (Form = }& Trimming & {")} <==I realize this is incorrect, I don't know the correct formula.
If StartDate.Text <> "" And EndDate.Text <> "" Then
view.SelectionFormula = SF
Else
view.SelectionFormula="select @all"
End If
End Sub