Re: [Programmer-VB] Namanya manusia ga pernah puas

Mon, 26 Jun 2006 01:00:09 -0700

Sy mo ngasih mskan nich..mudah2 dpt ngebantu
ini conto dr sy:
dim a as variant
dim b
dim no_urut as integer
a=date
a=format(a,"yymmdd")
b=combo1
rs.open"select * from tble1 where left(nim,2)='" & left(a,2) & "' and mid(nim,3,2)='" & b & "' order by nim desc",cn,...,......
if rs.eof then
    text1=a & combo1 & "0001"
else
    no_urut=right(rs("nim"),4)
    no_urut=no_urut+1
    text1=a & combo1 & no_urut
end if
 
muadah2 dapet ngebantu...ini cuma sekedar conto jd hrs lo utak-atik dikit jgn berpatok pd yg diatas.cuma sy pernah nyoba kasus ini n berhasil.

"agus muhardi,A.Md" <[EMAIL PROTECTED]> wrote:
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
Do you Yahoo!?
Next-gen email? Have it all with the all-new Yahoo! Mail Beta.

Sneak preview the all-new Yahoo.com. It's not radically different. Just radically better. __._,_.___

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




SPONSORED LINKS
Programmer Indonesia Basic programming language
Computer programming languages Programming languages Java programming language

YAHOO! GROUPS LINKS



__,_._,___

Kirim email ke