AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

Aylık ve Yıllık Rapor Yazdırma

1 2 3
15/12/2009, 00:57

tamyoltornistan

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?
15/12/2009, 15:13

esrefigit

istediklerin yapıldı aylık ve senin ilk mesaja göre yıllık rapor eklendi
15/12/2009, 16:51

esrefigit

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
15/12/2009, 20:24

tamyoltornistan

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

saygılar sevgiler hep sizinle olsun..!!!!
15/12/2009, 20:44

benremix

Sn esrefigit katkı ve paylaşımlarınızdan dolayı teşekkürler. Saygılar...
16/12/2009, 09:34

esrefigit

ö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
1 2 3