Membuat Aplikasi Gudang Bagian IV (Membuat Form Setup Kategori Barang) Nomor Urut dengan Variable

Selamat berjumpa kembali rekan-rekan sekalian...

Salam Sukses selalu!!

Hari ini saya akan membagikan kelanjutan dari Aplikasi Gudang yang telah kita buat sebelumnya, pada pembahasan kali ini saya akan membuat  Form Setup Kategori Barang.

Seperti yang telah kita ketahui bersama, bahwa teknologi informasi berkembang dengan sangat pesat, aplikasi-aplikasi dan software pendukung operasional suatu usaha, atau kegiatan apa pun itu, banyak yang sudah diciptakan, yang fungsi utamanya adalah untuk mempermudah dalam pengambilan suatu keputusan yang cepat dan tepat.

Oleh karena itu, pada aplikasi gudang ini saya akan menambahkan menu untuk Kategori barang sehingga nanti di pelaporan dari aplikasi ini akan terlihat dan dengan cepat diketahui Kategori Barang apa yang paling sering keluar, atau sering terjadi retur dan sebagainya sesuai dengan kebutuhan.

Langkah-langkah nya adalah sebagai berikut:

1. Buka kembali Aplikasi Gudang yang telah kita buat sebelumnya (ingat!!!, yang versi 2003nya yang dibuka)
2. Masuk di Menu Ribbon pilih More Forms, lalu Form Wizard, lalu pilih Table: dbkategori, lalu pilih semua filed yang ada pada table tersebut, kemudian klik next, pilih columnar, untuk style Form nya pilih Northwind, lalu klik next, dan berikan nama Input Data Kategori Barang
3. Setelah itu pada Properties Form (sudah dijelaskan mengenai Properties Form sebelumnya) rubah settingannya sbb: Pop Up: Yes; Record Selectors: No; Navigation Button: No; Scroll Bars: Neither; Min Max Buttons: None, Data Entry: Yes.
4. Lalu ketikan kode berikut di Build Event Form Input Data Kategori Barang:

Option Compare Database

Private Sub Form_Load()

    Me.ID_kategori.Enabled = False

    Me.nama_kategori.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

    strKriteria = "KTGR-"

    If DCount("id_kategori", "dbkategori", "[id_kategori] Like '" & strKriteria & "*'") = 0 Then

    intNoUrut = 1

    Else

    intNoUrutTertinggi = CInt(Right(DMax("id_kategori", "dbkategori", "[id_kategori] Like '" & strKriteria & "*'"), 4))

    intNoUrut = intNoUrutTertinggi + 1

    End If

strNoUrut = Format(intNoUrut, "0000")

ID_kategori.Value = strKriteria & strNoUrut

    Me.nama_kategori.Enabled = True

    Me.Simpan_Data.Enabled = True

    Me.nama_kategori.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.Data_Baru.Enabled = True

    Me.nama_kategori.Enabled = False

    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

     5.    Setelah itu tampilan Form Input Data Kategori Barang akan menjadi seperti berikut ini:

Demikian dari saya, semoga bisa bermanfaat, nantikan postingan saya selanjutnya, hehehehe....

Salam Dahsyat!!! Sukses LUAR BIASA!!!