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
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

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

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

Sekilas tentang ACL form Windows 7 untuk kebutuhan Audit Berbasis Komputer

ACL for Windows dirancang khusus untuk menganalisa data dan menghasilkan laporan audit untuk user non-teknis sampai expert users. Dengan menggunakan ACL, pekerjaan auditing akan jauh lebih cepat dibandingkan proses auditing manual yang memerlukan waktu sampai berjam-jam bahkan sampai berhari-hari. Dengan beberapa kemampuan ACL, analisis data akan lebih efisien dan lebih meyakinkan. Berikut ini beberapa kemampuan ACL : 1.       Mudah dalam penggunaan . ACL for Windows, sesuai dengan namanya adalah software berbasis windows, dimana sistem operasi windows telah dikenal User Friendly (mudah digunakan). Kemudahan ini ditunjukkan dengan user hanya melakukan click pada gambar-gambar tertentu (icon) untuk melakukan suatu pekerjaan, dan didukung pula dengan fasilitas Wizard untuk mendefinisikan data yang akan dianalisis. 2.       Built-in audit dan analisis data secara fungsional . ACL for Windows didukung dengan kemampuan analisis untuk keperluan audit/pemeriksaan seperti : Analisis Statisti