parametreli sorgu + rapor

merhaba arkadaşlar,
bir okul için öğrenci belgesi programı yaptım. benim sorum şöyle ana formda öğrenci belgesini tıkladığında premetreli sorgu çalışıp öğrenci numarası sorarak öğrenci belgesi raporunu getirmektedir ancak eğer öğrenci mezun olmuşsa "öğrenci mezundur,belge verilemez." uyarısını vermesini istiyorum. kaç gndür sitenizdeki örneklere bakıyorum ama bir türlü bir kod bulamadım. yardımcı olan arkadaşlara şimdiden çok teşekkür ederim.

Ek Dosyalar

Makro ve Katıştırılmış Makro kullanmayın.

varmi = Dcount("ogrenci_no_alani","ogrencilerin_oldugu_tablo",[ogrenci_no_alani]='" & metin_kutusu_adi & "')



if (varmi>0) then

    ' raporu açtır

else

    ' mesaj verdir böyle öğrenci yok diye

end if

akıldan yazdım hatalar olabilir.

NOT : Belirtmeyi unutmuşun tablodaki alan Metin formatında ise DCount komutundaki tek tırnaklar olmalı eğer Sayı türünde ise tek tırnakları silersiniz.

Ekteki Örneği inceleyiniz.
Rapora parametre girmek yerine öğrencci bilgileri formundan seçtiğiniz öğrenciye ait belgeyi yazdırabilirsiniz.
Böylece mezundur demesine gerek kalmaz.

Ek Dosyalar

süpersiniz, hızlı cevabınız için çok teşekkür ederim. kodları deneyip size döneceğim..

sayın Kur@l kardeşim teşekkür ederim cevabınız için ama ben ana formda öğrenci belgesi butonuna tıklayınca yapmak istiyorum. alpeki99 kardeşim gönderdiği kodları ekledim ama çalıştıramadım.

Raporunuzu sizin ilk çalışmanızdaki halinde iken aşağıdaki kodu ekleyerek deneyiniz. İstediğiniz Gibi Olacaktır.
Sorgunuzuda Bu cümle ile değiştirin.

SELECT ogrenciBilgileri.siraNo, ogrenciBilgileri.ogrenciNo, ogrenciBilgileri.adi, ogrenciBilgileri.soyadi, ogrenciBilgileri.babaAdi, ogrenciBilgileri.dogumYeri, ogrenciBilgileri.yuksekOkulu, ogrenciBilgileri.bolumu, ogrenciBilgileri.sinifi, ogrenciBilgileri.mezun

FROM ogrenciBilgileri

WHERE (((ogrenciBilgileri.ogrenciNo)=[Öğrenci Noyu Giriniz?]) AND ((ogrenciBilgileri.mezun)=No));

Private Sub Report_NoData(Cancel As Integer)

MsgBox "Yazdığınız Numaralı Öğrenci Yok Yada Mezun Olmuştur."

Cancel = True

End Sub