Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

2883 / 9994

←次へ　｜　前へ→


	【10376】他のボックス結果をコマンドボタンに。

heavenlycastle2003

- 08/5/13(火) 8:49 -


	引用なし

	パスワード

・テキストボックスにて年月日の年を表示。(例、2008年)
・コンボボックスにて、月を表示。(1月～12月)
上記の結果を、コマンドボタンに表示させたい。

前回のアドバイスでフォーム読み込み時のプログラム作成を終えました。
下記のものは、2008年5月のカレンダーを表示するプログラムです。
・予め年を手入力したテキストを用意。
・コンボボックスにて1月を選択した時に1月のカレンダーをコマンドボタンに。
他の月を選択した際にはその月のカレンダーを。
テキストが2007年、コンボボックスが5月だったら、そのカレンダーになるようにしたいと考えています。

どなたかお知恵を拝借出来ればと思ってます。　宜しくお願いします。

Option Compare Database
>Option Explicit
>
>Private Sub Form_Load()
>
>　　Call MakeCalender(2008, 5)
>
>End Sub
>
>
>Sub MakeCalender(CurrentYear As Long, CurrentMonth As Long)
>Dim i As Long
>Dim First_Day As Long　　　　 '初日が何番目のコントロールか
>Dim Last_Day As Long　　　　　'末日が何番目のコントロールか
>
>　　First_Day = Weekday(DateSerial(CurrentYear, CurrentMonth, 1))
>　　Last_Day = DateDiff("d", DateSerial(CurrentYear, CurrentMonth, 1), _
>　　　　　　　 DateSerial(CurrentYear, CurrentMonth + 1, 0)) + First_Day
>　　　　　　　　　　　　　　
>'初日が入るまでは空白を代入
>　　For i = 1 To First_Day - 1
>　　　　Me.Controls("C" & i).Caption = ""
>　　Next i
>
>'初日から末日までは日付を代入
>　　For i = First_Day To Last_Day
>　　　　Me.Controls("C" & i).Caption = i - First_Day + 1
>　　Next i
>
>'末日が入るまで空白を代入
>　　For i = Last_Day + 1 To 42
>　　　　Me.Controls("C" & i).Caption = ""
>　　Next i
>
>End Sub

315 hits

▼

【10376】他のボックス結果をコマンドボタンに。 heavenlycastle2003 08/5/13(火) 8:49