Access VBA質問箱 IV

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

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


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

3631 / 9994

←次へ　｜　前へ→


	【9622】Re:配列変数の引き渡し方

メイ子 - 07/6/26(火) 15:44 -


	引用なし

	パスワード

▼hatena さん
丁寧にお教え頂きありがとうございます。

>YU-TANG さんから、クラスを使う方法が紹介されてますが、
>この程度なら、クラスを使わなくても、
>OnClickに、関数を設定する方法で同じ事を実現できます。

はい、クラスを使う方法をマスターするには少し時間がかかりそうですので、まずはこちらから勉強させて頂きたいと思います。

>以前、似たような物を作ったことが有りますので、
>そのときのコードの今回の仕様に合わせて変更したものを
>出しておきます。参考にしてください。

ありがとうございます。
最初の説明のところに少し書きましたが、この方法で（テーブルの出席日フィールドのデータと比べて）ラベルの色を変えることも可能でしょうか？

>
>フォームモジュール
>
>Private Function Day_Click(D As Date)
>　　Screen.ActiveControl.Value = D
>End Function
>
>Private Function SetCalendar(y As Integer, m As Integer)
>' y年m月の3ヶ月前から2ヶ月後までのカレンダーの日付を設定
>Dim i As Integer, j As Integer, FirstDay As Date, s As Integer
>
>For j = -3 To 2
>　　FirstDay = DateSerial(y, m + j, 1)
>　　s = Weekday(FirstDay)
>　　For i = 0 To Day(DateSerial(y, m + j + 1, -1))
>　　　　With Me(Chr(Asc("E") + j) & i + s)
>　　　　　　.Caption = Day(FirstDay + i)
>　　　　　　.OnClick = "=Day_Click(#" & FirstDay + i & "#)"
>　　　　End With
>　　Next
>Next
>
>End Function
>
>Private Sub Form_Load()
>　　SetCalendar Year(Date), Month(Date)
>End Sub
>
>
>フォームの読み込みに、ラベルのクリック時プロパティにDay_Click関数を設定してます。
>そのときに日付を引数として渡してます。

2,332 hits

▼

【9611】配列変数の引き渡し方 メイ子 07/6/25(月) 15:40