Merhaba Arkadaşlar

Eklediğim uygulamada Satıs Formunda Liste1 e çift tıklayarak listedeki (Stok Tablosundaki) veriyi StokNo, SatisUrunAdi, SatisAdedi metin kutularına alıyorum.

Satış Formunda Liste1 e tıklamadan. StokNo metin kutusuna StotNo sunu yazdığımz zaman StokNo metin kutusundan çıktığımızda Liste1 deki (Stok Tablosundaki) veriyi ayni şekilde SatisUrunAdi, SatisAdedi  metin kutularına alabilirmiyiz. Eğer Metin kutusu ile olmuyorsa Açılan kutu ile de olur. Açılan kutu ile yapmaya çalıştım yapamadım.

Liste1 tıklanma sonraso olayını, metin kutusu güncelleme sonrası olatına uyarlayınız

Hocam uyarladım yapamadım.

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.

Çok, Çok teşekkürler Hocam ellerinize sağlık verdiğiniz bu kadar detaylı bilgiler için.

Hocam Metin kutusuna StokNo yu girip verileri metin kutularına aldığımız zaman Daha önce liste1 de seçlı olan başka bir satır veri siyah şerit olarak görünüyor. 

Eğer oluyorsa StokNo metin kutusu gönceleme sonrası metin kutusunda hangi StotNo su varsa Liste1 de ayni satır seçlili hale gelsin.  Örneğin metin kutusunda 75 Stokno varsa List1 de 75 StokNo siyah şerit ile seçili halde görünsün. Liste1 de seçilen satır StokNo metin kutusuna göre güncellensin.

Dim GSayi As Integer



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



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





For GSayi = 1 To Me.Liste1.ListCount - 1



    If Me.Liste1.Column(1, GSayi) = Me.StokNo Then

    

    Me.Liste1.Selected(GSayi) = True

    

    Exit For

    

    End If



Next





Else



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

Me.StokNo.SetFocus



End If