sederhana aja, kamu mau menjumlahkan string deng number, tentu tidak bisa...
Dim snokel As String ..........ini kan string (dlm bahasa indonesianya
bukan angka, tp huruf, jadi tidak bisa di jumlahkan)
snokel = rsnokel!no_urut + 1 <====== DISINI ERORNYA (tentu error)
Jika Dim snokel As String di ganti menjadi long atau double, juga hasilnya akan
error, krn kamu mau membuat nomor yang ada huruf nya...jadi saran saya gunakan
teknik penomoran seperti yang udah dibahas sebelumnya ( baru 2 hari yang lalu,
searcing aja)
Semoga membantu: =(oVo)=
====================
BaceInside Publisher
Copyright @2007
Not for reproduced, republished.
Thank You
====================
----- Original Message ----
From: McBoenBoen <[EMAIL PROTECTED]>
To: [email protected]; [EMAIL PROTECTED]; Waroeng VB <[EMAIL
PROTECTED]>
Sent: Thursday, May 3, 2007 8:04:18 PM
Subject: [Programmer-VB] Penomoran urut
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 out new cars at Yahoo! Autos.
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
