1,2,3,....31 diye etiketlendirdiğiniz etiketlerin adları g1,g2 ,g3.....g31 diye adlandırın. Sonra

Alıntı:Private Sub Report_Open(Cancel As Integer)
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

kodu rapora yazın.

---

Pardon ya )) cevabı verilmiş.