Update data dalam modul Stok, Aplikasi Program Software Retail

Modul stok dalam Aplikasi Program Software Retail, merupakan modul utama, sebagai bagian pencatatan data induk barang/stok. Secara urutan penggunaan aplikasi, modul ini mesti dilakukan penyimpanan datanya. Semua barang yang sudah ada di toko/gudang dicatat, sebagai data yang akan digunakan untuk penjualan, pembelian dll.

Stok adalah asset utama, sehingga monitoring stok menjadi hal yang penting. Desain aplikasi produk kami, mempunyai mekanisme, bahwa jumlah barang di modul Stok, tidak dapat diubah. Semua perubahan terkait jumlah Stok harus dicatat melalui transakai, baik itu Penjualan, Pembelian atau Mutasi Stok.



Private Sub cmdUbah_Click()
On Error GoTo errhandler
If CekAppAkses(Val(Me.Tag), "ubah") = False Then
cmdUbah.Enabled = False
Else
strS1 = "update stok set nama_barang= '" & AllowChar(TxtNama_barang.Text) & "' ," _
+ " kode_kategoribrg='" & AllowChar(cboKode_kategoriBrg.Text) & "',lokasi='" & AllowChar(txtLokasi.Text) & "', " _
+ " harga_jual='" & txtHarga_jual.Text & "',harga_beli='" & txtHarga_beli.Text & "', " _
+ " Satuan='" & Trim(AllowChar(CboSatuan.Text)) & "' where kode_barang='" & Txtkode_barang.Text & "'"
cN.Execute (strS1)

MsgBox "data berhasil diUbah"
End If
Exit Sub
errhandler:
MsgBox Err.Description, vbCritical
End Sub