di pisah pisah aja
dim X1 ,X2,X3 as string
rs.open "SELECT max(right(NIM,4)) from TBLMHS"con,1,1
X1 = rs.fields(0) + 1
rs.close
X2 = kode jurusan
X3 = kode tahun
txnim = X3 & X2 & X1
semoga membantu
Ali Akbar
"agus
muhardi,A.Md" To:
[email protected]
<[EMAIL PROTECTED] cc:
ahoo.com> Subject: [Programmer-VB]
Namanya manusia ga pernah puas
Sent by:
[EMAIL PROTECTED]
ogroups.com
06/26/2006 02:12
PM
Please respond to
Programmer-VB
Dear Suhu n pakar vb sekalian
ada pepatah namanya manusian tidak pernah puas
bertolak dari kata tersebut saya ada sedit masalah dalam pembuatan nomor
otomatis...
logikanya seperti ini:
saya punya nomor induk mahasiswa dengan format :06010001
06 artinya mahasiswa yang masuk tahun 2006
01 artinya mahasiswa tersebut kelas MI dan jika 02 kelas KA
0001artnya nomor urut nim
nah yang saya tanyakan adalah gimana caranya...membuat kode tersebut
bertambah
tapi hanya 0001/nim tapi yang lainnya(tahun masuk dan kelas) kita isi
sendiri
logokanya sepeti ini ketikah saya klik tambah maka di txtnim yang akan
bertambah 0001 s.d 9999
dan digit tahun masuk dan kelas kita isi sendiri,,,yang bertambah hanya 4
digit di belakangnnya
contoh 06020002 atau 06010003, warna biru bertambah otomatis dan warna
merah user yang mengisi
atas bantuan para pakar dan suhu, saya ucapkan terima kasih
NB: saya sudah searcing di google n saya juga sudah kotak katik blm ketemu
juga listing yang tepat...
B.Reg's
Agus Muhardi
------------------------ Yahoo! Groups Sponsor --------------------~-->
Something is new at Yahoo! Groups. Check out the enhanced email design.
http://us.click.yahoo.com/SISQkA/gOaOAA/yQLSAA/k7folB/TM
--------------------------------------------------------------------~->
Wahana Programmer Groups Links
<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
http://wahanaprogrammer.net
<*> Untuk menghubungi owner milis ini, kirim email ke:
[EMAIL PROTECTED]
<*> Konsultasi pemrogramman bisa chat disini:
Yahoo! Messenger: wahanaprogrammer
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
