Önemli ! Kritere göre rapor yazdırma...

[muratdemirtaş1]

Sevgili arkadaşlar sizlerden bir ricam var;
Bir proje hazırladım herşeyi yaptım proje çalışıyor gayet güzel ancak bir şey daha ekleyip bitirmek istiyorum oda bir form açıp orada "açılan kutu" içindeki satırı seçip seçilen satıra ait bilgi sorgusunu bir düğmeyle oluşturduğum raporda göstermek. Düğme tamam raporu açıyor o sorun değil de "açılan kutu" da seçtiğim kriteri nasıl raporda aktif edeceğim.
İşte bunu yapamadım yardımcı olursanız sevinirim. Bir de oluşumunu adım adım nereye neyi yazacağımı anlatırsanız inanınki minnetar olurum.
Hepinize çok teşekkür ederim.

 

[nafri37]

örnek eklersen eminimki yardımcı olacaklar vardır

 

[N.Ziya Hiçdurmaz]

Private Sub ComboBox1_Change()
Cells(ComboBox1.ListIndex + 1, 1).Select
End Sub

Private Sub CommandButton1_Click()
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("rapor")
s2.Range("a1:d100").Clear
s1.Select
ActiveCell.Copy
s2.Range("a1").PasteSpecial
End Sub
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "a1:a50"
End Sub

 

[muratdemirtaş1]

Buyrun projenin ilgili kısmı.

Projenin istediğim işi yapması gereken kısımlarını olusturup yolladım.
Bi inceleyip sonuca ulaştırırsak sevinirim. Ben birazda öğrenmek için adım adım çözüm rica ediyorum mantık ve çözümü anlamak daha iidir her zaman.
Balık vermek yerine tutmayı öğretmen hayat kurtarır.
Teşekkür ederim.

 

[beab05]

Sorgunuzdaki danışman öğretmenin ölçüt kısmına

[forms]![form1]![açılan kutu3]

yazarsanız açılan kutudan seçtiğiniz öğretmenin bilgileri rapora gelir..

 

[attila52]

Private Sub Rapor_Click()
On Error GoTo Err_afrapor_Click
If MsgBox("RAPOR AÇILSIN MI?", 36, "ÖNİZLEME") = 6 Then

Dim stDocName As String
stDocName = "senin rapor adın"
'Kriter verilen DenetimAdı otomatik sayı,ID gibi yinelenmeyen alanlardan seçilecek
DoCmd.OpenReport stDocName, acViewPreview, , "[FISNO]=Forms![SeninFormununAdı]![FISNO]"

Exit_afrapor_Click:
Exit Sub

Err_afrapor_Click:
MsgBox Err.Description
Resume Exit_afrapor_Click

End If
End Sub

yukarıda ki FİŞNO dediği ilk alan raporun üstündeki text kutusu ve forms![FİŞNO] dediği alan ise senin formunun üstündeki Açılankutunun ismi böylece raporun sorgusunu kısıtlamadan yani raporu başkabiryerden açmaya kaktığında sana parametre sormayacaktır.

 

[assenucler]

Soru

Sn. beab05

Rica etsem, bir örnek ekler misiniz? Bu konularda yeterli bilgiye sahip değilim. Dediğinizi sorguya yaptım ancak rapor almak istediğimde rapor sütün başlıkları çıkıyor, danışman öğretmenin dökümü çıkmıyor.

Yardımınız için önceden teşekkürler.

 

[muratdemirtaş1]

Arkadaşlar çözdüm yardımlarınız için teşekkür ederim. makbule geçti gerçekten.
Soru 2: Form1 için yapılan işlem başarılı oldu ancak, KAYIT tablosunda EVET/HAYIR sütunları mevcut ben bunlar içinde bir "açılan kutu" oluşturup raporda bunlarıda göstermek istiyorum. yani danışman öğretmen seçtikten sonra seminerin adınıda seçip raporda şunun olmasını istiroyum. Örnek: Öğrenci İle İletişim seminerini seçenlerin danışman öğretmeni avidan ülkem olanlar raporda gösterilsin.
Vallahi iyi işmiş yaa hazırdan faydalanıyorum, kusura bakmayın arkadaşlar. ilginize teşekkür ediyorum.

 

[muratdemirtaş1]

Sn. assenucler;
Ben uyguladım sonuç başarılı oldu. Bir yerde hata olmalı sanırım.

 

[assenucler]

Cevap

Sn. muratdemirtaş

Rica etsem, son halini yükleyebilir misin? Bir saattir uğraştım bir türlü çözemedim. Hatamı da anlıyamadım. Teşekkürler.

 

[beab05]

Sn. beab05

Rica etsem, bir örnek ekler misiniz? Bu konularda yeterli bilgiye sahip değilim. Dediğinizi sorguya yaptım ancak rapor almak istediğimde rapor sütün başlıkları çıkıyor, danışman öğretmenin dökümü çıkmıyor.

Yardımınız için önceden teşekkürler.

Siz veri olmayan bir öğretmen seçtiniz sanırım. mesela Nuri Çetin isimli öğretmeni seçin açılan kutudan...

 

[assenucler]

Yanıt

Sn. beab05

Daha çok ekmek yememiz gerekiyor. Çok basit bir noktayı dahi düşünemedim. Sağolasın. Tekrar teşekkürler.

 

[muratdemirtaş1]

Uygulama örneği

Sn assenucler;

Dosyayı yolladım bi bakın. Ben de sorun olmadı uyguladım aynen çalışıyor.

 

[muratdemirtaş1]

2. sorumun cevabı uzun olacak sanırım.
Hala cevap gelmediğine göre biraz güç bir soru oldu galiba.

 

[beab05]

Sorunuzu doğru anladıysam....

Not: Evet ve hayıra göre olan kriteri değiştirmek isterseniz
IIf([forms]![form1]![ilet]="evet";0;-1)
burdaki 0 ve -1 in yerlerini değiştiriseniz düzelir sorguda öğrenciiletişimin ölçütündedir...

 

[muratdemirtaş1]

Sn. beab05;

Dur bakayım projenin içinde bir deneyeyim nolacak.
Birşey sorayım "evet" olanları alıcak tamam ancak ;0;-1 ne işe yarıycak anlatırmısın.

 

[muratdemirtaş1]

Sn. beab05 sorgu da tek alana yazdığımda kod çalışıyor ancak iki alana yazdığımda hata veriyor yani hata dediğim evet olanları istediğimde hangi değişikliği yaparsam yapayım yani öğretmeni değiştirdim seminer adını değiştirdim falan ancak rakamlar aynı kalıyor. İstediğime göre dosyayı yolladım tekrardan.

 

[muratdemirtaş1]

Sn beab05;
ayrıca yolladığım dosyada birden fazla seçenek var bunlardan ancak bir tanesini sıralıycak bana. Şöyleki danışman öğretmen avidan ülkem aşağıdaki seçeneklerden öğrenci ile iletişim seçeceğim. Sadece birtanesine evet demem gerekiyor ve sadece onun olduğu listeyi vermesi gerekiyor. Yani diğer seçenekler alınmaması gerekiyor.