Membuat Tabel Induk Periode

Tabel yang disimpan dengan nama tblPeriode digunakan sebagai fungsi kontrol dalam pemasukkan jurnal transaksi. Hal ini untuk menghindarkan kesalahan posting pada periode akuntansi yang berjalan. Berikut adalah field yang dibutuhkan.

1. Field Name = TglAwalThn
   
   1. Data Type = Date/Time
   2. Description = Tanggal awal satu tahun (dalam periode akuntansi)
   3. Field Properties - General Tab:
      
      1. Format = Short Date
      2. Caption = Tgl Awal Tahun
      3. Default Value = =DateSerial(Year(Now()),1,1)
2. Field Name = TglAkhirThn
   
   1. Data Type = Date/Time
   2. Description = Tanggal akhir satu tahun (dalam periode akuntansi)
   3. Field Properties - General Tab:
      
      1. Format = Short Date
      2. Caption = Tgl Akhir Tahun
      3. Default Value = =DateSerial(Year(Now()),12,31)
      
3. Field Name = TglAwalBulanSebelum
   
   1. Data Type = Date/Time
   2. Description = Tanggal awal satu bulan sebelumnya (dalam periode akuntansi)
   3. Field Properties - General Tab:
      
      1. Format = Short Date
      2. Caption = Tgl Awal Bulan Sebelum
      3. Default Value = =DateSerial(Year (Now()),Month(Now())-1,1)
4. Field Name = TglAkhirBulanSebelum
   
   1. Data Type = Date/Time
   2. Description = Tanggal akhir satu bulan sebelumnya (dalam periode akuntansi)
   3. Field Properties - General Tab:
      
      1. Format = Short Date
      2. Caption = Tgl Akhir Bulan Sebelum
      3. Default Value = =DateSerial(Year(Now()),Month(Now()),1)-1
5. Field Name = TglAwalBulan
   
   1. Data Type = Date/Time
   2. Description = Tanggal awal satu bulan (dalam periode akuntansi)
   3. Field Properties - General Tab:
      
      1. Format = Short Date
      2. Caption = Tgl Awal Bulan
      3. Default Value = = =DateSerial(Year(Now()),Month(Now()),1)
6. Field Name = TglAkhirBulan
   
   1. Data Type = Date/Time
   2. Description = Tanggal akhir satu bulan (dalam periode akuntansi)
   3. Field Properties - General Tab:
      
      1. Format = Short Date
      2. Caption = Tgl Akhir Bulan
      3. Default Value = =DateSerial(Year(Now()),Month(Now())+1,1-1)
7. Field Name = TglAwalBulanBerikut
   
   1. Data Type = Date/Time
   2. Description = Tanggal awal satu bulan berikutnya (dalam periode akuntansi)
   3. Field Properties - General Tab:
      
      1. Format = Short Date
      2. Caption = Tgl Awal Bulan Berikut
      3. Default Value = =DateSerial(Year(Now()),Month(Now())+1,1)
8. Field Name = TglAkhirBulanBerikut
   
   1. Data Type = Date/Time
   2. Description = Tanggal akhir satu bulan berikutnya (dalam periode akuntansi)
   3. Field Properties - General Tab:
      
      1. Format = Short Date
      2. Caption = Tgl Akhir Bulan Berikut
      3. Default Value = =DateSerial(Year(Now()),Month(Now())+2,1-1)
9. Field Name = StatusThnBerjalan
   
   1. Data Type = Number
   2. Description = Status periode akuntansi, apakah sudah ditutup atau masih terbuka
   3. Field Properties - General Tab:
      
      1. Field Size = Integer
      2. Default Value = 0
      3. Caption = Status Periode Berjalan
10. Field Name = TglAwalThnSebelum
    
    1. Data Type = Date/Time
    2. Description = Tanggal awal satu tahun sebelum (dalam periode akuntansi)
    3. Field Properties - General Tab:
       
       1. Format = Short Date
       2. Caption = Tgl Awal Tahun Sebelum
       3. Default Value = =DateSerial(Year(Now())-1,1,1)
11. Field Name = TglAkhirThnSebelum
    
    1. Data Type = Date/Time
    2. Description = Tanggal akhir satu tahun sebelum (dalam periode akuntansi)
    3. Field Properties - General Tab:
       
       1. Format = Short Date
       2. Caption = Tgl Akhir Tahun Sebelum
       3. Default Value = =DateSerial(Year(Now())-1,12,31)
12. Field Name = TglAwalBulanThnSebelum
    
    1. Data Type = Date/Time
    2. Description = Tanggal awal satu bulan tahun sebelumnya (dalam periode akuntansi)
    3. Field Properties - General Tab:
       
       1. Format = Short Date
       2. Caption = Tgl Awal Bulan Sebelum
       3. Default Value =  =DateSerial(Year(Now())-1,12,1)
13. Field Name = TglAkhirBulanThnSebelum
    
    1. Data Type = Date/Time
    2. Description = Tanggal akhir satu bulan tahun sebelumnya (dalam periode akuntansi)
    3. Field Properties - General Tab:
       
       1. Format = Short Date
       2. Caption = Tgl Akhir Bulan Sebelum
       3. Default Value = =DateSerial(Year(Now())-1,12,31)
14. Field Name = TglAwalThnBerikut
    
    1. Data Type = Date/Time
    2. Description = Tanggal awal satu tahun berikut (dalam periode akuntansi)
    3. Field Properties - General Tab:
       
       1. Format = Short Date
       2. Caption = Tgl Awal Tahun Berikut
       3. Default Value = =DateSerial(Year(Now())+1,1,1)
15. Field Name = TglAkhirThnBerikut
    
    1. Data Type = Date/Time
    2. Description = Tanggal akhir satu tahunberikut (dalam periode akuntansi)
    3. Field Properties - General Tab:
       
       1. Format = Short Date
       2. Caption = Tgl Akhir Tahun Berikut
       3. Default Value = =DateSerial(Year(Now())+1,12,31)
16. Field Name = TglAwalBulanThnBerikut
    
    1. Data Type = Date/Time
    2. Description = Tanggal awal satu bulan tahun berikut (dalam periode akuntansi)
    3. Field Properties - General Tab:
       
       1. Format = Short Date
       2. Caption = Tgl Awal Bulan Tahun Berikut
       3. Default Value =  =DateSerial(Year(Now())+1,1,1)
17. Field Name = TglAkhirBulanThnBerikut
    
    1. Data Type = Date/Time
    2. Description = Tanggal akhir satu bulan tahun berikut (dalam periode akuntansi)
    3. Field Properties - General Tab:
       
       1. Format = Short Date
       2. Caption = Tgl Akhir Bulan Tahun Berikut
       3. Default Value = =DateSerial(Year(Now())+1,1,31)
18. Field Name = StatusThnSebelum
    
    1. Data Type = Number
    2. Description = Status periode akuntansi, apakah sudah ditutup atau masih terbuka
    3. Field Properties - General Tab:
       
       1. Field Size = Integer
       2. Default Value = 0
       3. Caption = Status Periode Sebelumnya
19. Field Name = PgnId
    
    1. Data Type = Text
    2. Description = Identitas pengguna yang meng-update
    3. Field Properties - General Tab:
       
       1. Field Size =104
       2. Caption = I Update Oleh
20. Field Name = Waktu
    
    1. Data Type = Date/Time
    2. Description = Waktu terakhir update
    3. Field Properties - General Tab:
       
       1. Format = General Date
       2. Caption = Waktu Update
       3. Default Value = =Now()