Coba pake fungsi ini.
mdh2-an membantu
Function BuatNoUrut(ByVal KodeAkun As String, ByVal TglPerolehan As
Date) As String
On Error GoTo nol:
'susunannya NoUrut/KodeAkun/TglPerolehan/ThnPerolehan
'NoUrut increment hanya berdasarkan KodeAkun
'Asumsi:
'tblJurnal : namatabel
'NoUrut : field - text
'KodeAkun : field - text
JKodeAkun = DCount("KodeAkun", "tblJurnal", "[KodeAkun]='" &
KodeAkun & "'")
If JKodeAkun = 0 Then
NoUrut = 1
Else
NoUrut = JKodeAkun + 1
End If
sNoUrut = Format(NoUrut, "000")
sTgl = Day(TglPerolehan)
sThn = Year(TglPerolehan)
BuatNoUrut = sNoUrut & "/" & KodeAkun & "/" & sTgl & "/" & sThn
keluar:
Exit Function
salah:
Debug.Print Err.Description
Resume keluar
End Function
--- In [email protected], "dewo prabowo"
<[EMAIL PROTECTED]> wrote:
>
> 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
> >
> >
> >
>
