Kod:
If Me("Etiket" & strNum).Caption = gun2 And rst!Bitti = True Then
Me("Etiket" & strNum).BackColor = 255
[/quote]
bu kodun meali nedir acaba???
strNum ne demek? rst!Bitti ne demek?
istediklerin yapıldı aylık ve senin ilk mesaja göre yıllık rapor eklendi
güncelleme
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
hocam vallahi süpersiniz yaa..!!!
beni o kadar büyük bir dertten kurtardınız ki anlatamam..!!
saygılar sevgiler hep sizinle olsun..!!!!
Sn esrefigit katkı ve paylaşımlarınızdan dolayı teşekkürler. Saygılar...
örnekteki ve sonraki verdiğim kodda hatalar vardı ardarda gelen verilerde kutuları boşaltma yapmıyordu ondan dolayı elinizdeki kodu bununla değitirirn
Kod:
Option Compare Database
Dim i As Integer
Dim ay As Integer
Private Sub Ayrıntı_Print(Cancel As Integer, PrintCount As Integer)
For i = 1 To 12 Step 1
For ay = 1 To 4 Step 1
Me("m" & i & ay).BackColor = 16777215
Me("m" & i & ay).Value = Null
Next ay
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