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 192 konu açtı.
Toplam 756 yorum yaptı.
Toplam 34 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2003,
Beğeniler: 18 / 14
#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: 70)
.jpg   11eee1.jpg (Boyut: 124,77 KB / İndirilme: 178)



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

*
Kayıt Tarihi: 19.09.2008
Toplam 18 konu açtı.
Toplam 1.016 yorum yaptı.
Toplam 77 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 192 konu açtı.
Toplam 756 yorum yaptı.
Toplam 34 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2003,
Beğeniler: 18 / 14
#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
  Fire Hesaplama osman06 10 666 26-12-2025, 17:07
Son Mesaj: osman06
  [FORM] Formda Iskonto Hesaplama anno 1 360 17-06-2025, 11:04
Son Mesaj: dsezgin
  Lifo Ve Fifo Maliyet Hesaplama evren89 5 631 09-11-2024, 22:40
Son Mesaj: evren89
  [SORGU] Sütun Verisini Satıra çavirme gokselbilici 2 449 13-09-2024, 12:16
Son Mesaj: gokselbilici
  [FORM] Metin Kutusundaki Değeri Başka Bir Metin Kutusuna Aktarmak TheREDROSE 2 422 02-08-2024, 11:56
Son Mesaj: TheREDROSE
  Dini Bayramları Hesaplama Hatası Ahmet51 40 2.851 21-05-2024, 15:44
Son Mesaj: Ahmet51
  Buzdolabı Stok Takip Programı Nasıl Yaparım. mertkevlar 3 690 13-04-2024, 01:35
Son Mesaj: dsezgin
  Stok Takip Programı Stok Satış Ekranı MRUNHAPY 2 898 28-01-2024, 23:24
Son Mesaj: MRUNHAPY

Foruma Git:


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