ACCESS FEED: Re: [belajar-access] query atau coding supaya stok yang nilainya 0 tidak dapat diinput

Jumat, 08 Maret 2013

Re: [belajar-access] query atau coding supaya stok yang nilainya 0 tidak dapat diinput

Pak Achmat Sukardi,

Saya bukan suhu saya hanya mengalami hal yg sama dg Bapak.
Akal-akalan saya begini:

Field "Kode" pada Subform Detail Penjualan saya pakai combo & saya sertakan didalamnya
field/kolom stok. Jadi ketika dropdown langsung dapat dilihat stok masing-masing code yg ada.

Masih pada fiel "kode" kemudian saya pasang coding dibawah pada even after updatenya
mohon disesualkan dg keperluan Bapak, pada database saya ada 5 macam pilihan harga

Private Sub Kode_AfterUpdate()
If Kode.Column(7) <= 0 Then
MsgBox "Stok Habis, Transaksi Tidak Bisa Dilanjutkan", , "Peringatan"
Kode.SetFocus
Kode = ""

Else
NamaBarang = Kode.Column(1)

    Select Case Me.Parent!Frame46
        Case 1: Harga = Kode.Column(2)
        Case 2: Harga = Kode.Column(3)
        Case 3: Harga = Kode.Column(4)
        Case 4: Harga = Kode.Column(5)
        Case 5: Harga = Kode.Column(6)
    End Select

Jumlah.SetFocus
End If
End Sub

Perlu juga Bapak tambahkan untuk menjaga agar jumlah/Qty yg dijual tidak
melebihi stok yg ada, bisa Bapak tambahkan coding dibawah pada field "Jumlah"
pada form Detail Penjualan

Private Sub Jumlah_Exit(Cancel As Integer)
Dim str_stok As Long

str_stok = Nz(Kode.Column(7), 0)
If str_stok < Jumlah Then
MsgBox "Jumlah Melebihi Stok Yang Ada !!!", , "Peringatan"
Jumlah.SetFocus
Jumlah = ""
Harga.SetFocus
Jumlah.SetFocus
End If
End Sub

Semoga memberi inspirasi...

Salam Accessers
BambangMahfudin

----- Original Message -----

From: arashine86

To: belajar-access@yahoogroups.com

Sent: Thursday, March 07, 2013 7:30 AM

Subject: [belajar-access] query atau coding supaya stok yang nilainya 0 tidak dapat diinput

hi para suhu2 yang baik hati,newbie ada sedikit masalah di bagian stok,newbie ingin tanya semoga suhu2 bisa memberikan solusi untuk saya
ketika saya input penjualan di form penjualan nilai stok 0 kenapa masih bisa potong stok ya sehingga menjadi -(minus),yang mau newbie tanyakan bisa ngak stok yang nilainya 0 itu tidak bisa diinput,atau muncul peringatan jumlah stok terakhirnya sehingga tidak terjadi stok -(minus)

salam

Achmat.Sukardi