Monday, 31 October 2011
menampilkan kode otomatis berdasarkan tahun VB6
Posted by ahmad | Monday, 31 October 2011 | Category:
tutorial VB6
|
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
Subscribe to:
Post Comments (Atom)
Popular Posts
-
if adodc1.recordset.BOF and adodc1.recordset. EOF then text1.text=format (date,"yyyy") & "001" else adodc1.record...
-
Keuntungan & Cara Kerja Pulsagram memberikan sistem bisnis pulsa terbaik dengan viral marketing gratis. Begitu keanggotaan tel...
-
Kursus View more documents from Ahmad Mustaqim .
-
Vb2 View more documents from Ahmad Mustaqim .
-
klik download
-
Private Sub brsh_Click() a = MsgBox("yakin mau di bersihkan?", vbOKCancel, "info") If a = vbOK Then kobar.Text = ...
-
memberikan password MySQL/phpmyadmin di XAMPP: 1 .set password, caranya masuk ke http://localhost/phpmyadmin kemudian masuk menu privileges... -
jangan diketawakan ya.. namanya juga masih belajar.. hehe... tapi tolong di bantu ya.. di kasih taw kekurangannnya... boleh tu... silahkan...
-
Gridkaryawan.Cols = 6 Gridkaryawan.Rows = 10 Gridkaryawan.ColWidth(0) = 100 Gridkaryawan.ColWidth(1) = 900 Gridkaryawan.ColWidth(2) = 200...
Currently have 0 comments: