yıllıktaki kodu bununla değiştirirsen bir de kutulara X işareti koyar
Kod:
Option Compare Database
Dim i As Integer
Dim ay As Integer
Private Sub Ayrıntı_Print(Cancel As Integer, PrintCount As Integer)
Me.m124.Value = Null
For i = 1 To 12 Step 1
If i = Month(Me.Tarih) Then
For ay = 1 To 4 Step 1
Me("m" & i & ay).Value = Null
Me("m" & i & ay).BackColor = 16777215
Next ay
End If
Next i
For i = 1 To 12 Step 1
If i = Month(Me.Tarih) Then
For ay = 1 To 4 Step 1
If Me.hafta = ay Then
Me("m" & i & ay).BackColor = 12632256
Me("m" & i & ay).Value = "X"
End If
Next ay
End If
Next i
End Sub