[belajar-access] No Urut - Sudah Mentok - Bgmna Nambahnya?

Dear Friend, Dulu saya dapat cara untuk membuat No. Urut dgn script seperti dibawah ini dari Mas MBA (thanks a lot mas..) : Private Sub Tgl_AfterUpdate() On Error GoTo Error_Tgl 'Format KRW/10/2007/0001 'Misal skrg bulan 10/2007 - cek apakah ada nomor dgn format KRW/10/2007 'Kalo tdk ada nomor mulai dengan KRW/10/2007/0001, kalo sdh ada no tsb, tinggal dicari '4 digit terakhir di Integer-kan dan ditambah 1 strBulan = Format(Month(Tgl.Value), "00") strTahun = Format(Year(Tgl.Value), "0000") strKriteria = "BKS/" & strBulan & "/" & strTahun & "/" TGL_BAYAR = Format(Tgl, "dd mm yy") If DCount("No_transaksi", "tbl_order", "[No_transaksi] Like '" & strKriteria & "*'") = 0 Then    intNoUrut = 1 Else    intNoUrutTertinggi = CInt(Right(DMax("No_transaksi", "tbl_Order", "[No_transaksi] Like '" & strKriteria & "*'"), 4))    intNoUrut = intNoUrutTertinggi + 1 End If strNoUrut = Format(intNoUrut, "0000") Nourut.Value = strKriteria & strNoUrut Exit_Tgl:    Exit Sub    Error_Tgl:    MsgBox Err.Number & vbCrLf & Err.Description    Resume Exit_Tgl End Sub Selama ini berjalan mantaabb...tapi problenya sekarang transaksinya lebih dar 9999 trx, mohon BANTUANNYA kalo untuk dirubah ke max transaksi 99999 atau unlimited. Saya sudah coba dengan merubah strNoUrut = Format(intNoUrut, "00000"), tapi No. Urutnya tidak berubah terus di 10000. Saya tunggu nih...quick and good respondnya.... Thanks, Idwan

__._,_.___

SPAM IS PROHIBITED

Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___