coba dulu ini....
KodeAkun="A"
krKanan="/" & KodeAkun& "/" & format(now(),"mm/yyyy")
na=format(nz(dmax("Left(NoAset,3)","NamaTabel","mid(NoAset,4,10)='" &
krKanan & "'"))+1,"000") & krKanan
Pada tanggal 28/01/08, andrie_mr <[EMAIL PROTECTED]> menulis:
>
> Dear all,
>
> Saya minta tolong kepada rekan-rekan milis mengenai table yang saya
> buat di bawah ini
>
> Saya punya table sbb :
> NoAset : Text
> KodeAkun : Text
> TglPerolehan : Date
>
> Kode Akun :
> A = Inventaris Kantor
> B = Kendaraan Sarana
>
> Untuk No Aset rencananya adalah "Mask" (concatenate) sbb :
> "No urut/Kode Akun/Bulan Perolehan/Tahun Perolehan."
>
> Nomor urut 3 digit dengan angka nol di depan, missal 001, 002, 100
> dst.
> Untuk nomor urut akan otomatis menambah (increment) berdasarkan Kode
> Akun.
>
> Apabila Kode Akunnya beda maka nomor urutnya akan mulai dari awal
> lagi. Sehingga NoAset (contoh) hasilnya sebagai berikut :
>
> NoAset KodeAkun TglPerolehan
> 001/A/1/2008 A 1 Jan 2008
> 002/A/2/2008 A 1 Feb 2008
> 001/B/12/2007 B 1 Des 2007
> 002/B/1/2008 B 1 Jan 2008
> 003/B/1/2008 B 12 Jan 2008
> 001/C/4/2001 C 1 April 2007
>
> Pertanyaannya :
> Bagaimana membuat "Query" atau VBA untuk membuat NoAset yang
> increment dan concatenate tersebut berdasarkan kategore Kode Akun
> tersebut?
>
> Saya sudah coba dengan contoh yang diberikan dalam milis ini oleh Edi
> Eiyono pada tanggal 20 Oktober 2007 (Subject : Membuat Nomor Urut),
> tetapi increment-nya hanya apabila perubahan pada bulan saja. Bisakah
> berdasarkan seperti contoh di atas.
>
> Mohon bantuan rekan-rekan semuanya.
>
> Terima kasih
>
>
>
