Alıntı:Private Sub Report_Open(Cancel As Integer)kodu rapora yazın.
Dim gTarih As Date
Dim gTarih2 As Date
Dim gMetin
Dim i As Integer
gMetin = Forms![datapuantaj]![Monthly]
gTarih = DateSerial(Year(gMetin), Month(gMetin), 1)
For i = 1 To 31
If Weekday(DateAdd("d", i - 1, gTarih)) = 1 Then
Me("g" & i).BackColor = vbBlack
Me("g" & i).ForeColor = vbWhite
Else
Me("g" & i).BackColor = vbWhite
Me("g" & i).ForeColor = vbBlack
End If
Next
End Sub
Pardon ya )) cevabı verilmiş.