all...akhir nya beres jga....hehehe..setelah bertapa
dengan insipirasi script dari kalian2..ni script nya
yg jalan di program yg gw bikin..
Dim fakper
If rsmh.RecordCount = 0 Then
tfper.Text = "FP-" & Val(Left(TTANGGAL, 2)) &
"0001"
Else
rsmh.MoveLast
gg = Left(TTANGGAL, 2)
fakper = Left(rsmh!no_fp, 3) & gg &
Right("0000" & 1 + Right(rsmh!no_fp, 4), 4)
tfper.Text = Format(fakper)
End If
wat bayu thx 4 the comment...i appreciate
it..hiks..moga2 bermanfaat wat semua..
masalah nya kmrn adalah 0000 pada faktur ga mo
nongol..jadi langsung tanggal dan no urut faktur tanpa
ada 0 nya...
im just a Fckin' nubie...
____________________________________________________________________________________
Be a better friend, newshound, and
know-it-all with Yahoo! Mobile. Try it now.
http://mobile.yahoo.com/;_ylt=Ahu06i62sR8HDtDypao8Wcj9tAcJ
