Membuat Tombol Tambah Barang Otomatis

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.

More about → Membuat Tombol Tambah Barang Otomatis

Kode Access Membuat Tombol Update

M

elanjutkan tutorial sebelumnnya Microsoft Access Tutorial (Part2 ), sekarang kita akan mencoba memberikan tambahan pada perintah tombol Save, perintah ini bertujuan untuk meg-update sebuah data informasi dari sebuah kode barang yang tersimpan dalam table, lenih gampangnya, mengedit informasi barang, namun bagi anda yang baru menemukan artikel ini saya sarankan untuk mempelajari dulu Microsoft access tutorial ( Part2 ), karena sangat berhubungan dan merupakan kelanjutan dari materi tersebut.

Pada langkah ini kita akan merubah / menambahkan kode update pada perintah di dalam tombol save yang kemarin kita buat.

Langkahnya sebagai berikut :

• Buka file yang kemarin kita buat dan kita simpan ke dalam computer
• Pada kolom object pilih Form, pada kotak isi Form Pilih Formbarang kemudian Klik Desaign
• Maka akan tampil jendela seperti gambar 1
• Klik kanan tombol save – pilih build Event, Karena tombol tersebut sudah terisi perintah, maka kita tidak di berikan pilihan Choose Builder, melainkan kita akan dlangsung diarahkan pada jendela Microsoft Visual basic tepat pada isi dari kdoe perintah Tombol save, lihat gambar 2
• Hapuslah kode yang terlihat di blok ( pada gambar 2 ) dang anti dengan kode di bawah ini :

If MsgBox("Update Data. Lanjutkan ?", vbInformation + vbYesNo) = vbYes Then

            CurrentDb.Execute "update tabel_barang set nmbrg='" + Text2 + "', jumlah=" + Str(CLng(Text3)) + ", hrg=" + Str(CLng(Text4)) + " where kdbrg='" + text1 + "'"

            List14.Requery

            cmd1_Click

        End If

• Dengan demikian susunan kode akan tampak seperti gambar 3
• Sekarang tekan Alt+F11 untuk kembali ke jendela Microsoft access ubah tampilan form pada mode Form View dan silahkan anda klik 2 kali salah satu data pada daftar barang
• Setelah data masuk pada kotak textbox, silahkan Ubah salah satu detailnya ( namun jangan mengubah Kode Barang, silahkan Ubah Naa barang atau Jumlah barang ataupun stok barang )
• Setelah itu tekan tombol save, maka akan keluar message box  seperti gambar 4
• Untuk melakukan perubahan isi Data silahkan pilih Yes pada kotak MessageBox

Selesai, langkah diatas adalah modifikasi tombol save

Selanjutnya kita akan mengubah perintah pada tombol New agar lebih unik dan multi fungsi, lanjutkan Pembelajaran pada Microsoft Access Tutorial ( Part4 )

More about → Kode Access Membuat Tombol Update

Belajar pengkodean M. Access ( Coding )

M

elanjutkan Pembelajaran Microsoft access tutorial ( Part1 ) pada artikel sebelumnya, berikut akan saya paparkan langkah pemberian kode pada sebuah Form M. Access atau sering di sebut dengan Proses Peng-Coding-an, yaitu proses memberikan beberapa perintah pada sebuah Command Button agar dapat di fungsikan seperti yang diinginkan. Namun saya sarankan agar anda benar-benar mencermati artikel pada Microsoft Access tutorial ( Part1 ) agar anda tidak bingung saat melakukan peng-kode-an

Pada tutor sebelumnya kita telah membuat sebuah table dengan nama table_barang dan sebuah form dengan nama formbarang. Pada form Barang telah kita berikan 4 command Button yaitu New, Save, Delete dan Exit, namun belum terdapat kode apapun didalamnya

Sebagai catatan : sebenarnya ada dua cara untuk memasang tombol / Command Button,  Pertama dengan mengikuti perintah command button sampai proses Finish, cara ini akan membuat sebuah command button terbentuk lengkap dengan perintahnya dan bisa digunakan. Kedua dengan meng-cancel pembuatan command button, sehingga command button yang terbentuk masih kosong ( belum terdapat kode ) dan kita harus mengisikan kode perintah agar command button tersebut dapat berfungsi. Tutorial ini menganjurkan kita untuk menggunakan langkah kedua, tujuanya agar kita bias tahu bagaimana sebenarnya penyusunan perintah pada Microsoft access.

Mari mulai pembelajaran Part2 kita :

• Pada formbarang yang telah kita bentuk, aktifkan desaign view, bukan pada form view, klik kanan pada command button New – pilih Build Event
• Maka akan muncul jendela Choose builder, pilih Code Builder dan klik tombol Ok. Lihat gambar 1
• Maka akan muncul jendela Microsoft Visual Basic perhatiakan gambar 2

Penting untuk di perhatikan :

1. Lingkaran no 1 menunjukkan name dari command button yang akan kita berikan Kode
2. Lingkaran no 2 menunjukkan Action yang kita pilih, Action artinya langkah yang dilakukan pada command button untuk menjalankan perintah didalamnya
3. lingkaran no 3 artinya jika kita lakukan Click pada command button dengan name cmd1 maka perintah akan di lakukan
4. lingkaran no 4 menunjukkan label dari command button yang sedang di tempati oleh pointer mouse

• tepat di bawah kalimat Private Sub cmd1_Click(), ketikkan kode berikut

text1  = ” ” ( tanda petik dua tanpa spasi )

Text2 = ” ” ( tanda petik dua tanpa spasi )

Text3 = ” ” ( tanda petik dua tanpa spasi )

Text4 = ” ” ( tanda petik dua tanpa spasi )

Text1.setfocus

Keterangan : text1 = “ “ artinya perintah untuk mengosongkan Textbox dengan nama Text1 dan seterusnya, sedangkan text1.setfocus artinya mengarahkan pointer ke kotak textbox text1

• sekarang tekan Alt+F11, untuk berpindah pada jendela Microsoft access
• ubah tampilan form pada mode Form View, isi semua text box yang ada kemudian tekan tombol New, jika semua kotak menjadi kosong dan pointer berpindah pada kotak kode barang artinya kode yang anda buat sudah Benar ( penulisan kode yang kurang akan membuat Debug Pada Program, meskipun hanya kurang spasi )
• berikutnya kembalikan tampilan Form pada Desaign View, klim kanan pada area Form yang kosong, pilih Build Event kemudian Code Buider dan klik OK
• pada jendela Visual Basic, ubah Detail manjadi Form dan tepat di bawah Private Sub Form_Load() ketikkan kode berikut

Text5 = Format(Date, "dd/mm/yyyy")

tujuanya agar saat program dijalankan kotak tanggal akan langsung terisi dengan tanggal sesuai tanggal yang di set pada system computer anda lihat gambar 3

• klik kanan pada Command Button Save – pilih Build Event , pada kotak Choose buider pilih Code builder, hingga tampil seperti gambar 4
•  tepat di bawah Private Sub cmd2_Click() ketikkan kode barikut

Dim a As Object

If Len(text1) > 0 Then

    Set a = Nothing

    Set a = CurrentDb.OpenRecordset ("select * from tabel_barang where kdbrg='" + text1 + "'")

    If a.recordCount > 0 Then

        MsgBox ("kode Sudah Terpakai"), vbOKOnly

        text1.SetFocus

    Else

        CurrentDb.Execute "insert into tabel_barang values('" + text1 + "','" + Text2 + "'," + Str(CLng(Text3)) + "," + Str(CLng(Text4)) + ",#" + Text5 + "#)"

        List14.Requery

        cmd1_Click

    End If

Else

    MsgBox ("Data Input Belum Lengkap"), vbOKOnly

End If

Lihat penempatan hasil penulisan kode pada gambar 5

Keterangan : kode '" + nama text + "' untuk mengisi colom table dengan type  text dan kode  " + Str(CLng(namatext)) + " untuk mengisi Colom pada table dengan type Number atau Currency, sedangkan Kode  #" + Text5 + "#  untuk mengisikan colom table dengan type Date/Time

List14 adalah name dari listBox yang kita buat di dalam Form untuk mengetahui

Kode diatas akan melakukan proses sebagai berikut :

Program akan memeriksa apakah kotak Kode sudah terisi atau belum jika belum maka akan tampil pesan “ Data Input Belum Lengkap “, jika sudah maka program akan memeriksa ke dalam table apakah kode yang ada pada text1 sudah pernah ada pada table_barang, jika sudah maka program akan memberi tahu kita bahwa “ Kode sudah Terpakai “ jika belum maka program akan memasukkan Data input ke setiap kolom yang di tuju

• Berikutnya silahkan tekan Alt+F11 untuk loncat ke jendela Microsoft Access, ubah tampilan Form pada Form View dan isikan semua textbox yang ada ( untuk kotak Stok Barang dan Harga Pembelian harus di isi dengan Angka ), kemudian klik tombol simpan, jika Data input anda tampil pada kolom list artinya kode sudah ditulis dengan Benar, jika keluar Debug maka anda harus memeriksa kembali Kode yang anda tulis, lihat contoh hasil tombol Save pada Gambar 6
• Sekarang kita akan buat  data yang ada pada lixtbox akan berpindah ke kotak text box saat di double klik
• Pastikan form pada tampilan Desaign View kilk kanan Listbox yang ada di dalam Form – pilih Build Event – Code Builder dan OK
• Pada Jendela Microsoft Visual Basic , Ganti BeforeUpdate menjadi DblClick
• Tepat di bawah Private Sub List14_DblClick(Cancel As Integer) ketikkan kode berikut

Dim s As Object

Set s = Nothing

Set s = CurrentDb.OpenRecordset ("select * from tabel_barang where kdbrg='" + List14.Column(0) + "'")

With s

    text1 = s!kdbrg

    Text2 = s!nmbrg

    Text3 = s!jumlah

    Text4 = s!hrg

    Text5 = s!Date

End With

Lihat gambar 7

• Sekarang jalankan program pada mode Form View dan klik 2 kali pada salah satu data di dalam listBox , jika terjadi Debug berarti seperti biasa, ada kesalahan saat mengetikkan kode
• Selanjutnya kita berikan kode perintah untuk tombol Delete
• Pastikan Form pada mode desaign View klik kanan cmd3 atau tombol Delete, pilih Build Event – Code Builder dan OK
• Tepat di bawah Private Sub cmd3_Click() Ketikkan Kode Berikut

Dim a As Object

If Len(text1) > 0 Then

    Set a = Nothing

    Set a = CurrentDb.OpenRecordset ("select * from tabel_barang where kdbrg='" + text1 + "'")

    If a.RecordCount > 0 Then

        CurrentDb.Execute "delete * from tabel_barang where kdbrg='" + text1 + "'"

        List14.Requery

        cmd1_Click

    Else

        MsgBox ("Data Dengan Kode '" + text1 + "' tidak ada dalam DataBase"), vbOKOnly

    End If

Else

    MsgBox ("Parameter Kosong, Double Klik Data Dari Daftar untuk Dihapus"), vbOKOnly

End If

Lihat gambar 8

• Kembali pada jendela Microsoft Access dan jalankan Form, klik 2 kali salah satu Data dari kotak Daftar barang dan tekan tombol Delete, coba Juga klik tombol Delete saat kotak Kode Barang kosong serta berikan  kode Barang yang belum pernah terpakai dan klik tombol Delete, periksa kembali kode yang anda ketikkan jika terjadi Debug
• Selanjutnya kita akan memasang kode untuk menutup Form pada tombol Exit
• Kembalikan Form pada Mde Desaign View , klik kanan Tombol Exit  - Pilih build Event – Code Builder dan tekan Tombol OK
• Tepat dibawah Private Sub cmd4_Click() ketikkan kode berikut

 DoCmd.Close acForm, Me.Name, acSaveYes

Lihat gambar  9

• Tekan Alt+F11 untuk loncat ke jendela Microsoft Access dan jalankan Form Pada mode Form View, tekan Tombol Exit , jika keluar peringatan untuk menyimpan perubahan Form Pilih Yes

Sampai disini Form yang kita buat Sudah dapat menyimpan Data input dari User / operator, mengenai tampilan Form silahkan sesuai kreatifitas anda, kita sering melihat Winamp, Setiap tombol yang dimiliki akan menyimpan kode perintah layaknya yang telah kita pelajari disini, namun lebih rumit.

tutorial ini merupakan Pembelajaran Tingkat paling Dasar Microsoft Acces, Berikutnya akan kita Bahas kombinasi tombol Save dan Delete serta Update DataBase pada Microsoft Access Tutorial ( Part3 ).
Dalam  Belajar apapun, Buang Rasa Malu pada Diri kita, karena memelihara Rasa malu bisa membuat kita jadi orang yang memalukan, namun ingat !!!!!! jangan pernah membuang kemaluan Anda, karena itu satu hal paling berharga yang anda miliki ………. Iyo po ra ?

More about → Belajar pengkodean M. Access ( Coding )

Membuat Tabel dan Form M. Access

J

ika pada artikel sebelumnya saya mengawali pembelajaran tentang microsoft access dengan definisi dan komponen-komponennya, maka kali  ini akan saya perjelas setiap komponen dari microsoft acces tersebut satu persatu. Mohon maaf Saya menggunkan Microsoft Office 2003, karena lebih ringan untuk computer saya.

TABLE :
Adalah sebuah object pada microsoft access yang di gunakan untuk menampung / menyimpan data input oleh user / operator, tujuan penyimpanan agar dapat di akses kembali saat diperlukan
Langkah pembuatan table

• Buka program Microsoft office – Microsoft access 2003
• Pada jendela M. access klik Create new File, kemudian klik Blank Database, berikan nama baru “belajar Access” dan tekan tombol Create, lihat gambar 1
• Klik Pada object Table dan pilih / klik 2 kali Create Table in Desaign View, sehingga muncul tampilan desaign table seperti gambar 2

1. Angka 1 menunjukkan tempat untuk memberikan nama kolom
2. Angka 2 akan di gunakan untuk menentukan type data yang di masukkan, penentuan type data akan berpengaruh pada pemberian kode pemrograman, setiap type Data akan memiliki kode sendiri-sendiri
3. Angka 3 digunakan untuk melakukan settinginformasi Field / kolom, mulai dari Caption / label kolom, Format dll
4. Terdapat toolbar dengan gambar kunci pada area toolbar atas, berfungsi untuk menghindari parameter data yang di masukkan.

•  Sebagai contoh pembuatan table silahkan anda Isikan pada baris pertama kolom field dengan kdbrg, kolom data type pilih Text, berikan caption = Kode Barang
• Isikan pada baris kedua  kolom Field dengan nmbrg, kolom Data type pilih text, berikan caption = Nama Barang
• Isikan  pada baris ketiga kolom field dengan jumlah, kolom Data type pilih Number, berikan caption = Stok Barang
•  Isikan pada baris  keempat  kolom Field dengan hrg, kolom Data Type pilih Currency, berikan caption = Harga Penjualan
• Isikan pada baris kelima kolom Field dengan date, kolom Data Type pilih Date/Time, berikan Caption = Tanggal Pembelian
• Sorotlah Baris Pertama kolom Field dari kiri kemudian klik toolbar gambar kunci, tujuannya agar kode barang yang masuk pada table tersebut tidak ada yang sama
• Sehingga anda mendapati seperti gambar 3
• Klik toolbar bergambar disket pada area toolbar untuk menyimpan table, berikan nama Tabel_barang ( Biasakan untuk tidak memberikan spasi saat memberikan nama paa table, karena pengalaman saya nama table dengan spasi sering membuat pencarian table oleh perintah M. Acces gagal
• Sekarang akan terlihat nama Tabel_barang pada kotak Object Table, itu menunjukkan kita telah memiliki sebuah table dengan nama Tabel_Barang lihat gambar 4
• Klik 2 kali table_barang sehingga terlihat seperti gambar 5
• Silahkan anda berikan beberapa input pada table, pada contoh ini saya memberikan input Sebanyak 3 informasi Data seperti terlihat pada gambar 6

FORM                                                                                       
Form Adalah Tampilan yang akan berhadapan langsung denan user sebagai tempat menginputkan Data ataupun penyajian informasi dari data yang telah tersimpan di dalam table
Contoh pembuatan FORM seperti langkah berikut :

•  Klik object Form dan klik 2 kali Create Form In New Desaign sehingga tampil desaign form seperti gambar 7
• Jika anda tidak menghendaki adanya Garis dan titik-titik anda bias menhilangkan dengan membuka menu View dan pilih Grid

Keterangan Form :

o       Jendela Form Berfungsi untuk membangun tampilan Aplikasi

o       Kotak Toolbar adalah kumpulan tool yang dapat di pasang pada area Form, perhatikan gambar 8

• Form ini akan kita gunakan untuk memberikan input pada Tabel_barang yang telah kita buat di atas.
• Klik text box pada kptak Toolbar dan klik pada area form, lakukan sebanyak 5 kali sehingga kita memiliki 5 textBox pada Form lihat gambar 9
• Ganti nama textbox pertama dengan text1, caranya klik kanan pada textbox pertama – pilih properties, ubahlah name menjadi text1 dan tutup properties textBox, lihat gambar 10
• Lakukan hal yang sama dengan memberikan nama berurutan pada textbox berikutnya text2, text3, text4 dan text5 . hal ini akan lebih memudahkan kita dalam menyusun kode perintah ( proses Coding )
• Sekarang klik kanan pada label text1  dan ubah caption menjadi Kode Barang , caranya klik kanan Label text1 pilih Properties, ubah caption menjadi Kode Barang kemudian tutup properties label lihat gambar11

Lakukan hal yang sama dengan ketentuan sebagai berikut

1.      Ubah label text2 menjadi Nama Barang

2.      Ubah label text3 menjadi Stok Barang

3.      Ubah label text 4 menjadi Harga Pembelian

4.      Ubah Label text5 menjadi Tanggal Pembelian

• Aturlah desaign sesuai keinginan anda, hasil dari saya lihat gambar 12
• Sekarang waktunya untuk membuat tombol ( Button )
•  Klik tombol Command Button dan klik pada area Form
•  Pilih cancel kemudian klik kanan button yang baru anda buat ganti name = cmd1 dan caption = New , maka tombol New sudah jadi
• Ulangi dengan membuat 3 tombol lagi yaitu Save, Delete dan Exit, lihat hasilnya pada gambar 13

Keterangan :

o       Command button kedua ( Save ) , ganti name menjadi cmd2

o       Command button ketiga ( Delete ) ,ganti name menjadi cmd3

o       Command Button keempat ( Exit ), Ganti Name menjadi cmd4

• Sekarang kita buat sebuah listBox untuk menampilkan table_barang
• Klik listbox tool pada kotak toolbar Form, klik pada area form
• Saat muncul listbox wizard pilih option “ I want the listbox  to look up the value in a table or query “ kemudian klik tombol Next
• Selanjutnya pilih table_barang dan klik Next
• Pindahkan semua Field dari available Field ke Selected field, klik tombol Next
•  Biarkan ascending kosong dan langsung klik Next
• Hilangkan Centang pada “  Hide Key Coloumn ( Recommended ) “ dan Klik Tombol Next
• Beri nama pada label Lisbox dengan “ Daftar Stok Barang “ dan klik Tombol Finish, lihat hasil seperti gambar 14
• Sekarang klik kanan pada listbox yang telah jadi dan pilih Properties, Ubah setting Coloum head menjadi Yes
• Sekarang dapat kita lihat dalam bentuk Form View, silahkan anda buka Menu View – Form View, anda akan dapati tampilan form seperti pada gambar 15
• Simpan Form dengan klik toolbar disket pada area toolbar bagian atas, beri nama dengan “ formbarang “, ingatlah untuk menulis nama Form ataupun tabel tanpa spasi

Sampai disini kita telah memiliki sebuah form kerja lengkap dengan table yang siap menampung / menyimpan input dari form tersebut, berikutnya adalah langkah pengkodean pada form, seringlah berkunjung untuk Update Tutorial selanjutnya Microsoft Access Tutorial ( Part2 )

More about → Membuat Tabel dan Form M. Access