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

Mengaktifkan Mod Rewrite di Os Distro Linux Debian / Ubuntu

Oke saya posting ini karena kebetuluan beberapa hari yang lalu saya bikin web dan saya coba menggunakan metode penyederhanaan link sehingga membantu untuk meningkatkan SEOnya,, dengan menggunakan file *. htacces yang isinya redirect link gitu... tapi ketika saya hosting ke server ... kebetulan os yang di gunakan menggunakan distro linux debian... tapi saya juga coba di distro linux ubuntu teryata sama walhasil website yang saya buat  error dengan pesan kesalah bahwa link yang di panggil tidak tersedia... setelah saya serching sana-sini akhirnya ketemu nih jurus manjurnya... mudah-mudahan bisa bermanfaat . >> Masuk ke super user dengan perintah      sudo su >> selanjutnya gunakan perintah locate untuk menemukan lokasi mod_rewrite.so pada server     locate   mod_rewrite.so >> ketemu, lokasinya di “/usr/lib/apache2/modules” >> selanjutnya masuk ke direktori mods-enabled     cd   /etc/apache2/mod...
Posting Komentar
Baca selengkapnya

Cara Mengunci Folder dengan pasword dan menyembunyikanya pada OS windows 7 Tanpa Bantuan Sofware Apapun

Oke sharing lagi akhir-akhir ini si compy di rumah banyak yang sering pake dan wal hasil data penting ane banyak yang hilang karena tangan-tangan yang tidak bertanggung jawab .... setelah di coba-coba searching sana sini ketemu nih solusinya oke materi di mulai.... untuk mengunci folder untuk OS windows 7 berikut langkah - langkahnya silakan di simak ^_^ Langkah Pertama Siapkan Folder dengan nama Private seperti pada gambar berkut :  Sebenernya sih nama directorynya boleh bebas asl jangan ada spasih aja di namnya ... oke selanjutnya  langkah 2 :  Buka NotePad kemudian ketikan kode program di bawah ini : ========================================================================== Quote: Quote: cls @ECHO OFF title Folder Private if EXIST "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" goto UNLOCK if NOT EXIST Private goto MDLOCKER :CONFIRM echo Are you sure you want to lock the folder(Y/N) set/p "cho=>" if %cho%==Y goto LOCK if %cho%==y goto...
Posting Komentar
Baca selengkapnya

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] R...
Posting Komentar
Baca selengkapnya