AccessTr.neT
rapor vb codu - 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ığı: rapor vb codu (/konu-rapor-vb-codu.html)

Sayfalar: 1 2


rapor vb codu - moskovic - 06/12/2010

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




Cvp: rapor vb codu - Seruz - 06/12/2010

Ö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.


Cvp: rapor vb codu - moskovic - 06/12/2010

hocam ornek ekte


Cvp: rapor vb codu - new_man - 06/12/2010

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


Cvp: rapor vb codu - moskovic - 06/12/2010

syn new man konuyu yanlis yere acmisiniz....


Cvp: rapor vb codu - Seruz - 06/12/2010

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