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

質問

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

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

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

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

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

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

回答No.3

imogasi · ベストアンサー

何を聞いて居るか、どうしてそんなことをするのかよくわからない。
フォームに（私の場合フォーム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
も旨く行くようですがね。

お礼

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

回答No.2

shinkami

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

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

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

お礼

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

回答No.1

m3_maki

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

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

こちらを参考に。

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

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