Ikut tanya Pa.. Ini manggil fungsinya darimana? Dari form atau dari field di form tsb? Event triggernya After Update-kan ya?
Saya punya masalah serupa untuk aplikasi surat utk nomor surat keluar. Karena jenis surat keluar lebih dari 1, no surat diidentifikasi berdasar jenis suratnya. Jadi misal nomor surat biasa S-001/BPP.03/2008 dan surat dinas ND-003/ BPP.03/2008 dst. Tabel-tabelnya JenisSurat: JenisID (autonumber), KodeSurat, JenisSurat SuratKeluar: JenisID, TanggalSurat, NomorSurat, Kepada, Hal (Barangkali bisa sekalian disesuaikan fungsinya sesuai tabel2 tsb). Di form surat keluar, supaya hanya jenis surat yang diinginkan yang muncul, sudah dibuat grup pilihan sejumlah jenis surat yg ada. Terima kasih .. --- In [email protected], "wedhi2002" <[EMAIL PROTECTED]> wrote: > > > 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" > <dewo.cahaya@> 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 <andrie_mr@> 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 > > > > > > > > > > > >
