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

m_demir

Aktif Üye
82854
De.... Yı....
 61
 82
 348
 03/06/2016
0
 -
 Grafiker
 Ofis 2010 64 Bit
 07/06/2019,19:30
Çö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

ozguryasin

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

m_demir

Aktif Üye
82854
De.... Yı....
 61
 82
 348
 03/06/2016
0
 -
 Grafiker
 Ofis 2010 64 Bit
 07/06/2019,19:30
Hocam uyarladım yapamadım.



ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 482
 12.116
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,00:49
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

m_demir

Aktif Üye
82854
De.... Yı....
 61
 82
 348
 03/06/2016
0
 -
 Grafiker
 Ofis 2010 64 Bit
 07/06/2019,19:30
Ç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

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 482
 12.116
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,00:49

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ü Formda Metin Kutusu İçerik Kontrolü hbal09 4 110 10/07/2019, 16:20
Son Yorum: halily
Çözüldü Webbrowserda (input Type Disable) Olan Alandan Veri Almak mustinba 4 171 03/07/2019, 22:08
Son Yorum: mustinba
Çözüldü Metin Ve Rakamlardan Seri Numarası Üretme Yunus Bozkurt 11 385 16/06/2019, 17:06
Son Yorum: halily
Çözüldü Sorgu Kriterini Formdan Almak Ertugrul Kuzu 7 435 03/06/2019, 16:10
Son Yorum: halily
Çözüldü Metin Tipinde Ayarlanmış Sürelerle İşlemlerde Toplama Sorunu yücel üzülmez 9 491 08/05/2019, 23:09
Son Yorum: halily

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