2つの編集可能な日付ピッカーフィールド(Start_Date & End_Date)とボタンを持つフォーム(TrimQuery)があります。ボタンを押すと、フィールド(Trim_Date)をポーリングして、(TrimQuery)フォームで指定した日付の間にすべてのドキュメントを表示する別のフォーム(Trim Track)から既存のビュー(All Trim Tracking)をプルする必要があります日付ピッカーを使用します。私は以下のコードを掲載しました。日付ピッカーを使用した選択式
2つの日付間でドキュメントを表示する別の方法はありますか?私の問題の大半は、コードで投稿した選択式にあると思いますが、間違っていることがわかります。私は他の例からコードのビットをつかむことを試みた。これを選んでください。私が得ることができるどんな助けにも感謝します。ありがとう。
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