アクセス　カンレンダーコントロール

解決済

質問者：yuayua-tt
質問日時：2011/07/08 15:54
回答数：3件

アクセス2000です。カレンダーコントロール10.0

カレンダーの日付をクリックして、別のテキストに日付を代入する。という一般的なやり方です。

テキスト名「受注日」とコマンドボタンを設けました。

コマンドボタンのクリック時イベントに　　Me.受注日 = Me.コントロール.Value　と記述。

マクロがないとエラーが出てしまいます。

何が間違っているのでしょうか？

通報する

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

質問の本文を隠す

回答 (3件)

ベストアンサー優先
最新から表示
回答順に表示

No.3ベストアンサー

回答者： imogasi
回答日時：2011/07/08 20:25

何を聞いて居るか、どうしてそんなことをするのかよくわからない。

フォームに（私の場合フォーム13に）テキストボックス（私にオ場合テキスト1)１つ、カレンダーコントロール（私の場合Calendar0）を１つ貼り付け。
カレンダーコントロールのクリックイベントに
Private Sub Calendar0_Click()
MsgBox Forms("フォーム13").Calendar0.Value　’＜－確認用
テキスト1.Value = Forms("フォーム13").Calendar0.Value
End Sub
で旨くいきましたが。
ーー
コマンドボタンを貼り付けて
Private Sub コマンド3_Click()
MsgBox Forms("フォーム13").Calendar0.Value
テキスト1.Value = Forms("フォーム13").Calendar0.Value
End Sub
も旨く行くようですがね。

- 0
- 件

通報する

この回答へのお礼

おかしな質問なのに明確な回答ありがとうございました。
見事にできました。ありがとうございました。

通報する

お礼日時：2011/07/11 13:17

No.2

回答者： shinkami
回答日時：2011/07/08 16:41

>Me.コントロール.Value

このMe.コントロールはコマンドボタンの値ではないでしょうか

カレンダーにも他のテキストボックスと同じように名前を付けます。
例えば［基準日］としたとします。

Private Sub 受注日_Click()
受注日= 基準日
End Sub

- 0
- 件

通報する

この回答へのお礼

いつもありがとうございます。
私のまとまりのない質問に、すばやく回答してくださりありがとうございました。

通報する

お礼日時：2011/07/11 13:15

No.1

回答者： m3_maki
回答日時：2011/07/08 16:28

> コマンドボタンのクリック時イベントに　　Me.受注日 = Me.コントロール.Value　と記述。

プロパティの「イベント」欄に、直に書いたのかな？

こちらを参考に。

イベントプロシージャの記述
http://www.accessclub.jp/vba/vba_003-2.htm

Access VBA をあまりご存知ないのでしたら
http://www.accessclub.jp/vba/index.html
こちらなどで軽く勉強してみるのも良いでしょう。