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.
