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.
parametreli sorgu + rapor
Makro ve Katıştırılmış Makro kullanmayın.
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.
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.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
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.
Rapora parametre girmek yerine öğrencci bilgileri formundan seçtiğiniz öğrenciye ait belgeyi yazdırabilirsiniz.
Böylece mezundur demesine gerek kalmaz.
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.
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
Konuyu Okuyanlar: 1 Ziyaretçi