Cara Membuat Aplikasi Barang

Baca Juga

Cara Membuat Aplikasi Barang

Buatlah terlebih dahulu database nya :
Nama             : barang.mdb

Nama table  : tblbarang

Field	Type	Primary Key
Kdbarang	Text
Nmbarang	Text
Hrgbarang	Text
Jlh	Text

Lalu ketikkan kode nya di cmdsave :

Private Sub cmdsave_Click()

If (txtkdbarang.Text <> "") And (txtnmbarang.Text <> "") And (txthrgbarang.Text <> "") And (txtjlh.Text <> "") Then

adobarang.RecordSource = "select*from tblbarang"

adobarang.Refresh

With adobarang.Recordset

.AddNew

!kdbarang = txtkdbarang.Text

!nmbarang = txtnmbarang.Text

!hrgbarang = txthrgbarang.Text

!jlh = txtjlh.Text

.Update

MsgBox "Berhasil", vbInformation + vbOKOnly, "pesan"

End With

txtkdbarang.Text = ""

txtnmbarang.Text = ""

txthrgbarang.Text = ""

txtjlh.Text = ""

txtjlh.SetFocus

Else

MsgBox "Data Belum Lengkap", vbInformation + vbOKOnly, "pesan"

txtkdbarang.Text = ""

txtnmbarang.Text = ""

txthrgbarang.Text = ""

txtjlh.Text = ""

End If

End Sub

 

Dan Hasilnya data yang Anda masukkan telah di masuk kedalam Ms. Access yang telah di buat . Dan tampilan form nya sebagai berikut.


                                               Dan inilah gambar Aplikasi Barang