abet_tnb
abet_tnb> Salam..
abet_tnb> Mas Noufal.... kenapa masih belum bisa ya....?? setelah disimpan.
abet_tnb> No-nya tetep aja berada di : AMJ07040001.
abet_tnb> harusnya kan AMJ07040002, dst....
abet_tnb> punya solusi lain ga ya....
abet_tnb> rekan2 pendekar yang lain... tolong dooonk bantuin... please
abet_tnb> udah hampir deadline penutupan sidang skripsi nih.., dan cuma cara
abet_tnb> mengurutkan No. nya aja yg belum bisa. Mungkin seandainya Dosen
abet_tnb> pembimbing ga minta hal ini, pasti udah jadi programnya (Bilangnya
abet_tnb> sih biar beda dari metode yang lain)
abet_tnb> Waduuuhhhh.. pusiiiing.....
abet_tnb> --- In [EMAIL PROTECTED], Naufal Mumtaz Ramadhan
abet_tnb> <[EMAIL PROTECTED]> wrote:
nih mas abet logikanya silahkan di kutak-katik sendiri ya
With rsTemp
.Open "SELECT NoInv FROM TrHInvoice ORDER BY NoInv", conn,
adOpenStatic, adLockReadOnly, adCmdText
If Not .EOF Then
.MoveLast
nomor = CInt(Left(!NoInv, 3)) + 1
TxtNoInv.Text = Right("000" & CStr(nomor), 3) & "/PAN/CR/" &
strbulan & "/" & tahun
Else
TxtNoInv.Text = "001" & "/PAN/CR/" & strbulan & "/" & tahun
End If
.Close
End With
Salam,
ChipMunks (Copy Paste Programmer)
mailto: [EMAIL PROTECTED]
Yahoo : Henqy
Skype : Hengky_Purnomo
