A.S.C Filtre, Grafik ve Raporlama Eklentisi

[VBA] Malzeme Stok Programı - Miktar Güncellendikten Sonra Hata Alıyorum.
#1
Öncelikle merhabalar,

Ben daha önce de buna benzer bir proje yaptım, ancak aynı olayı bu stok programına uyguladığımda aşağıdaki hatayı alıyorum, diğerinde bu hata ile karşılaşmazken bunda karşılaşıyorum.

Private Sub txtMiktar_AfterUpdate()


    DoCmd.RunCommand acCmdSaveRecord
   
    If DCount("*", "Idari_Cay_StokDurum", "malzemeAdi=" & cboMalzemeAdi & " And cins=" & cboCins) = 0 Then
      CurrentDb.Execute "INSERT INTO Idari_Cay_StokDurum (malzemeAdi, cins, stokMiktari ) " & _
        "VALUES(" & cboMalzemeAdi & ", " & cboCins & ", " & txtMiktar & ")"
    Else
   
        Dim Hes(1) As Double
        On Error Resume Next
        Hes(0) = DSum("Nz(miktar,0)", "Idari_Cay_StokHareketleri", "malzemeAdi=" & cboMalzemeAdi & " And cins=" & cboCins & " And islemTuru='Giriş'")
        Hes(1) = DSum("Nz(miktar,0)", "Idari_Cay_StokHareketleri", "malzemeAdi=" & cboMalzemeAdi & " And cins=" & cboCins & " And islemTuru='Çıkış'")
        CurrentDb.Execute "UPDATE Idari_Cay_StokDurum SET stokMiktari=" & (Hes(0) - Hes(1)) & " WHERE (((malzemeAdi)=" & cboMalzemeAdi & ") AND ((cins)=" & cboCins & "))"
   
    End If

End Sub


Hata Resmi Url : https://ibb.co/cwzkPZM
[Resim: cwzkPZM]

Bu konuda yardımcı olabilir misiniz acaba?


Eklenti Dosyaları
.rar   Malzeme Stok Programı.rar (Boyut: 133,09 KB / İndirilme: 16)



  Alıntı
Bu mesajı beğenenler:
#2
Visual Basic
  1. Private Sub txtMiktar_AfterUpdate()
  2. Me.toplamTutar = Nz(Me.txtBirimFiyat, 0) * Nz(Me.txtMiktar, 0)
  3. DoCmd.RunCommand acCmdSaveRecord
  4. If 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. Else
  8. Dim Hes(1) As Double
  9. On Error Resume Next
  10. Hes(0) = DSum("Nz(miktar,0)", "Idari_Cay_StokHareketleri", "malzemeAdi='" & cboMalzemeAdi & "' And cins='" & cboCins & "' And islemTuru='Giriş'")
  11. Hes(1) = DSum("Nz(miktar,0)", "Idari_Cay_StokHareketleri", "malzemeAdi='" & cboMalzemeAdi & "' And cins='" & cboCins & "' And islemTuru='Çıkış'")
  12. CurrentDb.Execute "UPDATE Idari_Cay_StokDurum SET stokMiktari=" & (Hes(0) - Hes(1)) & " WHERE (((malzemeAdi)='" & cboMalzemeAdi & "') AND ((cins)='" & cboCins & "'))"
  13. End If
  14. End Sub



Metin olan alanları Kesme+Çift Tırnak & ALANADI & Çift Tırnak+Kesme gibi yazılmalı. Yukarıdaki prosedürü kullanın.



  Alıntı
Bu mesajı beğenenler: muzaffer2727
#3
(26-04-2021, 17:02)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 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.    Else
  8.        Dim Hes(1) As Double
  9.        On Error Resume Next
  10.        Hes(0) = DSum("Nz(miktar,0)", "Idari_Cay_StokHareketleri", "malzemeAdi='" & cboMalzemeAdi & "' And cins='" & cboCins & "' And islemTuru='Giriş'")
  11.        Hes(1) = DSum("Nz(miktar,0)", "Idari_Cay_StokHareketleri", "malzemeAdi='" & cboMalzemeAdi & "' And cins='" & cboCins & "' And islemTuru='Çıkış'")
  12.        CurrentDb.Execute "UPDATE Idari_Cay_StokDurum SET stokMiktari=" & (Hes(0) - Hes(1)) & " WHERE (((malzemeAdi)='" & cboMalzemeAdi & "') AND ((cins)='" & cboCins & "'))"
  13.   End If
  14. End Sub



Metin olan alanları Kesme+Çift Tırnak  & ALANADI & Çift Tırnak+Kesme gibi yazılmalı. Yukarıdaki prosedürü kullanın.

Öncelikle teşekkür ederim, müsaitseniz bir sorum daha olacakta.

Diyelim ki ben bir stok girişi yaptım ama bu giriş yaptığım ürün stokta(stokdurum tablosu) daha önce kaydı yok, giriş yaptığım zaman "stokhareketleri" tablosunda kaydı görebiliyorum ancak stokta (stokdurum tablosu) ürünün daha önceden kaydı olmadığı için kayıt gözükmüyor. Bunu nasıl halledebilirim acaba?



  Alıntı
Bu mesajı beğenenler:
#4
(27-04-2021, 12:14)muzaffer2727 demiş ki: Diyelim ki ben bir stok girişi yaptım ama bu giriş yaptığım ürün stokta(stokdurum tablosu) daha önce kaydı yok, giriş yaptığım zaman "stokhareketleri" tablosunda kaydı görebiliyorum ancak stokta (stokdurum tablosu) ürünün daha önceden kaydı olmadığı için kayıt gözükmüyor. Bunu nasıl halledebilirim acaba?
Sn muzaffer2727;
Gönderilen örnek dosyada form ile yeni kayıt yaptım ve kaydet tuşu ile sonlandırdığım zaman stokdurum tablosunda kaydı gördüm,
sorunuzu da anlayamadım.



  Alıntı
Bu mesajı beğenenler:
#5
(27-04-2021, 13:03)dsezgin demiş ki:
(27-04-2021, 12:14)muzaffer2727 demiş ki: Diyelim ki ben bir stok girişi yaptım ama bu giriş yaptığım ürün stokta(stokdurum tablosu) daha önce kaydı yok, giriş yaptığım zaman "stokhareketleri" tablosunda kaydı görebiliyorum ancak stokta (stokdurum tablosu) ürünün daha önceden kaydı olmadığı için kayıt gözükmüyor. Bunu nasıl halledebilirim acaba?
Sn muzaffer2727;
Gönderilen örnek dosyada form ile yeni kayıt yaptım ve kaydet tuşu ile sonlandırdığım zaman stokdurum tablosunda kaydı gördüm,
sorunuzu da anlayamadım.
Sn dsezgin, 

Kusura bakmayın geç dönüş için, soruda yanlışlık yapmışımda özür dilerim.

İşlem Türü "Giriş" için değil de "Çıkış" için dediğimde mantık hatası oluyor, örneğin stok hareketlerinde ben Çıkış işlemi yaptığımda stokdurum tablosunda böyle bir kayıt olmazken oraya kayıt yapıyor.

Birde ben stokta olan üründen fazlasıyla "çıkış" yaptığımda bunu nasıl engelleyebilirim acaba?



  Alıntı
Bu mesajı beğenenler:
#6
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.



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Hata Neden Kaynaklanabilir. hegu 1 90 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 238 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 337 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 224 25-11-2020, 04:25
Son Mesaj: dsezgin

Foruma Git:


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