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..
pivottable rapor
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.
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.
Herkes aynı şeyi düşünüyorsa, kimse yeterince düşünmüyor demektir
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
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
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
Herkes aynı şeyi düşünüyorsa, kimse yeterince düşünmüyor demektir
tekrar çok teşekkür ederim tüm sorularımı sabır ile cevapladığınız için bilginize emeğinize sağlık
Konuyu Okuyanlar: 1 Ziyaretçi