Takenoff Labs

Lotus Notes/Domino に関する Tips や、クラシックの名曲などを紹介します

[Notes/Domino] タイムトラッカーの初期位置を変更する方法

日付/時刻フィールドで「日付/時刻制御」を選択し、時刻のみの表示にした場合、タイムトラッカーから時刻を選択することができます。このとき、何もしない状態では、タイムトラッカーの初期位置は現在時刻となります(下図参照)。

時刻選択(初期状態)

たまにお客さんから、このタイムトラッカーについて、「入力する時間帯によってはスクロール量が多くなるので、初期位置を○時にしてほしい」「でも初期値(Default Value)はセットしないでね」、という要望(=難題)が出ることがあります(涙

これを実現するには、フィールドの Entering イベントに、以下のようなコードを入力すると、綺麗にできるようです。

Sub Entering(Source As Field)
	Dim ws As New NotesUIWorkspace
	Dim doc As NotesDocument
	
	Set doc = ws.CurrentDocument.Document
	
	If Cstr(doc.フィールド名(0)) = "" Then
		doc.フィールド名 = Timenumber(9,0,0)
		doc.フィールド名 = ""
	End If
End Sub

いったん値を入れて、すぐにクリアするところがミソです。上記コードでは、フィールドが未入力状態なら、タイムトラッカーの初期位置が 09:00 になります。

時刻選択(修正後)

応用すれば、15分単位にする、とかも簡単にできるかと思います。

1 Star2 Stars3 Stars4 Stars5 Stars (1 votes, average: 5.00 out of 5)
読み込み中...

トラックバック

トラックバックはありません

コメント

コメントはありません

※コメントは承認制となっております。管理者が承認するまで表示されません。申し訳ありませんが、投稿が表示されるまでしばらくお待ちください。





(以下のタグが使えます)
<a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

For spam filtering purposes, please copy the number 8728 to the field below:

^
×