Rapor alırken boş verileri uyarmak istiyorum

30/09/2012, 18:20

kursad05

Merhaba sayın hocalarım,
Rapor alırken rapor almak için oluşturduğum formda bulunan verilerin doldurulması gerektiğini belirtir bir uyarı mesajı yapmayı başardım ancak uyarı mesajına Evet dedikten sonra girilmesi gereken verilerin girilip girilmediğini kontrol etmesini ve eğer girilmediyse tekrar uyarı vermesini bir türlü başaramadım. Yani raporda 5 değer var. 1 Başlama Tarihi
2 Bitiş Tarihi
3 Öğretim Yılı
4 Dönem
5 Kriter

bunlardan herbirisi için veri girilip girilmediğini kontrol edip veri girilmemiş olan varsa uyarı vermesini eğer tüm veriler eksiksiz ise raporu açmasını nasıl sağlayabilirim?
Yardımlarınız için şimdiden teşekkürler. 2003 ve 2007 formatında örneğimi ekledim.
[attachment=16635]
[attachment=16636]
30/09/2012, 19:51

iscinar

cepten yazdıgım ıcın ornegınıze bakamadım ama asagıdakı kodu her metın kutusu ıcın sıralayabılır, msgbox larda bos olan metın kutusunun adın yazabılırsınız.


If metınkutusu IsNulll Then
msgbox "metın kutusu bos"
End If
30/09/2012, 20:03

ozguryasin

iscinar hocamın yazdığı koda ek olarakta.

if isnull (me.metinkutusu) or me.metinkutusu="" then: msgbox"Boş alan mevcut",,"Bilgi": me.metin kutusu.setfocus: exit sub

bu şekilde metin kutusunun boş olması veya daha önce içine birşey yazılıp silinmiş olması sonrasında boş alan mevcut mesajını verip sizi o boş olan yere yönlendirecektir.

bu kodu raporu açtıracağınız butonun tıklandığı olayına eklemelisiiz.
30/09/2012, 20:34

kursad05

isçınar ve ozguryasin hocalarım teşekkür ederim. Sorun hallolmuştur.