Sorry lupa cara penggunaan. Pasang di Form_BeforeUpdate
NoUrut.value = BuatNoUrut(KodeAkun.value,TglPerolehan.value) --- In [email protected], "Soffan Marsus" <[EMAIL PROTECTED]> wrote: > > 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" <wedhiaccess@> > 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 > > > > > > > > > > > > > > > > > >
