| |
>下記の場所に入れました。直前とは、どこに入れることになりますか？
意味を取り違えてました。現在の位置でいいです。
>後、もう一つ難問ができてしまいました。
>休日だけ文字の色を変える必要があると気がついたので、下記のようにしてみましたが、無反応です。「休日一覧」テーブルには「ID」と「休日」というフィールドがあり、「休日」は日付型です。
>どこを直したらよろしいでしょうか？度々申し訳ありません。
とりあえず下記のように修正してみてください。
>Private Sub SetCalendar(y As Integer, m As Integer)
>
>Dim i As Integer, j As Integer, FirstDay As Date, s As Integer
>
> For j = -3 To 2
> For i = 1 To 42
> With Me(Chr(Asc("d") + j) & i)
> .Caption = ""
.OnClick = ""
.ForeColor = vbBlack
> End With
> Next
> Next
>
>Dim db As DAO.Database
>Dim RS As DAO.Recordset
>Dim strSQL As String
> strSQL = "SELECT * FROM 休日一覧 "
> Set db = CurrentDb()
> Set RS = db.OpenRecordset(strSQL, dbOpenDynaset, dbReadOnly)
>
> 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("d") + j) & i + s)
RS.FindFirst "休日 = #" & FirstDay + i & "#"
If Not RS.NoMatch Then
.ForeColor = vbRed
End If
.Caption = Day(FirstDay + i)
.OnClick = "=Day_Click(#" & FirstDay + i & "#)"
.Tag = FirstDay + i
> End With
> Next
> Next
>
>End Sub
|
|
hatena
- 07/7/11(水) 13:31 -
![[未読]](./data/access/image/read_icon.gif){kind=icon}
