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.
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 SubBerbeda 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....
No comments:
Post a Comment