Membuat Nomer Otomatis

Banyak pertanyaan di milis tentang cara membuat nomor baru secara otomatis. Misalnya nomor untuk Surat Jalan dimana nomor tersebut meningkat secara otomatis (sekuensial).

Berikut ini ada sebuah function sederhana untuk membuat nomor Surat Jalan secara otomatis.

Asumsi:
Table bernama: tbl_SuratJalan
Field nomor bernama: NoSuratJalan, type: Text, Size: 10 chars.

Nomor Surat Jalan terdiri dari 4 character pertama berisi prefiks, mungkin untuk kode lokasi, kode department, atau semacamnya. Nomor urut (sekuensial) panjangnya 6 chars.

Function NoBaru()
'Originally created by Haer Talib for RumahAccess.com
Prefiks = "AAbb"
NoBaru = Prefiks & "000000"
tSQL = "SELECT Max(NoSuratJalan) AS LastNo FROM [tbl_SuratJalan] " & _
"WHERE NoSuratJalan > '" & Prefiks & "000000' And NoSuratJalan <= '" & Prefiks & "999999'"
Dim rs1 As Object
Set rs1 = CurrentDb.OpenRecordset(tSQL, dbOpenDynaset, dbSeeChanges)
If Not rs1.EOF Then
LastNo = Val(Right(Nz(rs1!LastNo, "0"), 6))
Else
LastNo = 0
End If
rs1.Close
Set rs1 = Nothing
NoBaru = Prefiks & Format(LastNo + 1, "000000")
End Function

Anda bisa mengkustomasi function di atas untuk keperluan anda.
Unsur-unsur yang perlu dikustomasi adalah:
- Nama Table
- Nama Field untuk nomor
- String untuk Prefiks.

Semoga bermanfaat.

sumber : http://www.rumahaccess.com/

»»  READMORE...

Logo UKSW & KA

Logo Universitas Kristen Satya Wacana & Logo Komputerisasi Akuntansi

»»  READMORE...

PROFIL KOMPUTERISASI AKUNTANSI

Program Studi D-3 Komputerisasi Akuntansi diselengarakan dengan tujuan untuk menghasilkan lulusan Ahli Madya (Amd) terampil dan profesional yang bertanggung jawab serta memiliki kemampuan berkomunikasi dan bekerja sama dengan baik

"Being the Center of Excellence in
Computerized Accounting"

PROFIL LULUSAN

1. STAFF AKUNTANSI handal dengan kemampuan membuat pembukuan perusahaan, membuat laporan keuangan, dan mengoperasikan Paket Program Akuntansi.
2. PROGRAMMER APLIKASI AKUNTANSI pada level menengah dengan kemampuan membuat pembukuan perusahaan terkomputerisasi, membuat laporan keuangan terkomputerisasi dan mengaplikasikan laporan keuangan ke dalam internet.

PROFIL LULUSAN SECARA KHUSUS

• Accountant Assistant
• Accounting Application Programmer
  

KEMAMPUAN DASAR

• Kompetensi Dasar Akuntansi
• Kompetensi Dasar Komputer

KEMAMPUAN TAMBAHAN

• Pemeriksaan Akuntansi (Audit)
• Akuntansi Perbankan
• Manajemen
• Program Aplikasi Perkantoran (Office)
• Perpajakan
• Mengetik
• Bahasa Inggris

MATAKULIAH KONSENTRASI KOMPUTER

• Basis data untuk Internet
• Analisa Sistem Informasi
• Pemrograman Komunikasi Data
• Perancangan Sistem Informasi Akuntansi

MATAKULIAH KONSENTRASI AKUNTANSI

• Laboratorium Akuntansi
• Laboratorium Pemeriksaan Akuntansi
• Perancangan Sistem Akuntansi
• Analisa Sistem Informasi

APA KATA ALUMNI

Eva Krisnamurti Natalia (Alumni KA Angkatan 2004)
Payroll Officer PT Pamapersada Nusantara-Astra Group-Jakarta
"Kurikulum KA yang lengkap dan perkuliahan yang mengutamakan analisis, logika dan kreatifitas, merupakan modal yang sangat berharga bagi saya untuk menekuni pekerjaan ini. Salam Inovasi !!"

Marta Natalia (Alumni KA angkatan 2005)
Accounting Officer PT. Sido Muncul, Semarang
" Memutuskan untuk kuliah di KA adalah salah satu keputusan terbaik yang pernah saya ambil. Menuntut ilmu di KA membuat saya siap menghadapi tantangan baru dan belajar mandiri"

Berta Septiani (Alumni KA angkatan 2005)
Administration Officer PT Purinusa Ekapersada, Semarang
"Beryukur menjadi keluarga besar KompAK. Progdi KA telah membantu saya untuk memperoleh beasiswa, lulus lebih cepat dari waktu studi yang seharusnya dan mudah mencari pekerjaan. Terimakasih KA!!!!"

»»  READMORE...