Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [FORM] Liste Kutusundaki Veriye Göre Stok Ve Ihtiyaç Verisini Otomatik Hesaplama

[FORM] Liste Kutusundaki Veriye Göre Stok Ve Ihtiyaç Verisini Otomatik Hesaplama
husem
Kıdemli Üye 400-1000

*
Kayıt Tarihi: 06.05.2013
Toplam 187 konu açtı.
Toplam 744 yorum yaptı.
Toplam 34 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2003,
Beğeniler: 18 / 11
#1
04-06-2023, 21:25
kolay gelsin arkadaşlar.
eklediğim dosyadaki formda ürün adını seçince
iplik reçetesi geliyor.
iplik reçetesindeki ipliklere tıklayınca
stoktaki ipliği ve sipariş miktarına göre ihtiyacı gösteriyor.


yapmak istediğim ise, ürün adını seçince stoktaki iplik ve ihtiyaçları otomatik hesaplamak.
yardımcı olabilirmisiniz?

[Resim: attachment.php?aid=25765]


Eklenti Dosyaları
.rar   yardım.rar (Boyut: 183,14 KB / İndirilme: 36)
.jpg   11eee1.jpg (Boyut: 124,77 KB / İndirilme: 93)



  Bul
  Alıntı
Bu mesajı beğenenler:
jon206
Access Takımı

*
Kayıt Tarihi: 19.09.2008
Toplam 18 konu açtı.
Toplam 1.013 yorum yaptı.
Toplam 53 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 1 / 5
#2
07-06-2023, 17:06
sn; husem

liste101 tıklama özelliğini silin..  
aşağıdaki iki kod vba editörünüze copyalayınız...
ürün güncelleme sonraki olayını aşağıda kod ile değiştirin..

for next döngü ile yapabilir siniz.. kolay gelsin...



Visual Basic
  1. Private Sub URUN_AfterUpdate()
  2. Me.URUN_KODU = Me.URUN.Column(1)
  3. Me.Liste101.Requery
  4.  
  5.     If Me.Liste101.ListCount = 0 Then Exit Sub
  6.     Call btnTEMIZLE_Click
  7. For i = 0 To Me.Liste101.ListCount - 1
  8.     Me.Liste101.Selected(i) = True
  9.     Call IPLIKOTOMATIK
  10. Next
  11.  
  12. End Sub
  13.  
  14.  
  15. Sub IPLIKOTOMATIK()
  16. tmp = Me.Liste101.Column(0)
  17. IPL = Me.Liste101.Column(3)
  18. KAR = Me.Liste101.Column(6)
  19. IPLKG = DSum("GELEN_KG-KUL_KG", "IPLIK_STOK_GIRIS", "IPLIK_NO='" & Me.Liste101.Column(3) & "' and IPLIK_CINSI='" & Me.Liste101.Column(4) & "' and MATERYAL='" & Me.Liste101.Column(5) & "' ")
  20. REZERVE = Me.MIKTAR * KAR / 100
  21. For x = 1 To 4
  22.  
  23. If tmp = Controls("ID" & x) Then Exit Sub
  24. Next x
  25. For x = 1 To 4
  26. If Len(Controls("ID" & x) & "") = 0 Then: Controls("ID" & x) = Me.Liste101.Column(0): Controls("IPLIK" & x) = IPL: Controls("KAR" & x) = KAR: Controls("IPKG" & x) = IPLKG: Controls("REZ" & x) = REZERVE: Exit Sub
  27. Next x
  28. End Sub


imza; jon206
www.access-sql.com



  Bul
  Alıntı
Bu mesajı beğenenler:
husem
Kıdemli Üye 400-1000

*
Kayıt Tarihi: 06.05.2013
Toplam 187 konu açtı.
Toplam 744 yorum yaptı.
Toplam 34 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2003,
Beğeniler: 18 / 11
#3
08-06-2023, 19:03
sn jon206, yardımınız için teşekkür ederim,



  Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Dini Bayramları Hesaplama Hatası Ahmet51 13 366 Dün, 03:51
Son Mesaj: dsezgin
  Buzdolabı Stok Takip Programı Nasıl Yaparım. mertkevlar 3 137 13-04-2024, 01:35
Son Mesaj: dsezgin
  Stok Takip Programı Stok Satış Ekranı MRUNHAPY 2 251 28-01-2024, 23:24
Son Mesaj: MRUNHAPY
  Bir Sütuna Girilen Verileri Başka Bir Sütun Ile Karşılaştırıp Hesaplama bilservisci 4 244 08-01-2024, 11:58
Son Mesaj: bilservisci
  [FORM] Metin Kutusundaki Değere Göre Altforma Kayıt Eklensin Yada Eklenmesin ŞabanTR 4 170 17-12-2023, 17:40
Son Mesaj: ŞabanTR
  12 Saatlik (am-pm) Metin Olarak Girilmiş Saat Verisini 24 Saatlik Olarak Gösterme Hk. adnnfrm 2 152 05-10-2023, 03:16
Son Mesaj: adnnfrm
  [SORGU] Benzer Veriye Göre Sorgu Oluşturmak toros333 2 246 16-09-2023, 22:38
Son Mesaj: toros333
access-sql-9 Text Kutusundaki Rakamı Alt Formda Bulan Hesap Sutunun Tüm Satırlarına Nasıl Eklenir bilservisci 7 273 29-08-2023, 22:19
Son Mesaj: bilservisci

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi