Kritik stok seviyesi için uyarı gelsin ve sorguda hesaplama hatası

Sayın Alpeki, Değerli arkadaşımız NŞahin'in düzeltmesi ve yazdığı kod çok işime yaradı, ama programı açtığımızda ya da "kritik stok seviyesinde olan ürünleri listele" dediğimizde ne yapılmalı ?
dosyayı eklemeyeyim yeniden kod şöyle:

Private Sub siparis_miktar_AfterUpdate()

Form.Requery

[Forms]![F_URUN]![girismiktari].Requery

[Forms]![F_URUN]![cikismiktari].Requery

[Forms]![F_URUN]![stok].Requery

If [Forms]![F_URUN]![stok] < Dlookup ("[kritik_seviye]", "URUN", "[urun_no] =" & [Forms]![F_URUN]!urun_no) Then

 MsgBox "Stok Miktarı Kritik Olan " & Dlookup ("[kritik_seviye]", "URUN", "[urun_no] =" & [Forms]![F_URUN]!urun_no) & " Sınırın alına düştü. Yeni sipariş veriniz."

 Else

 End If

End Sub

bu koda, kayıtlar arasında dolaşırken eğer mümkünse, "kritik seviyeye "dayanmış ürünlerin stok seviyesinin otomatik olarak değişik renk içermesini sağlayabilir miyiz ?

İstediğiniz böyle bir şey mi? Hem malzeme çıkışı yaparken hem de kayıtlar arasında gezerken mesaj veriyor.

Elinize sağlık sayın NSahin,
Doğrudur tam olarak arzuladığım şekli bu idi. Biraz ufkumuzu genişletip, bir butonun tıklatıldığında olayına "kritik stok seviyesinde olanları listele" gibi bir liste almak mümkün müdür ? Programın en son bitmiş halini de paylaşacağım. Sabah sabah ilgilenme nezaketiniz için ayrıca teşekkür ederim. Sanırım birçok arkadaşın arayüzü basit böyle bir programa ihtiyacı var.

Saygılarımla,

Sn. aobendes, "srg_kritikseviye" isimli sorguyu inceleyiniz.

Sayın Sledgeab,
Sorgu gerçekten çok hoş olmuş. Son halini paylaşayım dedim ama zaten siz son şeklini vermişsiniz. Kullanıcı arkadaşlara başka çalışmalarında da örnek olabilir. Size, sayın alpeki'ye ve NSahin arkadaşımıza çok teşekkür ederim. Sorun çözülmüştür. Saygılaımla,

Konu Cevaplanmış Sorular bölümüne taşınmıştır.

Mümkünse son halini Access Örnekleri ve Uygulamaları bölümüne yeni konu olarak ekleyiniz.