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
