kritik stok yardım

cevaplarınız için gerçekten çok teşekkür ederim zahmet ettiniz fakat ben sıkıntıyı izzah edemedim sanırım, özür dilerim
benim amacım sipariş giriş çıkışı yapmak değil
sadece STOKDURUM formunda 1 adede düşen ürünler sipariş listesine otomatik olarak kaydedilsin (barkod no ve ürün adı olarak) ben de akşam dükkanımı kapatırken bu sipariş listesinden bir çıktı alayım yeterli.
Aslında asıl sorum kritiğe düşen ürünleri rapora veya tabloya yazan bir kod var mı ? olmalıydı sanırım...
sayın schworse ;
sizin ilk gönderdiğiniz dosyadaki uyarı yazısı ekranı çok güzeldi (sipariş ver & tamam butonlu) sipariş ver'e tıkladığım anda o ürün sipariş listesine atılabilse

benim dediğim Kritik alanını eklediyseniz rapor almak çok kolay Kritik<GirenAd listele.

ekledim ama kodlarla aram peki iyi olmadığı için beceremedim sanırım, çalışmadı.
nereye ve nasıl eklenmesi hususunda çok acemiyim özür dilerim

biraz bekleyin örneğinize ekleyeyim

bu şekilde sanırım ama işe yaramıyor

Aşağıdaki kodu istediğiniz
bir event ta kullanabilirsiniz

Prensip kritik seviyenin altındaki ürünleri
tespit edip mesajla uyarmak. Mesaja evet
derseniz geçici bir tabloya yazıp sipariş
raporu üretmek

Private Sub Form_Open(Cancel As Integer)

If DCount("[stokad]", "stoklar", "[stok_adet]<=[stok_seviye]") > 0 Then

Dim siparisyaz As Integer

siparisyaz = MsgBox("Kritik seviye altına düşmüş" & vbCrLf & _

    "ürünleriniz var. Sipariş föyü" & vbCrLf & _

    "oluşturulsun mu ?", _

    vbInformation + vbYesNo + vbDefaultButton2, _

    "Kritik seviye")

If siparisyaz = 6 Then

DoCmd.SetWarnings False

DoCmd.RunSQL "DELETE siparisler.stokad FROM siparisler;", 0

DoCmd.RunSQL "INSERT INTO siparisler ( stokad, stok_adet, stok_seviye )SELECT stoklar.stokad, stoklar.stok_adet, stoklar.stok_seviye FROM stoklar WHERE (((stoklar.stok_adet)<=[stok_seviye]));", 0

DoCmd.SetWarnings True

DoCmd.Close acForm, Me.Name

DoCmd.OpenReport "rapor1", acViewPreview

End If

End If

End Sub

Access penceresi kapalı örneklerden nefret ettiğim için
kendi örneğimi yaptım, uyarlaması sizden
Kolay gelsin