Tutorial membuat tabel barang dan form barang


form data barang

  Assalamualaikum wr.wb

Halo sahabat blogger ketemu lagi bersama saya di sini, Seperti biasa nya saya akan sedikit membahas tentang bagaimana cara nya membuat Tabel barang dan form data barang menggunakan Microsoft acces 2013…
Cara membuat tabel barang denga microsoft termasuk hal yang penting untuk membuat sebuah program atau aplikasi penjualan di dalam microsoft acces 2013 menjadi satu aplikasi. Dan pada kesempatan kemarin kita juga pernah membuat tabel karyawan dengan menggunakan aplikasi yang sama juga.

Membuat tabel dan form dengan microsoft acces ini sebetul nya tidaklah mudah bagi temen-temen yang sudah mengenal microsoft acces maupun software yang lain nya. Kenapa saya menulis tentang artikel ini karna ini menarik sekail buat saya bagikan ke temen-temen pecinta microsoft dan suka membuat aplikasi-aplikasi sederhana.

BACA JUGA:



Dan disini saya juga membuat form nya menggunakan Visual basic yang ada di microsofot acces 2013 Seperti pada gambar tampilan di atas…

Kebetulan ini juga tugas kulyah saya…hehehehehe…

Langsung Saja Kita Ke Langkah-Langkah nya...


1. Pertama buka microsoft acces nya dan save dengan nama Database barang dan form barang

2. Kita buat dulu tabel barang nya caranya pilih CREATE dan pilih TABEL DESAIGN, dan tampilan nya akan seperti ini.

membuat tabel barang

3. Tulis atau isikan KODE BARANG, NAMA BARANG, KODE JENIS, HARGA BARANG dan STOCK Seperti gambar di bawah in.Dan simpan dengan nama Barang

cara membuat tabel barang

4.  Kalok sudah, pilih VIEW...dan isikan kode barang, nama barang, kode jenis, harga barang dan stock yang sudah di buat tadi sesuai keniginan agan-agan..sperti contoh di bawah ini:


cara membuat tabel barang


5. Dan selanjut nya kita simapan dengan nama Barang atau Tabel barang.. Dan sekarang kita ke langkah-langkah membuat form desaign nya

Cara nya pilih CREATE-FORM DESAIGN dan desaign form nya seperti di atas atau sesuai keniginan agan-agan...Dan disini saya mengguanaka :
  •  6 Text BOX
  •  10 BUTTON atau COMMAND BUTTON dan
  •  1 LABEL
 Seperti gambar di bawah ini: 

cara membuat tabel barang 

Desaign lah sesuai ke inginan agan-agan, dan ganti nama-nama text box dan commend button nya sperti gambar di atas, kalok sudah simpan dengan nama form data barang atau Barang

    jangan lupa sesuaikan nama text box dan commend buttton nya agar coding nya tidak error

Tahap terakhir masukan coding nya, cara nya pilih DATABASE TOOLS dan klik VISUAL BASIC
Dan pilih form data barang yang sudah di buat tadi, maka akan muncul seperti gambar di bawah ini...

cara membuat tabel barang dan form

 Dan masukan coding di bawah ini atau temen-temen bisa download nya DISINI


Option Compare Database
Dim koneksi As New ADODB.Connection
Dim rsbarang As New ADODB.Recordset

Sub tampildata()
Txtkodebarang.Value = rsbarang(0)
txtnamabarang.Value = rsbarang(1)
txtharga.Value = rsbarang(2)
txtjenis.Value = rsbarang(3)
txtstock.Value = rsbarang(4)
End Sub


Private Sub cmdadd_Click()
Txtkodebarang.Value = ""
txtnamabarang.Value = ""
txtharga.Value = ""
txtjenis.Value = ""
txtstock.Value = ""
Call txt(False)
Txtkodebarang.SetFocus
End Sub

Private Sub cmdclose_Click()
A = MsgBox("Yakin Mau Keluar?", vbYesNo + vbInformation, "PESAN")
If A = vbYes Then
End
End If
End Sub

Private Sub cmddel_Click()
If MsgBox("YAKIN MAU DIHAPUS?", vbQuestion + vbYesNo, "Konfirmasi") = vbYes Then
rsbarang.Delete
rsbarang.MoveFirst
Call tampildata
End If
End Sub


Private Sub cmdedit_Click()
Call txt(False)
End Sub

Private Sub Cmdfirst_Click()
rsbarang.MoveFirst
Call tampildata
MsgBox "Ini adalah data pertama"
End Sub

Private Sub cmdlast_Click()
rsbarang.MoveLast
Call tampildata
MsgBox "Ini adalah data terakhir"
End Sub

Private Sub cmdnext_Click()
rsbarang.MoveNext
If rsbarang.EOF Then
rsbarang.MoveLast
MsgBox "ini sudah data terakhir"
End If
Call tampildata
End Sub

Private Sub cmdprev_Click()
rsbarang.MovePrevious
If rsbarang.BOF Then
rsbarang.MoveFirst
MsgBox "ini sudah data pertama"
End If
Call tampildata
End Sub

Private Sub cmdsearch_Click()
If rsbarang.RecordCount > 0 Then rsbarang.MoveFirst
rsbarang.Find "KODEBARANG'" & txtcari.Value & "'"
If Not rsbarang.EOF Then
cmdsearch.Visible = False
Call tampildata
Else
MsgBox "Barang tidak ketemu"
rsbarang.MoveFirst
cmdsearch.Visible = True
End If
Call tampildata
txtcari.Value = ""
End Sub

Private Sub Form_Load()
Set koneksi = CurrentProject.Connection
koneksi.CursorLocation = adUseClient
rsbarang.Open "barang", koneksi, adOpenDynamic, adLockBatchOptimistic
Call tampildata
End Sub

Public Sub txt(bk As Boolean)
Txtkodebarang.Locked = bk
txtnamabarang.Locked = bk
txtharga.Locked = bk
txtjenis.Locked = bk
txtstock.Locked = bk
End Sub

Dan simpan form nya dengan nama form data barang dan langsung coba...

Sekian dari Tutorial cara membuat tabel barang dan form barang menggunakan microsoft acces 2013 ini dan semoga bemanfaat... Kalok ada yang mau di tanyakan silahkan komentar..Dan jangan lupa sering-sering lah mencoba karna pepatah bilang BISA KARNA TERBIASA...      Wassalam  Good Luck

TAGS:
cara membuat database dengan microsoft access 2010
cara membuat database dengan microsoft access 2007
cara membuat database dengan microsoft access 2013
cara membuat database dengan microsoft access 2007 pdf
contoh database dengan access
cara membuat database dengan microsoft access 2016
membuat aplikasi kasir dengan ms access 2007
cara membuat database perpustakaan di microsoft access


ARTIKEL LAIN NYA

Komentar

Posting Komentar

Postingan populer dari blog ini

Pemilihan Presiden dan Wakil Presiden

Gambar
Pemilihan Presiden dan Wakil Presiden merupakan salah satu materi yang terdapat pada mata pelajaran Pendidikan Kewarganegaraan kelas 6. Materi Pemilihan Presiden dan Wakil Presiden ini mengulas tentang bagaimana proses Pemilihan calon Presiden dan Wakil Presiden secara demokrasi, mulai dari penentuan calon peserta, pemilih, cara berkampanye, pemungutan suara hingga penetapan calon terpilih. Berikut ulasan materinya. semoga bermanfaat.  Sebelum pemilu tahun 2004 pemilihan Presiden dan Wakil Presiden RI dilakukan oleh Majelis Permusyawaratan Rakyat (MPR). Namun, mulai Pemilu 2004 calon Presiden dan Wakil Presiden RI dipilih secara langsung oleh bangsa Indonesia melalui pemilihan umum presiden dan wakil presiden. Proses pemilihan calon presiden dan wakil presiden dan tahapan-tahapannya hampir sama dengan pemilihan DPR, DPRD, dan DPRD. Pemilu presiden dan wakil presiden diselenggarakan oleh KPU. 1. Peserta Pemilu Presiden dan Wakil Presiden Peserta pemilu presiden dan wakil presiden ad...
Baca selengkapnya

Kerajaan Singasari

Gambar
Kerajaan Singasari berdiri pada tahun 1222. Kerajaan ini didirikan oleh Ken Arok. Ia mendirikan Singasari setelah mengalahkan Kerajaan Kediri pada pertempuran di Ganter. Kerajaan Singasari terletak di antara Kota Lawang - Malang, Jawa Timur. Ken Arok adalah pembentuk dinasti Rajasa sebagai raja yang memiliki pengaruh di kerajaannya. Ia berusaha mempertahankan keberadaan Singasari atas keturunannya sendiri. Tohjoyo direncanakan sebagai penggantinya. Namun, sebelum rencananya terwujud terjadi kemelut dalam kerajaan. Anusapati (anak Tunggul Ametung) membunuh Ken Arok melalui orang upahan. Setelah mengetahui bapaknya dibunuh, Tohjoyo lalu membunuh Anusapati pada tahun 1248. Rencana balas dendam antar keturunan terus berlanjut. Tohjoyo pun mengalami nasib yang sama. Ia dibunuh oleh keturunan Anusapati. Akhirnya, pada tahun 1268 Wisnuwardhana memerintah di Kerajaan Singasari. Mulai masa itulah kerajaan ini berhenti bertikai dengan bantuan Mahesa Campaka. Mahesa Cempaka adalah saudara seayah ...
Baca selengkapnya

Pesawat Sederhana

Gambar
Berikut ini merupakan materi IPA kelas 5 tentang Pesawat sederhana yang dapat kalian pelajari. Berikut uraian singkat materi pesawat sederhana. PESAWAT SEDERHANA Pesawat sederhana dirancang untuk memudahkan pekerjaan manusia. Untuk lebih jelasnya maka kita akan memperlajari prinsip-prinsip pada bidang miring. 1. Tuas Pengungkit merupakan tuas yang paling sederhana. janis tuas dibedakan menjadi 3 golongan yaitu; a. pengungkit jenis I Urutannya yaitu beban - titik tumpu - kuasa Contoh: gunting dan tang b. pengungkit jenis II Kuasa - beban - titik tumpu Contohnya mendorong gerobak pasir c. pengungkit jenis III Contohnya memegang sekop untuk mengambil tanah 2. Bidang Miring Bidang miring adalah letak permukaan-permukaan yang miring. Bidang miring digunakan untuk memudahkan pekerjaan kita. Misalnya, memindahkan kayu ke dalam truk. Keuntungan menggunakan bidang miring. Tenaga yang dibutuhkan sama, tetapi memudahkan usaha atau kerja. Kelemahan bidang miring adalah jarak tempuhnya menjadi jau...
Baca selengkapnya