AccessTr.neT
Aylık ve Yıllık Rapor Yazdırma - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Aylık ve Yıllık Rapor Yazdırma (/konu-aylik-ve-yillik-rapor-yazdirma.html)

Sayfalar: 1 2 3

Cvp: Aylık ve Yıllık Rapor Yazdırma - tamyoltornistan - 15/12/2009

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?

Cvp: Aylık ve Yıllık Rapor Yazdırma - esrefigit - 15/12/2009

istediklerin yapıldı aylık ve senin ilk mesaja göre yıllık rapor eklendi

Cvp: Aylık ve Yıllık Rapor Yazdırma - esrefigit - 15/12/2009

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


Cvp: Aylık ve Yıllık Rapor Yazdırma - tamyoltornistan - 15/12/2009

hocam vallahi süpersiniz yaa..!!!Img-cray
beni o kadar büyük bir dertten kurtardınız ki anlatamam..!!

saygılar sevgiler hep sizinle olsun..!!!!Angel

Cvp: Aylık ve Yıllık Rapor Yazdırma - benremix - 15/12/2009

Sn esrefigit katkı ve paylaşımlarınızdan dolayı teşekkürler. Saygılar...

Cvp: Aylık ve Yıllık Rapor Yazdırma - esrefigit - 16/12/2009

ö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