Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Metin Kutularına Veri Almak

m_demir
m_demir
Access Cevaplanmış Soruları
6
1511

Metin Kutularına Veri Almak

#6
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: Dün,21:30
Yorumları: 13.536
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur 
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

Bu Konudaki Yorumlar
Metin Kutularına Veri Almak - Yazar: m_demir - 28/05/2018, 23:34
Cvp: Metin Kutularına Veri Almak - Yazar: ozguryasin - 28/05/2018, 23:56
Cvp: Metin Kutularına Veri Almak - Yazar: m_demir - 28/05/2018, 23:58
Cvp: Metin Kutularına Veri Almak - Yazar: ozanakkaya - 29/05/2018, 10:54
Cvp: Metin Kutularına Veri Almak - Yazar: m_demir - 29/05/2018, 13:48
Cvp: Metin Kutularına Veri Almak - Yazar: ozanakkaya - 29/05/2018, 15:53
Cvp: Metin Kutularına Veri Almak - Yazar: m_demir - 29/05/2018, 21:45
Task