Membuat Tombol Tambah Barang Otomatis

Diposting oleh Unknown on Rabu, 07 Maret 2012

M
icrosoft Access tutorial kali ini akan mempelajari tentang Tombol New, merupakan lanjutan dari tutorial sebelumnya, dimana pada tutorial-tutorial sebelumnya telah saya paparkan isi dari tombol New yang terbilang sangan simple dan  hanya memberikan efek yang sama pada Form, sekarang kita akan naikkan fungsi dari Tombol New tadi.

Modifikasi ini akan membuat Tombol New memberikan angka secara otomatis untuk sebuah kode Barang, artinya saat kita klik tombol kode barang, akan langsung muncul kode baru pada kota kode barang.
Silahkan simak langkah berikut :
  • Buka kembali file M. Access anda hasil dari pembelajaran sebelumnya.
  • Pada kolom object pilih Table kemudian pilih table_barang lalu klik Open Lihat gambar 1
  • Maka kita akan mendaati table_barang pada mode Table  View, lihat gambar 2
  • Hapus semua isi table dengan cara klik kanan – Delete Record hingga Tidak ada Data yang tersisa dalam table_barang lihat gambar 3
  • Buka Menu View pilih Design View, table_barang beralih pada tampilan Design View seperti gambar 4
  • Ubahlah Data Type untuk Kode Barang Menjadi Number, dan Ubah Format Harga Dengan “Rp”#,###.00  lihat gambar 5
  • Berikutnya simpan Tabel_barang dengan toolbar gambar Disket dan tutup table_barang
  • selanjutnya pada kolom object pilih Form, kemudian pilih formbarang pada kotak isi form kemudian pilih Design lihat gambar 6
  • Sehingga kita dapati tampilan form pada mode Desaign View lihat gambar 7
  • Klik kanan Tombol New Pilih Build Event, sehingga anda akan di bukakan jendela Microsoft visual Basic seperti gambar  8
  • Pada gambar 8, perhatikan kode yang di blok warna hitam, hapuslah kode tersebut dan ganti dengan kode di bawah ini :

Dim NT As Object
Dim JK As Long
Set NT = CurrentDb.OpenRecordset ("select kdbrg FROM tabel_barang ORDER BY kdbrg")
With NT
    If .RecordCount > 0 Then
        .MoveLast
        JK = !kdbrg + 1
    Else
        JK = 1
    End If
    Set NT = Nothing
End With
text1 = JK
Text2 = ""
Text3 = ""
Text4 = ""
List14.Requery

Sehingga kode akan berubah seperti gambar 9
  • Sekarang tekan Alt+F11 untuk kembali pada jendela Microsoft Access
  • Jalankan Form Pada Mode Form View dan tekan Tombol New, jika Kode yang anda ketikkan Sesuai dengan contoh diatas, maka secara otomatis kotak kode barang akan terisi dengan angka 1, setelah anda simpan dan Menekan tombol New Lagi, maka kotak Kode Barang akan terisi dengan no 2, begitu seterusnya
Kini kita memiliki Tombol New yang mempunyai Fungsi lain yaitu me-record kode barang yang tersimpan dan memberikan kode barang baru sesuai dengan urutan penyimpanan.

{ 0 komentar... read them below or add one }

Posting Komentar