Tabel Awal
setelah menjalankan fungsi f2_NoUrut
setelah menjalankan fungsi f1_NoUrut
Taruh 2 fungsi ini di General Module.
Function f2_NoUrut()
Dim dbs As DAO.Database
Dim rstKodeAkun As DAO.Recordset
Dim rstJurnal As DAO.Recordset
Set dbs = CurrentDb
strSQL = "SELECT distinct tblJurnal.KodeAkun FROM tblJurnal;"
Set rstKodeAkun = dbs.OpenRecordset(strSQL)
rstKodeAkun.MoveLast
rstKodeAkun.MoveFirst
For i = 1 To rstKodeAkun.RecordCount
Set rstJurnal = dbs.OpenRecordset("Select tblJurnal.* from tblJurnal
Where KodeAkun='" & rstKodeAkun!KodeAkun & "'")
rstJurnal.MoveLast
rstJurnal.MoveFirst
For j = 1 To rstJurnal.RecordCount
sNoUrut = Format(j, "000")
sTgl = Day(rstJurnal!TglPerolehan)
sThn = Year(rstJurnal!TglPerolehan)
BNU = sNoUrut & "/" & rstJurnal!KodeAkun & "/" & sTgl & "/" &
sThn
rstJurnal.Edit
rstJurnal!NoAset = BNU
rstJurnal.Update
rstJurnal.MoveNext
Next
rstKodeAkun.MoveNext
Next
Set rstJurnal = Nothing
Set rstKodeAkun = Nothing
Set dbs = Nothing
End Function
Function f1_NoUrut()
Dim dbs As DAO.Database
Dim rstKodeAkun As DAO.Recordset
Dim rstJurnal As DAO.Recordset
Set dbs = CurrentDb
strSQL = "SELECT distinct tblJurnal.KodeAkun FROM tblJurnal;"
Set rstKodeAkun = dbs.OpenRecordset(strSQL)
rstKodeAkun.MoveLast
rstKodeAkun.MoveFirst
For i = 1 To rstKodeAkun.RecordCount
Set rstJurnal = dbs.OpenRecordset("Select tblJurnal.* from tblJurnal
Where KodeAkun='" & rstKodeAkun!KodeAkun & "'")
rstJurnal.MoveLast
rstJurnal.MoveFirst
For j = 1 To rstJurnal.RecordCount
rstJurnal.Edit
rstJurnal!NoAset = rstJurnal!KodeAkun + CStr(j)
rstJurnal.Update
rstJurnal.MoveNext
Next
rstKodeAkun.MoveNext
Next
Set rstJurnal = Nothing
Set rstKodeAkun = Nothing
Set dbs = Nothing
End Function
2008/2/12 Dwi Wuryantadi <[EMAIL PROTECTED]>:
> Bisa minta tolong dijelasin mas, kalao "tblJurnal" hasil impor dari *.xls
> dengan dua field misal KodeAkun dan Harga, gimana caranya membuat NoUrut
> di
> tblJurnal Query,[NoUrut],[KodeAkun],[Harga]
> Thanks B 4
> ----- Original Message -----
> From: "wedhi2002" <[EMAIL PROTECTED]>
> To: <[email protected]>
> Sent: Wednesday, January 30, 2008 10:45 AM
> Subject: [belajar-access] Re: Membuat Nomor Urut Berdasarkan kriteria
>
>
>
> 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
> > >
> > >
> > >
> >
>
>
>
>
>
> ___________________________________________________________
> Now you can scan emails quickly with a reading pane. Get the new Yahoo!
> Mail. http://uk.docs.yahoo.com/nowyoucan.html
>
>
>
> SPAM IS PROHIBITED
> Yahoo! Groups Links
>
>
>
>
