AccessTr.neT

AccessTr.neT > Microsoft Access > Access Cevaplanmış Soruları > Metin Kutularına Veri Almak
Tam Versiyon: Metin Kutularına Veri Almak
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2

m_demir

28/05/2018, 23:34
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.

ozguryasin

28/05/2018, 23:56
Liste1 tıklanma sonraso olayını, metin kutusu güncelleme sonrası olatına uyarlayınız

m_demir

28/05/2018, 23:58
Hocam uyarladım yapamadım.

ozanakkaya

29/05/2018, 10:54
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.

m_demir

29/05/2018, 13:48
Ç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.

[Resim: do.php?imgf=152759097696411.png]

ozanakkaya

29/05/2018, 15:53
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
Sayfalar: 1 2
AccessTr.neT > Microsoft Access > Access Cevaplanmış Soruları > Metin Kutularına Veri Almak