rapor vb codu

merhabalar

RAPOR uzerinde 31 adet metin kutusu var (metin kutularinin isimleri n1,n2,n3..........n31)

toplam isimli metin kutusuna, 31 adet olan bu metin kutulardaki degerleri toplatmak istiyorum. bun icin asagidaki kodu rapor acildiginda yordamina yaziyorum fakat bu kodu kabul etmiyor. acaba sorun nedir ? (ayni kodu form uzerinde denedigimde calisiyor)

For Z = 1 To 31

 

erd = IIf(Controls("n" & Z) = "t", 8, "" _

& Nz(Controls("n" & Z), 0)) + Nz(erd, 0)

toplam = erd 

Next

Örneğiniz olmadığı için hatanın nerede olduğunu ve neleri kontrol ettiğinizi anlayamıyorum. Ancak yazdığınızdan anladığım kadarıyla "toplam = erd" şeklindeki satırı aşağıdaki şekilde değiştirip deneyin.

toplam = toplam + erd 

Bu da olmazsa lütfen örnek dosyanızı ekleyin.

hocam ornek ekte

selam
tasarruf teşvik için elimde data bar bunların standart formları var ttk003 ttk004 ttk005 gibi bunları nasıl yapabilirim

syn new man konuyu yanlis yere acmisiniz....

Sn. new_man, Yeni sorunuz için lütfen yeni konu açınız.

---

Sn. moskovic,
puantajsorgusu adlı sorguda yaptığınız hesaplamada değerlere "" atıyorsunuz.
Bunun yerine 0 atarsanız sorununuz çözülecektir. "" şeklinde atama yapınca NZ fonksiyonu bunu atlıyor.

TatilMesai: IIf([mesai_tanimi]="Tatil Mesaisi";[fazla_mesai];0)

TatilMesaidegeri: IIf([tatilmesai]=0;0;([tatilmesai]+([tatilmesai]*1.5)))

Ayrıca raporda Ayrıntı (detail) kısmının format olayına aşağıdaki şekilde kod yazabilirsiniz.

Private Sub Ayrıntı_Format(Cancel As Integer, FormatCount As Integer)

Dim i

    Me.NormalMesaitoplami = 0

    Me.fazlamesaitoplami = 0

    Me.tatilmesaitoplami = 0

    For i = 1 To 31

        Me.NormalMesaitoplami = Me.NormalMesaitoplami + Nz(Controls("n" & i), 0)

        Me.fazlamesaitoplami = Me.fazlamesaitoplami + Nz(Controls("F" & i), 0)

        Me.tatilmesaitoplami = Me.tatilmesaitoplami + Nz(Controls("T" & i), 0)

    Next

End Sub