A.S.C Filtre, Grafik ve Raporlama Eklentisi

[VBA] Malzeme Stok Programı - Miktar Güncellendikten Sonra Hata Alıyorum.
#7
(27-04-2021, 19:28)dsezgin demiş ki:
Visual Basic
  1. Private Sub txtMiktar_AfterUpdate()
  2. Me.toplamTutar = Nz(Me.txtBirimFiyat, 0) * Nz(Me.txtMiktar, 0)
  3.    DoCmd.RunCommand acCmdSaveRecord
  4.    If Me.islemTuru = "Giriş" And DCount("*", "Idari_Cay_StokDurum", "malzemeAdi='" & cboMalzemeAdi & "' And cins='" & cboCins & "'") = 0 Then
  5.       CurrentDb.Execute "INSERT INTO Idari_Cay_StokDurum (malzemeAdi, cins, stokMiktari ) " & _
  6.        "VALUES('" & cboMalzemeAdi & "', '" & cboCins & "', " & txtMiktar & ")"
  7.    ElseIf Me.islemTuru = "Çıkış" And DCount("*", "Idari_Cay_StokDurum", "malzemeAdi='" & cboMalzemeAdi & "' And cins='" & cboCins & "'") = 0 Then
  8.           MsgBox "Girişi olmayan Malzemeye Çıkış işlemi yapamazsınız.İ", vbCritical, "HATA"
  9.           CurrentDb.Execute "DELETE * FROM  Idari_Cay_StokHareketleri WHERE (((stokHareketleriID)=" & Me.stokHareketleriID & "))"
  10.            DoCmd.GoToRecord , , acNewRec
  11.            Me.cboYil.SetFocus
  12.    Else
  13.        Dim Hes(1) As Double
  14.        On Error Resume Next
  15.        Hes(0) = DSum("Nz(miktar,0)", "Idari_Cay_StokHareketleri", "malzemeAdi='" & cboMalzemeAdi & "' And cins='" & cboCins & "' And islemTuru='Giriş'")
  16.        Hes(1) = DSum("Nz(miktar,0)", "Idari_Cay_StokHareketleri", "malzemeAdi='" & cboMalzemeAdi & "' And cins='" & cboCins & "' And islemTuru='Çıkış'")
  17.        CurrentDb.Execute "UPDATE Idari_Cay_StokDurum SET stokMiktari=" & (Hes(0) - Hes(1)) & " WHERE (((malzemeAdi)='" & cboMalzemeAdi & "') AND ((cins)='" & cboCins & "'))"
  18.    
  19.    End If
  20. End Sub



Miktar güncelleme olay yordamını yukarıdaki gibi değiştirin.

Çok teşekkür ederim ilginiz için dsezgin.



  Alıntı
Bu mesajı beğenenler:
#8
Merhabalar,

Ben programda Yeni ürün(SÜT) "giriş" i yapıyorum "miktar" olarakta 10 adet diyelim, kayıt "stokdurum" tablosuna geliyor. Sonra form üzerinden eklemiş olduğum kayda gelip "Düzenle" butonuna tıklıyorum ve sadece malzeme adındaki "süt" kısmını "çay" olarak değiştiriyorum ama "stokdurum" tablosunda eklemiş olduğum "süt" miktarı 10 olarak kalıyor ve "çay" 10 adet olarak eklenmiş oluyor ama -olması gereken- "süt" ün miktar olarak 0 olması gerekiyor.


Bunun önüne nasıl geçebilirim acaba?



  Alıntı
Bu mesajı beğenenler:
#9
(28-04-2021, 15:21)muzaffer2727 demiş ki: Ben programda Yeni ürün(SÜT) "giriş" i yapıyorum "miktar" olarakta 10 adet diyelim, kayıt "stokdurum" tablosuna geliyor. Sonra form üzerinden eklemiş olduğum kayda gelip "Düzenle" butonuna tıklıyorum ve sadece malzeme adındaki "süt" kısmını "çay" olarak değiştiriyorum ama "stokdurum" tablosunda eklemiş olduğum "süt" miktarı 10 olarak kalıyor ve "çay" 10 adet olarak eklenmiş oluyor ama -olması gereken- "süt" ün miktar olarak 0 olması gerekiyor.
Bunun önüne nasıl geçebilirim acaba?

Kaydet tuşu ile işlem giren kayıt dizinin ürün ve cins alanlarının kilit kontrolü veya alan pasifliği ile düzenleme engellenir. Yeni kayda yönelme ile sorun ortadan kalkabilir.


.rar   CaySutProgramı.rar (Boyut: 85,2 KB / İndirilme: 23)



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Hata Neden Kaynaklanabilir. hegu 1 91 14-04-2021, 22:40
Son Mesaj: hegu
  [VBA] Modül Hata memmetcavus 9 220 12-04-2021, 08:44
Son Mesaj: memmetcavus
  [TABLO] Stok Dağılımı benuva 10 470 03-03-2021, 12:26
Son Mesaj: dsezgin
  [FORM] Tarihten Kaynaklanan Hata ekremer1969 5 239 01-03-2021, 14:37
Son Mesaj: halily
  [FORM] Hata Mesajı Ertansay 2 129 17-02-2021, 12:06
Son Mesaj: Ertansay
  [FORM] Haritada Adres Belirlemede Hata Mesajı M_Kemal_Askeri 8 338 15-01-2021, 17:17
Son Mesaj: M_Kemal_Askeri
  [MAKRO] Stok çıkış Adedi Stok Miktarından Büyük Ise "yetersiz Stok" Diye Uyarı Vermesi resett 1 161 18-12-2020, 19:36
Son Mesaj: adnnfrm
  [FORM] "bilgisayar Malzeme - Stok Takip Uygulaması" Yardımcı Olabilir Misiniz? muzafferemre 1 228 25-11-2020, 04:25
Son Mesaj: dsezgin

Foruma Git:


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