2つの編集可能な日付ピッカーフィールド(Start_DateとEnd_Date)とボタンを持つフォーム(TrimQuery)があります。ボタンを押すだけで、フィールド(Trim_Date)をポーリングし、(TrimQuery)フォームで指定した日付の間のすべてのドキュメントを表示する別のフォーム(TrimTrack)から既存のビュー(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