Teşekkür ederim. Yalnız Benremix öyle bir soru sordu ki, bütün günümü ona harcadım. Hala da bir adım yol ilerleyebildim.
Olay dediğim gibi oluyor. Fakat bir durum var. Raporun biçimlendirildiğinde olay yordamına yazılan kodlar şöyle:
Kod:
Private Sub Ayrıntı_Format(Cancel As Integer, FormatCount As Integer)
Dim a As Integer
Me.Etiket44.Caption = ""
Me.Etiket45.Caption = ""
'DoCmd.GoToRecord , , acNext
Me.Etiket62.Caption = Metin52
a = Me.Etiket62.Caption
'DoCmd.GoToRecord , , acPrevious
If a > 30 Then
Me.Etiket44.Caption = "Fatura Tarihi Fatura No Tutarı"
Me.Etiket45.Caption = ""
End If
End Sub
Burada tek sıkıntı, biçimlendiğinde oluşan olay, bir sonraki kayıtta ancak doğru sayıyı veriyor. Çünkü biçimlendiğinde olayından başka kod yazacak yer yok. Olay da gerçekleştiğinde iş işten geçmiş oluyor. Bu nedenle a değişkenine aktardığım metin52 değeri doğru kayıt sayısını gösterirken, rapor üzerinde göreyim diye koyduğum etiket 62 sayısı bir önceki kaydın değerini veriyor. Yani a değişkeni her zaman bir kayıt geriden geliyor. O nedenle, (hata verdiği için durdurduğum) önceki kayıt, sonraki kayıt kodları ile çözüm aradım. Yani bir kayıta gittiğimde hemen sonraki kayda gidecek, değeri a değişkenine atayacak sonra da gelip o değişken değeri üzerinden if mantığıyla etiketin içini doluracak ya da boşaltacaktı. Herşey çalışıyor fakat bir sonraki kayıtta
)) Mesela 35 kayıt olan ikinci rapor, üçüncüye geçince işlediği için 2.nci sütunun etiketi doluyor. Hala uğraşıyorum. Yardım olacak önerilere açığım. Örnek de ekte.
raporda üç sütun.rar
(Dosya Boyutu: 222,07 KB | İndirme Sayısı: 10)
İnadına, ille de Accesstr.net...
#13
