Access VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3593 / 9994 ←次へ　｜　前へ→
【9660】Re:配列変数の引き渡し方
質問  メイ子  - 07/7/5(木) 14:49 -
引用なし
パスワード
   ▼hatena さん：
ご教示ありがとうございます。

>9616 で回答したコードは設定してありますよね。
Private Sub Form_Load()
　　SetCalendar Year(Date), Month(Date)
End Sub
気づかぬうちに上記部分が消えていましたので、書き直しましたら、エラーはなくなりました。そして、色も出欠テーブルと一致する日にちに赤が表示されるようになりました。ありがとうございました。

今度は曜日ごとの色付けをするために下記３行（下から６行目以降）を追加してみました。.onclickの使い方が把握できていないためか、意味不明なコードになってしまっているようです。
If WeekdayName(Weekday(.OnClick)) = Me.曜日 Then　'追加
のところで「型が一致しません」とエラーが出て、
WeekdayName(Weekday(.OnClick)) はウォッチが不正ですと表示されています。
どう直したらよろしいでしょうか？
度々申し訳ありません。よろしくお願いいたします。

For j = 0 To 1
　　　　For i = 1 To 42
　　　　　　With Me(Chr(Asc("d") + j) & i)
　　　　　　　　If .OnClick= "" Then
　　　　　　　　　 .BackColor = vbWhite
　　　　　　　　Else
　　　　　　　　　　RS.FindFirst "出席日=#" & Split(.OnClick,"#")(1) & "#"
　　　　　　　　　　If RS.NoMatch Then
　　　　　　　　　　　　.BackColor = vbWhite
　　　　　　　　　　ElseIf RS!出欠 Then
　　　　　　　　　　　　.BackColor = vbBlue
　　　　　　　　　　Else
　　　　　　　　　　　　.BackColor = vbRed
　　　　　　　　　　End If
　　　　　　　　End If

　　　　　　　　If WeekdayName(Weekday(.OnClick)) = Me.曜日 Then　'追加
　　　　　　　　　　.BackColor = vbBlue
　　　　　　　　End If

　　　　　　End With
　　　　Next
　　Next
2,464 hits
▼ 【9611】配列変数の引き渡し方 メイ子 07/6/25(月) 15:40 質問[未読]
【9613】Re:配列変数の引き渡し方 YU-TANG 07/6/26(火) 0:26 回答[未読]
【9621】Re:配列変数の引き渡し方 メイ子 07/6/26(火) 15:38 お礼[未読]
【9616】Re:配列変数の引き渡し方 hatena 07/6/26(火) 2:30 回答[未読]
【9622】Re:配列変数の引き渡し方 メイ子 07/6/26(火) 15:44 質問[未読]
【9624】Re:配列変数の引き渡し方 hatena 07/6/26(火) 20:15 回答[未読]
【9630】Re:配列変数の引き渡し方 メイ子 07/6/28(木) 16:46 質問[未読]
【9631】Re:配列変数の引き渡し方 hatena 07/6/28(木) 21:55 回答[未読]
【9634】Re:配列変数の引き渡し方 メイ子 07/6/29(金) 11:22 質問[未読]
【9635】Re:配列変数の引き渡し方 hatena 07/6/30(土) 8:09 回答[未読]
【9643】Re:配列変数の引き渡し方 メイ子 07/7/2(月) 21:05 質問[未読]
【9659】Re:配列変数の引き渡し方 hatena 07/7/5(木) 10:56 回答[未読]
【9660】Re:配列変数の引き渡し方 メイ子 07/7/5(木) 14:49 質問[未読]≪
【9662】Re:配列変数の引き渡し方 hatena 07/7/5(木) 21:45 回答[未読]
【9666】Re:配列変数の引き渡し方 メイ子 07/7/6(金) 17:39 質問[未読]
【9670】Re:配列変数の引き渡し方 hatena 07/7/7(土) 11:08 回答[未読]
【9676】Re:配列変数の引き渡し方 メイ子 07/7/9(月) 11:05 質問[未読]
【9677】Re:配列変数の引き渡し方 hatena 07/7/9(月) 11:38 回答[未読]
【9682】Re:配列変数の引き渡し方 メイ子 07/7/10(火) 14:20 質問[未読]
【9683】Re:配列変数の引き渡し方 hatena 07/7/10(火) 14:40 回答[未読]
【9685】Re:配列変数の引き渡し方 メイ子 07/7/10(火) 19:03 質問[未読]
【9689】Re:配列変数の引き渡し方 hatena 07/7/11(水) 13:31 回答[未読]
【9691】Re:配列変数の引き渡し方 メイ子 07/7/11(水) 14:01 お礼[未読]
【9703】Re:配列変数の引き渡し方 メイ子 07/7/21(土) 12:23 質問[未読]
【9704】Re:配列変数の引き渡し方 hatena 07/7/21(土) 22:20 回答[未読]
【9705】Re:配列変数の引き渡し方 メイ子 07/7/23(月) 12:01 質問[未読]
【9706】Re:配列変数の引き渡し方 hatena 07/7/23(月) 15:31 回答[未読]
【9708】Re:配列変数の引き渡し方 メイ子 07/7/25(水) 15:10 質問[未読]
【9709】Re:配列変数の引き渡し方 hatena 07/7/26(木) 9:51 回答[未読]
【9712】Re:配列変数の引き渡し方 メイ子 07/7/26(木) 18:20 お礼[未読]
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3593 / 9994 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078201
(SS)C-BOARD v3.8 is Free