Skip to main content

AccessTr.neT


rapor vb codu

rapor vb codu

Çözüldü #1
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

moskovic, 18-01-2010 tarihinden beri AccessTr.neT üyesidir.

Access'e olan heyecanimi kabartan Tek Adres Burası...
Cevapla
Çözüldü #2
Ö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.
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla
Çözüldü #3
hocam ornek ekte
.rar FPS .rar (Dosya Boyutu: 875,38 KB | İndirme Sayısı: 5)
moskovic, 18-01-2010 tarihinden beri AccessTr.neT üyesidir.

Access'e olan heyecanimi kabartan Tek Adres Burası...
Cevapla
Çözüldü #4
selam
tasarruf teşvik için elimde data bar bunların standart formları var ttk003 ttk004 ttk005 gibi bunları nasıl yapabilirim
Cevapla
Çözüldü #5
syn new man konuyu yanlis yere acmisiniz....
moskovic, 18-01-2010 tarihinden beri AccessTr.neT üyesidir.

Access'e olan heyecanimi kabartan Tek Adres Burası...
Cevapla
Çözüldü #6
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
.rar FPS_Seruz.rar (Dosya Boyutu: 380,51 KB | İndirme Sayısı: 3)
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da