=== BEGIN ARIEFWT'S POST === Kalau kita asumsikan rsnokel!no_urut adalah field yang TM60001, coba ganti baris yang error tsb dgn ini:
'=== BEGIN CODE - COPY FROM HERE === snokel = val(mid(rsnokel!no_urut,3)) + 1 'powered by Arief Softwares Lab ([EMAIL PROTECTED]) '=== END CODE - COPY UNTIL HERE === Kodeku akan membuang TMnya, dan mengubah string menjadi integer supaya bisa ditambah 1... happy coding! === END ARIEFWT'S POST === Catatan: * Semoga posting di atas dapat bermanfaat secara positif bagi kita semua * CMIIW - Correct Me If I am Wrong! * Mohon maaf sebesar-besarnya apabila ada kata-kata yang kurang berkenaan di hati Anda Medan, 03 Mei 2007 -- Best Regards, <Arief Wibowo, C.Hts, RM> Computer Programmer and Alternative Therapist [EMAIL PROTECTED] http://ariefwt.byethost7.com/ --- In [email protected], McBoenBoen <[EMAIL PROTECTED]> wrote: > > Dear All, > > Tolong pencerahannya.... > saya mau sistim penomoran otomatis, tapi ada kendala sedikit > bagaimana caranya supaya penomoran yang didepannya ada karakter bisa terus berlanjut > misalnya : TM60001 > TM60002, dst.... > > codingnya spt ini > Private Sub sp_nobaru() > Dim rsnokel As New ADODB.Recordset > Dim snokel As String, nobaru As String > Set rsnokel = New ADODB.Recordset > > rsnokel.Open "Select no_urut from trx_dompet_drop order by no_urut", cn, adOpenDynamic, adLockOptimistic > If rsnokel.RecordCount = 0 Then > nobaru = "TM6001" > Else > rsnokel.MoveLast > snokel = rsnokel!no_urut + 1 <====== DISINI ERORNYA > nobaru = Left("TM6000", 6 - Len(snokel)) & snokel > > End If > txtnourut.Text = "TM" + nobaru > rsnokel.Close > Set rsnokel = Nothing > End Sub > > kalau untk ngimpannya sudah bisa, cuma kalau mau bikin nomor selanjutnya error > > thxb4 > mc > > > --------------------------------- > Ahhh...imagining that irresistible "new car" smell? > Check outnew cars at Yahoo! Autos. >
