Skip to main content

AccessTr.neT


Metin Kutularına Veri Almak

Metin Kutularına Veri Almak

Çözüldü #1
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.
.rar Malzeme Alışı.5.rar (Dosya Boyutu: 120,66 KB | İndirme Sayısı: 1)
Cevapla
#2
Liste1 tıklanma sonraso olayını, metin kutusu güncelleme sonrası olatına uyarlayınız
POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter. alkis


Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
Cevapla
#3
Hocam uyarladım yapamadım.
Cevapla
#4
Dlookup ile verileri denetimlere aktarabilirsiniz.


Visual Basic Code
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


Visual Basic Code
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

Visual Basic Code
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

Visual Basic Code
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 


Visual Basic Code
Me.SatisUrunAdi = DLookup("StokUrunAdi", "Stok", "[StokNo]='" & Me.StokNo & "'")

kodunun altına ekleme yapmalısınız.
Cevapla
#5
Ç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]
Son Düzenleme: 29/05/2018, 13:50, Düzenleyen: m_demir.
Cevapla
#6
Visual Basic Code
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da