Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
28/05/2018 23:34
Konu Sahibi
m_demir
Yorumlar
6
Okunma
404
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

m_demir

Aktif Üye
82854
De.... Yı....
 61
 82
 348
 03/06/2016
0
 -
 Grafiker
 Ofis 2010 64 Bit
 Dün,23:21
Çözüldü 
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

Uzman
9727
Öz.... Ya....
 36
 44
 1.130
 23/09/2009
613
 Bursa
 Yazılım
 Ofis 2016 32 Bit
 Bugün,09:46
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.

m_demir

Aktif Üye
82854
De.... Yı....
 61
 82
 348
 03/06/2016
0
 -
 Grafiker
 Ofis 2010 64 Bit
 Dün,23:21
Hocam uyarladım yapamadım.



ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 480
 12.053
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
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
1
2
3
4
5
6
7
8
9
10
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.


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

m_demir

Aktif Üye
82854
De.... Yı....
 61
 82
 348
 03/06/2016
0
 -
 Grafiker
 Ofis 2010 64 Bit
 Dün,23:21
Ç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

Kurucu
1
Oz.... Ak....
 39
 480
 12.053
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü metin tipinde ayarlanmış sürelerle işlemsel yücel üzülmez 13 317 02/05/2019, 00:10
Son Yorum: haliliyas
Çözüldü İlişkisiz Form Da Listenin Filtrelenen Alanını İlişkisiz Metin Kutusu İle Update ask200075 4 96 29/04/2019, 11:27
Son Yorum: ask200075
Çözüldü Klasördeki Dosya İsimlerini Almak ates2014 17 502 27/04/2019, 21:14
Son Yorum: ates2014
Çözüldü Metin Kutusuna Girilen Veriye Göre Veri Çağırma fascioğlu 9 557 14/03/2019, 14:50
Son Yorum: programmer67
Çözüldü Rapor Hazırlama Ve Çıktı Almak access acemisi 18 742 23/02/2019, 18:29
Son Yorum: access acemisi

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.