Langsung ke konten utama

Kupas Tuntas Penomoran Otomatis di Access 2007

Oke kawan sedit lagi nih tambahan mudah-mudah gak boring hehehehehe oke langsung aja liat di bawah untuk pembahasanya:

pada dasarnya penomoran otomatis memilik beberapa fungsi sebagai berikut :



1.Menghindari Penyalahgunaan Dokumen

2.Menghindari Penomoran Dokumen yang ganda

3.Memudahkan dalam control penggunaan dokumen

4.Memudahkan dalam penulusuran (trace) ketika terjadi dokumen yang hilang.

5.Pengunaan Nomer terurut merupakan salah satu ciri dari dokumen yang baik yang bisa di gunakan
   untuk bahan pemeriksaan ( auditing)

Nah berikut ini VBA code beserta penjelasanya... saya berikan 2 contoh format penomeran otomatis dan VBA selamat anda tau konsep penomoran otomatisnya sebenernya kaliat akan dengan mudahnya membuat penomoran otomatis dengan format penomoran yang di perlukan


Untuk penomoran otomatis berurutan P-0001, P-0002, P-0003, berikut ini VBAnya :



Private Sub cmdbaru_Click()
On Error GoTo cmdbaru_Click_Err
Dim no
    DoCmd.GoToRecord , , acLast  ===è Melakukan pengecekan record terakhir pada table
    no = Right(No_Pelanggan, 4)  ===è Pengemabilan karakter  sebanyak 4 digit sebelah kanan  Cth 0001, 0002
    no = Val(no) + 1  ===è Konversi dari type data text ke numeric sehingga bisa di lakukan penambahan  (+1)
    no = Trim(Str(no))  ==è Untuk menghilangkan Spasi dan meng konversi kembali ke nilai string
    no = Mid("0000", 1, 4 - Len(no)) + no  ==è untuk mematikan 4 digit
    DoCmd.GoToRecord , , acNewRec  ==è menambahkan data baru dalam table
    No_Pelanggan = "P-" + no   ==è Menampilkan No pelanggan dengan format “P- Nomer berurut”
    Nama_Pelanggan.SetFocus =====è Memberi Fokus Pada Nama Pelanggan
    nonaktif     ===è Procedure aktivasi button yang sebelumnya kita buat
    rubah = True   ====è variabel perubahan data
cmdbaru_Click_Exit:
    Exit Sub
cmdbaru_Click_Err:     ======> error handling untuk table dalam keadaan kosong
    No_Pelanggan = "P-0001"
    Nama_Pelanggan.SetFocus Error       
    nonaktif 
    rubah = True
    Resume cmdbaru_Click_Exit
End Sub


Oke yang berikut ini jika penomoran otomatis dengan format 2 digit pertama tahun sedang berjalan dan 4 digit berikutnya nomer berurut sehingga nanti akan muncul no otomatis sebagai berikut : 110001, 110002, 110003, Oke ini VBAnya beserta pembahasannya


On Error GoTo cmdbaru_Click_Err
Dim tgl, no  ==è deklarasi variable variant 
   tgl = Format(Date, "yy")      ==è mengisi variable tanggal dengan 2 digit tahun tanggal sistem komputer  anda
   DoCmd.GoToRecord , , acLast
   If Left(No_faktur, 2) = tgl Then  ==è pengecekan kondisi jika 2 digit pertamanya  sbernilai variabel  tgl  ( true)
      no = Right(No_faktur, 4)
      no = Val(no) + 1
      no = Trim(Str(no))
      no = Mid("0000", 1, 4 - Len(no)) + no      Blok program yang di jalankan ketika kondisi true
   Else
      no = "0001“  =====è memberi nilai awal jika kondisi table dalam keadaan kosong dan berganti tahun
   End If
    DoCmd.GoToRecord , , acNewRec
    No_faktur = tgl + no    ====è format penomoran oto matis cth : 110001,110002
    No_Pelanggan.SetFocus
    nonaktif
cmdbaru_Click_Exit:
    Exit Sub
cmdbaru_Click_Err: ===================> ini error handdlingnya 
   DoCmd.GoToRecord , , acNewRec
    No_faktur = tgl + no
    No_Pelanggan.SetFocus                   
    nonaktif
    Resume cmdbaru_Click_Exit
End Sub


Selamat Mencoba semoga bermanfaat :)

Komentar

welcome to ghia's blog mengatakan…
dapet tugas bikin kode otomatis,lalu coba nyari di internet dan dapet persis kaya tugas yg saya kerjain eh ternyata ini blog punya dosen sy sendiri hahahaha tapi pak knp yah tiap udah di close formnya tp nomornya kembali ke P-0001 lg ? jd muncul pesan error
14 Oktober 2013 pukul 05.42
3belajaronline mengatakan…
kalo formnya ada group berulangnya sebainya coba di compack and repair dlu databasenya jika masih buat database baru kemudian import semua objek ke database baru
16 November 2014 pukul 22.35
Posting Komentar

Postingan populer dari blog ini

Contoh Rewrite Rule

melanjutkan post yang sebelumnya mengenai penyerderhanaan  link di website Sedikit aja Nih Gan Silakan di simak... RewriteEngine on RewriteRule ^home$ media.php?module=home [L] RewriteRule ^galeri-(.*)\.html$ zoom.php?id=$1 [L] RewriteRule ^album-(.*)\.html$ media.php?module=detailalbum&id=$1 [L] RewriteRule ^berita-(.*)\.html$ media.php?module=detailberita&id=$1 [L] RewriteRule ^agenda-(.*)\.html$ media.php?module=detailagenda&id=$1 [L] RewriteRule ^hasil-pencarian\.html$ media.php?module=hasilcari&id=$1 [L] RewriteRule ^indeks-berita\.html$ media.php?module=indeksberita&id=$1 [L] RewriteRule ^hasil-poling\.html$ media.php?module=hasilpoling&id=$1 [L] RewriteRule ^lihat-poling\.html$ media.php?module=lihatpoling&id=$1 [L] RewriteRule ^profil-kami\.html$ media.php?module=profilkami&id=$1 [L] RewriteRule ^tentang\.html$ media.php?module=tentang&id=$28 [L] RewriteRule ^hubungi-kami\.html$ media.php?module=hubungikami&id=$1 [L] Rewri
Posting Komentar
Baca selengkapnya

Mengenal Karakteristik Dan Siklus Hidup worm , virus, trojan horse, ataupun malcode lainnya

pada umumnya worm memiliki kemampuan dasar sebagai berikut : 1.        KEMAMPUAN REPRODUKSI DAN DISTRIBUSI Yaitu kemampuan yang mutlak dimiliki oleh worm untuk membuat salinan dirinya sendiri, sekaligus mendistribusikan salinan tersebut pada system yang lain baik   melalui media penyimpanan   seperti flasdisk, disket dll, maupun melalui jaringan komputer, walau pun memiliki rutin untuk menginfeksi program lain namun tidak bertujuan menjadikan file program terinfeksi sebagi file infektor. Pada awalnya wor dibuat dengan aksi memnuhi hardisk dan jaringan, namun seiringnya perkembangan jaman   dan teknologi informasi hal ini di tinggalkan oleh para worm writter   karena malah akan mengurangi kemampuan worm itu sendiri dalam menyembunyikan dirinya sendiri, yang akan berakibat worm tersebut cepat terendus oleh advance user ataupun oleh para vendor pembuat anti virus. 1.        KEMAMPUAN REKAYASA SOSIAL Karena file infektor akan aktif saat user meng esekusi maka social engenering at
5 komentar
Baca selengkapnya

ANIMASI 2D SEDERHANA DENGAN MENGGUNAKAN SWISHMAX 2.0

baiklah oke tulisan ini saya buat karena ada permintaan teman yang ingin tau mengenai software Swish Max 2.0.. oke kita mulai heheheh.... A. SEKILAS TENTANG ANIMASI Animasi merupakan bagian dari aplikasi multimedia, apa sih Multimedia ? diambil dari padanan katanya multi berarti banyak, bermacam-macam media, media yang bisa digunakan bisa berupa picture, music, text, bahkan juga video jadi multimedia adalah menggabungkan berbagai macam media sehingga terbangun sebuah aplikasi bebasis audio visual. Pada dasarnya animasi bisa dibagi menjadi 2 dilihat dari pergerakannya (Navigasi objek) adalah sebagai berikut : Animasi Sequential jika pergerakan objek-objeknya tersusun secara berurutan contohnya : Animasi Nonsequential jika pergerakan animasinya tidak tersusun secara berurutan sehingga user dapat menentukan snavigasi tiap objek-objek pada animasi tersebut contohnya : Adapun Sofware-sofware yang bisa digunakan untuk pembuatan animasi adalah sebagai berikut :  Swish Max  Macrom
Posting Komentar
Baca selengkapnya