Sorgu sonucu boşsa

[herdogan]

Sorgu sonucu boş ise, kriterlere uygun sonuç yok ise sorgu sayfası boş bir şekilde açılıyor. Bu durumda sorgu sayfası açılmadan bir mesaj alınabilir mi?
Bu olmaz ise açılan sorgu sayfasında istenilen kriterlere uyan sonuç bulunamadı mesajı yazılabilirmi

 

[Taruz]

Merhabalar..

Düğmenin tıklandığında olayındaki yazılanları silip aşağıdaki kod kümesini kullanırsanız istediğiniz olayı yapmış oluruz..

If DCount("[Kayıt No]", "KİTAPLAR Sorgu", "[Demirbaş No]=Forms![Form1]![Metin0]") = 0 Then
MsgBox "Kriterlere uygun sonuç yok.."
Else
DoCmd.OpenQuery "KİTAPLAR Sorgu"
End If

 

[herdogan]

Teşekkürler
Tam istediğim gibi olmuş. Ellerine sağlık