lazada.co.id

Monday, 31 October 2011

menampilkan kode otomatis berdasarkan tahun VB6

Posted by ahmad mustaqim | Monday, 31 October 2011 | Category: |

if adodc1.recordset.BOF and adodc1.recordset. EOF then
text1.text=format (date,"yyyy") & "001"
else
adodc1.recordset.movelast
text1.text=format(date,"yyyy")&right(str(val(right(adodc1.recordset!field,3))+1001),3)
end if

Currently have 0 comments:


Leave a Reply

Popular Posts