カレンダーコントロールで複数のテキストボックスに日付入力

質問

カレンダーコントロールで複数のテキストボックスに日付入力

役に立った：2件

質問者：zihard99
投稿日時：2003/10/25 06:41
困り度：

アクセスでカレンダーコントロールを使用し、タイトルのことをしたいと考えています。

カレンダーコントロールをクリックする前にキャレットがあったコントロールにカレンダーコントロールのValueを代入したいと考えています。

複数のテキストボックスなのでそのコントロールの名前を取得しないといけないと思いますが、コードをどう書くのかがわかりません。

可能な限りコードで示して頂けるとわかりやすく助かります。丁寧に教えて頂ける方、よろしくお願いします。

この質問への回答は締め切られました。

回答(1件)

No.1ベストアンサー20pt

回答者：tksoft
回答日時：2003/10/25 07:19

まず。適当な非表示のテキストボックスを一つ作成します。これは、カレンダーコントロールをクリックする直前のコントロール名を記憶させるものなので、グローバルな変数でもOKです。

例えば、値を入力するためのテキストボックスを3つ（それぞれ、TextBox1、TextBox2、TextBox3）と名前保存用のテキストボックス（SaveBox）、

TextBox1、TextBox2、TextBox3それぞれのフォーカス喪失時に次のようなコードを書き、自分の名前を保存します。

Private Sub TextBox1_Exit(Cancel As Integer)
Me("SaveBox") = Me("TextBox1").Name
End Sub

これで、カレンダーをクリックする前に最後にフォーカスのあったコントロール名が分かります。あとは、このコントロールにカレンダーの値を代入すればいいだけです。

Private Sub Calendar0_Click()
Me(Me("SaveBox").Value) = Calendar0.Value
End Sub

通報する