Membuat Aplikasi Gudang Bagian V (Membuat Form Input Data Pembelian, Membuat Subform dan Combo Box Otomatis)

Baiklah langsung to the point saja hehehe.....karena pembahasan hari lumayan banyak, hehehe...

Untuk membuat interface dalam penginputan data pembelian pada Aplikasi Gudang ini, ada beberapa bagian pada Ms. Access yang akan saya bagikan pada hari ini, yang pertama-tama harus dilakukan adalah, yah dibuka kembali Aplikasi Gudang yang sudah dibuat sebelumnya, hehehe...ok, inilah pembahasan hari ini:

1. Membuat Form Input Data Pembelian

    Langkah-langkah dalam memuat Form Input Data Pembelian, yaitu sebagai berikut:

• Pada tab Create di menu Ribbon Ms Access, pilih More Forms, lalu pilih Forms Wizard, setelah itu pilih table dbtransaksi kemudian pilih semua fields yang ada, lalu tekan next, pilih Columnar, lalu pilih Notrwind untuk style formnya, lalu klik next dan beri nama Input Data Pembelian.
• Setelah itu rubah settingan properties form tersebut menjadi seperti ini: Pop Up: Yes, Record Selectors: No, Navigation Button: No, Scroll Bars: No, Min Max: None.

    Sehingga tampilan sementara dari Form Input Data Pembelian akan menjadi seperti ini:

2. Membuat Subform Input Data Pembelian

    Langkah-langkah untuk membuat Subform pada ms access yaitu sebagai berikut:

• Pada tampilan design view dari Form Input Data Pembelian, klik tab design lalu cari tombol untuk membuat subform/subreport.
• Lalu drag di form input data pembelian untuk membuat subform tersebut lalu akan muncul dialog box Subform Wizard, lalu pilih Use Exsisting Tables and Queries, lalu klik next lalu pilih table dbtransaksi_detail pilih field kode_barang, nama_barang, jumlah_beli, dan satuan yang ada dari table tersebut kemudian klik next, lalu pilih Choose from a list kemudian klik Show dbtransaksi_detail for each record in dbtransaksi using idtransaksi, lalu klik next kemudian beri nama Input Data Pembelian Subform.
• Kemudian buat button Data Baru (untuk menambah data) dan Simpan Data (untuk menyimpan data) seperti yang sudah dijelaskan sebelumnya.

    Kemudian tambahkan kode dibawah ini pada form input data pembelian tersebut:

    Option Compare Database

Private Sub Form_Load()

    Me.idtransaksi.Enabled = False

    Me.nonota.Enabled = False

    Me.tanggal.Enabled = False

    Me.keterangan.Enabled = False

    Me.Subform_Input_Data_Pembelian.Enabled = False

    Me.Simpan_Data.Enabled = False

    Me.Data_Baru.SetFocus

End Sub

Private Sub Data_Baru_Click()

On Error GoTo Err_Data_Baru_Click

    DoCmd.GoToRecord , , acNewRec
    Me.tanggal.Value = Date

    Me.nonota.Enabled = True

    Me.keterangan.Enabled = True

    Me.Subform_Input_Data_Pembelian.Enabled = True

    Me.Simpan_Data.Enabled = True

    Me.nonota.SetFocus

    Me.Data_Baru.Enabled = False

Exit_Data_Baru_Click:

    Exit Sub

Err_Data_Baru_Click:

    MsgBox Err.Description

    Resume Exit_Data_Baru_Click

    

End Sub

Private Sub Simpan_Data_Click()

On Error GoTo Err_Simpan_Data_Click

    DoCmd.RunCommand acCmdSaveRecord

    Me.nonota.Enabled = False

    Me.keterangan.Enabled = False

    Me.Subform_Input_Data_Pembelian.Enabled = False

    Me.Data_Baru.Enabled = True

    Me.Data_Baru.SetFocus

    Me.Simpan_Data.Enabled = False

Exit_Simpan_Data_Click:

    Exit Sub

Err_Simpan_Data_Click:

    MsgBox Err.Description

    Resume Exit_Simpan_Data_Click

    

End Sub

    Sehingga tampilan sementara form input data pembelian akan menjadi seperti berikut ini:

3. Membuat Combo Box Otomatis

   Combo Box otomatis disini maksudnya adalah pada saat kita mengetikkan kode barang atau melakukan scan barcode barang maka field nama barang dan satuan akan secara otomatis terisi sesuai dengan kode barang tersebut. Langkah-langkah yang harus dibuat adalah buka Subform Input Data Pembelian dalam tampilan design view.
Setelah Subform Input Data Pembelian terbuka, klik kanan kode barang lalu pilih Change To kemudian pilih Combo Box. Perhatikan gambar dibawah ini:

Kemudian pada property sheet dari combo kode_barang klik tab data, kemudian pada row source klik tombol ([...]) untuk lebih jelasnya perhatikan gambar:

lalu akan muncul tampilan query builder sebagai berikut:

kemudian pilih dbbarang lalu klik add, setelah itu pilih field kode_barang dan nama_barang dari dbbarang tersebut, seperti pada gambar dibawah ini:

Kemudian simpan query builder tersebut dan tutup. Setelah itu pada property combo kode_barang pada tab format cari column count lalu isikan angka 3, perhatikan gambar dibawah ini:

Setelah itu ganti settingan properties form subform input data pembelian sebagai berikut: Record Selectors = No, Navigation Button = No. Kemudian ganti nama label kode_barang menjadi Kode Barang, nama_barang = Nama Barang, jlh_beli = Jumlah Beli, satuan = Satuan.

Setelah itu tambahkan kode berikut ini pada Form Subform Input Data Pembelian:

Option Compare Database

Private Sub form_load()
    Me.nama_barang.Enabled = False
    Me.satuan.Enabled = False
End Sub

Private Sub kode_barang_AfterUpdate()
    Me!nama_barang = kode_barang.Column(1)
    Me!satuan = kode_barang.Column(2)
End Sub

Sehingga tampilan Form Input Data Pembelian akan menjadi seperti ini:

Tahapan selanjutnya adalah membuat combo untuk kategori barang pada Form Input Data Barang, caranya hampir sama dengan membuat combo untuk kode barang pada subform diatas, yaitu:

• Buka kembali Form Input Data Barang dalam tampilan design view, kemudian rubah text box kategori_barang menjadi combo box, cara nya klik kanan kategori_barang lalu pilih Change to kemudian klik Combo Box
• Lalu pada properties combo kategori barang pada tab data lalu pada kolom row source klik tombol ([...]) kemudian akan terbuka query builder, lalu pilih dbkategori kemudian masukkan field nama_kategori, kemudian simpan lalu tutup query builder tersebut.
• Perhatikan gambar:

Demikian dari saya untuk hari ini, Salam Sukses LUAR BIASA!!!