質問: カレンダーコントロールの使い方 フォーム1のイベントで、カレンダーコントロールの挿入されたフォーム2を開く。 日付をクリックした時に、フォーム1のテキストボックスに日付を挿入。 挿入されたと同時に、フォーム2は閉じて、フォーム1がアクティブになる。 という一連の作り方を教えて頂けないでしょうか。 よろしくお願いいたします。
回答: >一連の作り方 フォーム2にボタンを作りフォームを閉じる記述を作りフォームを閉じる前にフォーム1のテキストボックスにカレンダーの値を代入させます。 フォーム2の閉じるボタン名をコマンド1・カレンダー名をcalendar1・フォーム1の日付を代入したいコントロール名をテキスト1とした場合。 コマンド1のクリック時のイベントに private sub コマンド1_click() on error goto err_コマンド1_click forms![フォーム1]![テキスト1] = me!calendar1.value docmd.close exit_コマンド1_click: exit sub err_コマンド1_click: msgbox err.description resume exit_コマンド1_click end sub でフォーム1のテキスト1にフォーム2のcalendar1で選択した日付を代入できます。 フォーム1からフォーム2を開くイベントは下記で dim stdocname as string dim stlinkcriteria as string stdocname = "フォーム2" docmd.openform stdocname, , , stlinkcriteria