Skip to main content

AccessTr.neT


Malzeme Stok Programı - Miktar Güncellendikten Sonra Hata Alıyorum.

Muzaffer Emre
Muzaffer Emre
2
509

Malzeme Stok Programı - Miktar Güncellendikten Sonra Hata Alıyorum.

Çözüldü #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


[Resim: do.php?img=11010]






Bu konuda yardımcı olabilir misiniz acaba?
.rar Malzeme Stok Programı.rar (Dosya Boyutu: 133,09 KB | İndirme Sayısı: 10)
Son Düzenleme: 26/04/2021, 12:23, Düzenleyen: Muzaffer Emre. (Sebep: karakter sıkıntısı)
Cevapla
#2
Merhaba

If DCount("*", "Idari_Cay_StokDurum", "malzemeAdi='" & cboMalzemeAdi & "' And cins='" & cboCins & "'") = 0 Then


Metin alanları '" ve sayı alanları " şeklinde kullanarak deneyin
Cevapla
#3
Sayın @Muzaffer Emre sorununuz çözümlendi mi geri bildirimde bulunun lütfen.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task