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 ?