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 ?