rekan2 semua saya ada sedikit masalah pada saat simpan data bersamaan, scrip yang saya buat adalah sebagai berikut :
sub simpan()
sql="select faktur from penjualan where faktur='" & faktur &"'"
set rs=cn.execeute(sql)
if not rs.eof
faktur="PJ-" & format(val(mid(rs!faktur,4,6))+1,"000000")
endif
sql="insert into Penjualan values ('" & faktur &"','" & cdate(tanggal) &"'," &
str(grand_total) &")"
cn.execute(sql)
end sub
mohon bantuan dari rekan2 vb untuk memberikan masukannya. terima kasih
sunardi
