Dlookup ile verileri denetimlere aktarabilirsiniz.

If Nz(DLookup("S_No", "Stok", "[StokNo]='" & Me.StokNo & "'"), 0) > 0 Then

Bu kod girilen stok numarasının tabloda olup olmadığını denetler, yok ise NZ işlevi ile 0 yazılır, sonuç 0 dan büyükse aşağıdaki kod çalışır

Me.SatisUrunAdi = Dlookup ("StokUrunAdi", "Stok", "[StokNo]='" & Me.StokNo & "'")

Bu kod SatisUrunAdi isimli açılan kutuya, stok numarasına girilen veriye ait urun adını aktarır.

eğer önceki koddaki sonuç 0 ise

MsgBox (Me.StokNo & " Stok Numaralı Ürün Bulunamadı")

Me.StokNo.SetFocus

kodu ile mesaj kutusu görünür.


Sonuç olarak, StokNo isimli metin kutusunun güncelleştirme sonrasında olayına yazılacak kod

If Nz(DLookup("S_No", "Stok", "[StokNo]='" & Me.StokNo & "'"), 0) > 0 Then



Me.SatisUrunAdi = Dlookup ("StokUrunAdi", "Stok", "[StokNo]='" & Me.StokNo & "'")



Else



MsgBox (Me.StokNo & " Stok Numaralı Ürün Bulunamadı")

Me.StokNo.SetFocus



End If

Bu kod sadece SatisUrunAdi metin kutusuna veri aktarır, stokta kalan ve satış fiyatı alanlarına veri aktarımı için 

Me.SatisUrunAdi = Dlookup ("StokUrunAdi", "Stok", "[StokNo]='" & Me.StokNo & "'")

kodunun altına ekleme yapmalısınız.