pivottable rapor - Baskı Önizleme

pivottable rapor - 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ığı: pivottable rapor (/konu-pivottable-rapor.html)

Sayfalar: 1 2

Cvp: pivottable rapor - bulenttum - 09/01/2014

sn. Kamiljan Jurayev kesinlikle doğru yaptınız siz beni yanlış anladınız ben 4 satırdan bahsetmedim raporda o 4 satırın altındaki örnek mahal adı nın altında sadece 4 tane isim çıkıyor galiba rapor tasarımı ile oynarsam olur diye düşünüyorum..

Cvp: pivottable rapor - KJS - 09/01/2014

Yok, her şey doğru
mahal_sikayet tabalonuzda:
BlokNo: C1 (8A) ve Daire :1 ait toplam 4 tane kayıt var.

İlk örneğinizde BlokNo:A8A Daire:6 seçmişsiniz, burayı karıştırıyor olmayasınız.

Cvp: pivottable rapor - bulenttum - 09/01/2014

hocam akşam erken kesim malum ortalıkta bir salgın hastalık var bizim ufaklıkta onu kapmış erken çıkmak zorunda kaldım haklısınız gece fazla bilgisayar konsantrsyonundan atlamışım ayrıcada bu yapmış olduğunuz rapor - tablo ilişkisi formun hiç bir yerinde rastlamadım bu raporu yapan ilk sizssiniz teşekkürler son bir soru sormak istiyorum eğer çok sıkmak istemessem sizi frmdeneme formunda tek alana indirmek istersem (bunu başka yerlerdede kullanıcam ) hangi kodu değiştirmem gerekiyor

Private Sub AKBlokNo_AfterUpdate()
Me.AKDaire = ""
Me.AKDaire.Requery
End Sub

Private Sub Komut5_Click()
If IsNull(Me.AKBlokNo) Or IsNull(Me.AKDaire) Then
MsgBox "Blok No veya Daire seçmediniz", vbCritical, "Admin"
Exit Sub
Else
DoCmd.OpenReport "rprDeneme", acViewPreview
End If
End Sub

Cvp: pivottable rapor - KJS - 09/01/2014



Private Sub AKBlokNo_AfterUpdate()

Me.AKDaire = ""

Me.AKDaire.Requery

End Sub

üsteki tüm kodlar, formdan da AKDaire açılan kutusunu ve sol tarafındaki açıklamasını silin.

alttaki kodları, mevcut kodlarınızla değiştirin.



Private Sub Komut5_Click()

If IsNull(Me.AKBlokNo) Then

MsgBox "Blok No seçmediniz", vbCritical, "Admin"

Exit Sub

Else

DoCmd.OpenReport "rprDeneme", acViewPreview

End If

End Sub

Cvp: pivottable rapor - bulenttum - 09/01/2014

tekrar çok teşekkür ederim tüm sorularımı sabır ile cevapladığınız için bilginize emeğinize sağlık