Form Data Master - Aplikasi Inventory Advanced I

Untuk keperluan penyimpanan data master, pada aplikasi ini disediakan tabel-tabel Daftar Kelompok Barang, Daftar Barang, Daftar Suplier dan Daftar Proyek/Produksi.

1. Daftar Kelompok Barang

Form kelompok barang bisa dibuka dengan memilih menu Daftar Kelompok Barang dari Menu Data Master. Menu pilihan ini digunakan untuk meng-entry, mengedit atau menghapus data master kelompok barang.

2. Daftar Barang

Form Data Barang bisa dibuka dengan memilih menu Daftar Barang dari Menu Data Master. Menu pilihan ini digunakan untuk meng-entry, mengedit atau menghapus data master barang.

3. Daftar Suplier

Form Daftar Suplier bisa dibuka dengan memilih menu Daftar Suplier dari Menu Data Master. Menu pilihan untuk meng-entry, mengedit atau menghapus data master suplier.

4. Daftar Proyek/Produksi

Form Proyek/Produksi bisa dibuka dengan memilih menu Daftar Proyek/Produksi dari Menu Data Master. Menu pilihan untuk meng-entry, mengedit atau menghapus data proyek/produksi.

5. Daftar Saldo Awal

Form Daftar Saldo Awal bisa dibuka dengan memilih menu Daftar Saldo Awal dari Menu Data Master. Menu pilihan untuk meng-entry, mengedit atau menghapus data saldo awal barang.
Daftar saldo awal diisi jika aplikasi baru digunakan dan belum ada data saldo awal. Untuk data saldo awal tiap bulan berikutnya akan dihitung secara otomatis pada saat user melakukan proses tutup transaksi.

Note:
Secara default semua form ini terkunci (locked) untuk menghindari perubahan data yang tidak disengaja. Untuk menambah data, mengedit data atau menghapus data klik tombol Unlock Data untuk membuka mode protect data pada form ini. Tombol Unlock Data akan berubah menjadi Lock Data. Jika sudah selesai melakukan proses tambah, edit dan hapus data click tombol Lock Data untuk mengunci form untuk mencegah perubahan data yang tidak disengaja.

Berikut adalah code program untuk melakukan proses Lock (protect) dan Unlock (unprotect) data pada form Daftar Barang:

Private Sub cmdMode_Click()
    If Me.cmdMode.Caption = "Unlock Data" Then  
        Me.cmdMode.Caption = "Lock Data"
        Call Unlock_Data
    Else
        Me.cmdMode.Caption = "Unlock Data"
        Call Lock_Data
    End If
End Sub

Sub Unlock_Data()
        Me.barang_subform.Form.AllowEdits = True
        Me.barang_subform.Form.AllowAdditions = True
        Me.barang_subform.Form.AllowDeletions = True
End Sub

Sub Lock_Data()
        Me.barang_subform.Form.AllowEdits = False
        Me.barang_subform.Form.AllowAdditions = False
        Me.barang_subform.Form.AllowDeletions = False
End Sub

Berbeda dengan form master barang khusus untuk form Saldo awal proses lock dan unlcok data hanya bisa dilakukan jika data bulan dan tahun adalah sama dengan periode aktif. Jika tidak maka form saldo barang tidak dapat diunlock.

Private Sub cmdMode_Click()
  If periode_aktif(Me.Bulan.Value, Me.Tahun.Value) = False Then
    MsgBox "Periode aktif tidak sesuai dengan periode yang anda pilih!" + vbCrLf + _
           "Data periode aktif saat ini :" + vbCrLf + _
           "Bulan : " + BlnPA & vbCrLf & _
           "Tahun : " + ThnPA, vbExclamation
  Else
    If Me.cmdMode.Caption = "Unlock Data" Then
        Me.cmdMode.Caption = "Lock Data"
        Call Unlock_Data
    Else
        Me.cmdMode.Caption = "Unlock Data"
        Call Lock_Data
    End If
  End If  
End Sub


Public Function periode_aktif(ByVal bln As Integer, ByVal thn As Integer) As Boolean
Dim strSql As String
Dim oRs As DAO.Recordset
strSql = "select * from periode_aktif where (bulan=" + bln + ") and (tahun=" + thn + ");"
Set oRs = CurrentDb.OpenRecordset(strSql)
If oRs.EOF = True Then    
    periode_aktif = False
Else
    periode_aktif = True
End If
oRs.Close
Set oRs = Nothing
End Function

Contoh file code program Access 2010 (accdb) bisa di-download di sini.
Selamat mencoba dan mempelajari, semoga sukses....

Artikel terkait dengan kategori ini: