rapor kısmında 5 tane K1, K2, K3, K4, ve K5 adlı 5 tane metin kutusu ve tablodan getirdiğim adı, soyadı, kodu(0,2,4,6) ve say olmak üzere 4 tane sutun var.
bu rapora
rapordaki adı veya soyadı sutunlarında "A" VE kodu 0 olanın (say) sutundaki sayıların toplamını
k1 metin kutusuna
adı veya soyadı "A" VE kodu 2 olanın say sutunundaki toplamı
k2 metin kutusuna
......
yazdırmak istiyorum.
Private Sub SayfaÜstbilgisiBölümü_Print(Cancel As Integer, PrintCount As Integer)
Dim i As Long
For i = 1 To 5
Me("k" & i) = 0
Next i
End Sub
Private Sub Ayrıntı_Print(Cancel As Integer, PrintCount As Integer)
Dim i As Long
Dim j As Integer
For i = 1 To 5
For j = 0 To 8 Step 2
If ((Me.adı = "A" Or Me.soyad = "A" ) And Me.kod = j) Then
Me("k" & i) = Me("k" & i) + Nz(Me.sayısı, 0)
End If
next
Next
end sub
bu rapora
rapordaki adı veya soyadı sutunlarında "A" VE kodu 0 olanın (say) sutundaki sayıların toplamını
k1 metin kutusuna
adı veya soyadı "A" VE kodu 2 olanın say sutunundaki toplamı
k2 metin kutusuna
......
yazdırmak istiyorum.
Private Sub SayfaÜstbilgisiBölümü_Print(Cancel As Integer, PrintCount As Integer)
Dim i As Long
For i = 1 To 5
Me("k" & i) = 0
Next i
End Sub
Private Sub Ayrıntı_Print(Cancel As Integer, PrintCount As Integer)
Dim i As Long
Dim j As Integer
For i = 1 To 5
For j = 0 To 8 Step 2
If ((Me.adı = "A" Or Me.soyad = "A" ) And Me.kod = j) Then
Me("k" & i) = Me("k" & i) + Nz(Me.sayısı, 0)
End If
next
Next
end sub