Access VBA質問箱 IV

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

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


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

3577 / 9994

←次へ　｜　前へ→


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

メイ子 - 07/7/9(月) 11:05 -


	引用なし

	パスワード

▼hatena さん：
丁寧なご教示ありがとうございます。

>ちょっと分かりにくいしので、Tagプロパティにも日付を格納するように
>CalUpdate を改良しました。これで後から日付を利用するときシンプルな
>コードになりますので。
ありがとうございます。.Tagプロパティに格納するという形だと理解しやすくなりました。
早速コードをコピーして実行してみましたら、
RS.FindFirst "出席日=#" & Split(.Tag, "#")(1) & "#"
のところで、「インデックスが有効範囲にありません」と表示されます。
前回のように
Private Sub Form_Load()
　　SetCalendar Year(Date), Month(Date)
End Sub
の部分が消えているということはありません。

Debug.Print .Tag
を付け加えて実行してみましたら、ウィンドウに
2007/04/01
とだけ表示されています。

下記のすべてのsub、functionを記述すればよいのですよね？
Private Sub Form_Load()
Private Function Day_Click(D As Date)
Private Function SetCalendar(y As Integer, m As Integer)

Private Sub Form_Current()
Private Sub CalUpdate(y As Integer, m As Integer)
Private Sub SetColor(y As Integer, m As Integer)

下記の二つは中身が似ているのですが、functionとsubで違う使い方になっているということですね？
相互関係がわからなくなってきました。申し訳ありません。もう一度ご教示お願いいたします。
Private Function SetCalendar(y As Integer, m As Integer)
Private Sub CalUpdate(y As Integer, m As Integer)

2,439 hits

▼

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