Contoh Koding Membuat Stok Barang Menggunakan VBA Access

 Untuk membuat sistem stok barang menggunakan Visual Basic for Applications (VBA) di Microsoft Access, Anda dapat menggunakan kode seperti ini:

'Deklarasikan variabel

Dim db As Database

Dim rs As Recordset

Dim strSQL As String

'Buat objek database dan recordset

Set db = CurrentDb

Set rs = db.OpenRecordset("Barang")

'Tambahkan barang baru

rs.AddNew

rs!NamaBarang = "NamaBarang"

rs!Stok = 0

rs.Update

'Tambahkan stok barang

strSQL = "UPDATE Barang SET Stok = Stok + " & JumlahStok & _

         " WHERE NamaBarang = '" & NamaBarang & "'"

db.Execute strSQL

'Cek stok barang

strSQL = "SELECT Stok FROM Barang WHERE NamaBarang = '" & NamaBarang & "'"

Set rs = db.OpenRecordset(strSQL)

If Not rs.EOF Then

    MsgBox "Stok barang " & NamaBarang & " adalah " & rs!Stok

Else

    MsgBox "Barang tidak ditemukan"

End If

Anda dapat mengganti Barang dan NamaBarang, Stok, JumlahStok sesuai dengan nama tabel dan kolom yang ingin Anda gunakan. Selain itu, Anda juga dapat menambahkan logika pengolahan data lainnya sesuai dengan kebutuhan Anda. Misalnya, untuk mengurangi stok barang, Anda dapat mengganti baris strSQL = "UPDATE Barang SET Stok = Stok + " & JumlahStok & _ menjadi strSQL = "UPDATE Barang SET Stok = Stok - " & JumlahStok & _.

Terimakasih

Tweet

Subscribe to receive free email updates: