TbStok tablonuza Kritik adlı sayısal bir alan ekleyin ve kritik seviyelerini oraya ekleyin.
Private Sub T1_AfterUpdate()
Me.T6 = Dlookup ("SatisFiyati", "TbStok", "BarkodNo='" & Me.T1 & "'")
......
......
satırlarının en başına da Private Sub satırının altınaif Dlookup ("GirenAd", "TbStok", "BarkodNo='" & Me.T1 & "'") => Dlookup ("Kritik", "TbStok", "BarkodNo='" & Me.T1 & "'") then
msgbox Dlookup ("ürünadı", "TbStok", "BarkodNo='" & Me.T1 & "'") & " Kritik seviye altına düştü."
end if
yazınız barkodu girdiğiniz anda uyarı gelecektir. tamam deyip satışa devam edersiniz.